Update Corpus.hs

src/HAL/Doc/Corpus.hs

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