@@ -5,6 +5,7 @@ import System.Console.CmdArgs
55import System.Directory
66import System.FilePath
77import System.Exit
8+import System.IO
89
910import Control.Applicative ((<$>), (<*>))
1011import Data.Aeson
@@ -52,7 +53,7 @@ parseFile path = do
5253 createDirectoryIfMissing True (dropFileName docPath)
5354 BS.writeFile docPath (encodePretty' config json)
5455 Left err -> do
55− putStrLn $ "Parse error in " ++ path ++ " at " ++ show err
56+ hPutStrLn stderr $ "Parse error in " ++ path ++ " at " ++ show err
5657 exitFailure
5758
5859docs :: IParser Value