From 4f70645aa78629cf941ca3a9437ef30345ea496d Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Tue, 26 Sep 2023 12:42:22 +0200
Subject: [PATCH] Fix naming warning
---
scripts/ML/prodigy-corpus.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/scripts/ML/prodigy-corpus.hs b/scripts/ML/prodigy-corpus.hs
index c2a6e69..c192883 100755
--- a/scripts/ML/prodigy-corpus.hs
+++ b/scripts/ML/prodigy-corpus.hs
@@ -27,7 +27,7 @@ main :: IO ()
main = getArgs >>= run
where
run [inputMeta, source] =
- try (readNamedTsv inputMeta) >>= mapM_ (toJSON source)
+ try (readNamedTsv inputMeta) >>= mapM_ (printJSON source)
run _ = syntax "INPUT_METADATA SOURCE_DIRECTORY"
- toJSON source parMeta =
+ printJSON source parMeta =
loadParagraph source parMeta >>= ByteString.putStrLn . encode
--
GitLab