Commit 89ce26a8 authored by Fabien Manière's avatar Fabien Manière

uncomment _source_authors line

parent 85560639
...@@ -27,7 +27,7 @@ instance FromJSON Author where ...@@ -27,7 +27,7 @@ instance FromJSON Author where
data Source = Source data Source = Source
{ _source_title :: Maybe T.Text { _source_title :: Maybe T.Text
-- , _source_authors :: [Author] , _source_authors :: [Author]
, _source_publicationDate :: Maybe Int , _source_publicationDate :: Maybe Int
} deriving (Show, Generic) } deriving (Show, Generic)
L.makeLenses ''Source L.makeLenses ''Source
...@@ -44,7 +44,7 @@ parsePubDate (Just pubDate) = ...@@ -44,7 +44,7 @@ parsePubDate (Just pubDate) =
instance FromJSON Source where instance FromJSON Source where
parseJSON (Object o) = do parseJSON (Object o) = do
_source_title <- o .:? "title" _source_title <- o .:? "title"
-- _source_authors <- o .:? "author" _source_authors <- o .:? "author"
mPubDate <- o .:? "publicationDate" mPubDate <- o .:? "publicationDate"
pure $ Source { _source_publicationDate = parsePubDate mPubDate pure $ Source { _source_publicationDate = parsePubDate mPubDate
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment