Fix naming warning

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