Skip to content

H
hal
Commit 5170b008 authored by Fabien Maniere's avatar Fabien Maniere
Browse files
Options

Update Main.hs

parent 669d0994
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
app/Main.hs
View file @ 5170b008
...@@ -75,7 +75,7 @@ run (Fetch (FetchParams { fp_query })) = do ...@@ -75,7 +75,7 @@ run (Fetch (FetchParams { fp_query })) = do
pure () pure ()
where where
printCorpus Corpus { .. } = do printCorpus Corpus { .. } = do
putText $ "docid: " <> _corpus_docid <> " [" <> (T.intercalate " " _corpus_title) <> "]" putText $ "docid: " <> _corpus_docid <> " [" <> (T.intercalate " " show _corpus_title_lang_map) <> "]"
putText $ " " <> (T.intercalate " " _corpus_abstract) putText $ " " <> (T.intercalate " " _corpus_abstract)
putText $ " " <> show _corpus_abstract_lang_map putText $ " " <> show _corpus_abstract_lang_map
putText $ " " <> show _corpus_original putText $ " " <> show _corpus_original
......
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