Commit ca26b766 authored by Fabien Maniere's avatar Fabien Maniere

Update Corpus.hs

parent 38e22142
...@@ -42,8 +42,8 @@ instance FromJSON Corpus where ...@@ -42,8 +42,8 @@ instance FromJSON Corpus where
titles <- titles <-
mapM (\lang -> do mapM (\lang -> do
ma <- o .:? (langTitleS lang) mt <- o .:? (langTitleS lang)
pure $ (\a -> (lang, a)) <$> ma) allLangs pure $ (\t -> (lang, t)) <$> mt) allLangs
let _corpus_title_lang_map = Map.fromList $ catMaybes titles let _corpus_title_lang_map = Map.fromList $ catMaybes titles
abstracts <- abstracts <-
......
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