Commit ca26b766 authored by Fabien Maniere's avatar Fabien Maniere

Update Corpus.hs

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