Update Corpus.hs

src/HAL/Doc/Corpus.hs

@@ -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"