Update Corpus.hs

src/HAL/Doc/Corpus.hs

@@ -14,7 +14,7 @@ import Servant.API (ToHttpApiData(..))
 
 data Corpus = Corpus
   { _corpus_docid                :: Text
-  , _corpus_title                :: [Text]
+  , _corpus_title_lang_map       :: Map ISO639_1 [Text]
   , _corpus_abstract             :: [Text]
   , _corpus_abstract_lang_map    :: Map ISO639_1 [Text]
   , _corpus_date                 :: Maybe Text
@@ -40,6 +40,12 @@ instance FromJSON Corpus where
     _corpus_authors_affiliations <- o .: "authOrganism_s" <|> return []
     _corpus_struct_id            <- o .: "structId_i" <|> return []
 
+    titles <-
+      mapM (\lang -> do
+               ma <- o .:? (langTitleS lang)
+               pure $ (\a -> (lang, a)) <$> ma) allLangs
+    let _corpus_title_lang_map = Map.fromList $ catMaybes titles
+
     abstracts <-
       mapM (\lang -> do
                ma <- o .:? (langAbstractS lang)