Commit 256c25cb authored by Fabien Maniere's avatar Fabien Maniere

Update Corpus.hs

parent ca26b766
......@@ -32,7 +32,7 @@ instance Default Corpus where
instance FromJSON Corpus where
parseJSON = withObject "Corpus" $ \o -> do
_corpus_docid <- o .: "docid"
_corpus_title <- o .: "en_title_s" <|> return []
_corpus_title <- o .: "en_title_s" <|> return ""
_corpus_abstract <- o .: "en_abstract_s" <|> return []
_corpus_date <- o .:? "submittedDate_s"
_corpus_source <- o .:? "source_s"
......
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