@@ -9,7 +9,7 @@ import Data.ByteString.Lazy (putStr)
9import Data.ByteString (getContents)
9import Data.ByteString (getContents)
11helpMessage :: IO ()
11helpMessage :: IO ()
12−helpMessage = print "yaml2json FILE\n use - to indicate stdin" >> exitFailure
12+helpMessage = putStrLn "yaml2json FILE\n use - as FILE to indicate stdin" >> exitFailure
14showJSON ejson =
14showJSON ejson =
15 case ejson of
15 case ejson of