@@ -9,7 +9,7 @@ import Data.ByteString.Lazy (putStr)
99import Data.ByteString (getContents)
1010
1111helpMessage :: 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
1313
1414showJSON ejson =
1515 case ejson of