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
data Source = Source
{ _source_title :: Maybe T.Text
-- , _source_authors :: [Author]
, _source_authors :: [Author]
, _source_publicationDate :: Maybe Int
} deriving (Show, Generic)
L.makeLenses ''Source
......@@ -44,7 +44,7 @@ parsePubDate (Just pubDate) =
instance FromJSON Source where
parseJSON (Object o) = do
_source_title <- o .:? "title"
-- _source_authors <- o .:? "author"
_source_authors <- o .:? "author"
mPubDate <- o .:? "publicationDate"
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