minor code golfing
authorJoachim Breitner <mail@joachim-breitner.de>
Tue, 5 May 2009 23:14:36 +0000 (01:14 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Tue, 5 May 2009 23:14:36 +0000 (01:14 +0200)
src/validate.hs

index 8c06621..bd595f4 100644 (file)
@@ -24,8 +24,4 @@ invalid error = encode $ makeObj
                     errorMessages $ error)
        ]
 
-main = do
-       file <- getContents
-       case parseGrammar "stdin" file of
-         Left error -> putStrLn $ invalid error
-         Right _ -> putStrLn valid
+main = interact $ either invalid (const valid) . parseGrammar "stdin"