No newlines in validate-output
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 09:34:44 +0000 (11:34 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 09:34:44 +0000 (11:34 +0200)
src/validate.hs

index 8200523..8fa08d7 100644 (file)
@@ -29,8 +29,8 @@ main = do
        file <- getContents
        case (parseGrammar "stdin" file) of
                Left err -> do
-                       putStrLn (invalid err)
+                       putStr (invalid err)
                        exitWith (ExitFailure 1)
                Right _ -> do
-                       putStrLn valid
+                       putStr valid
                        exitWith ExitSuccess