diff --git a/scripts/ML/prodigy-corpus.hs b/scripts/ML/prodigy-corpus.hs
index c2a6e69c940251b36c97014d85c99435c214836d..c1928839906f1418067bf10d2f91b24e3b3b551e 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