@@ -5,6 +5,7 @@ import System.Console.CmdArgs
5import System.Directory
5import System.Directory
6import System.FilePath
6import System.FilePath
7import System.Exit
7import System.Exit
9import Control.Applicative ((<$>), (<*>))
10import Control.Applicative ((<$>), (<*>))
10import Data.Aeson
11import Data.Aeson
@@ -52,7 +53,7 @@ parseFile path = do
52 createDirectoryIfMissing True (dropFileName docPath)
53 createDirectoryIfMissing True (dropFileName docPath)
53 BS.writeFile docPath (encodePretty' config json)
54 BS.writeFile docPath (encodePretty' config json)
54 Left err -> do
55 Left err -> do
55− putStrLn $ "Parse error in " ++ path ++ " at " ++ show err
56+ hPutStrLn stderr $ "Parse error in " ++ path ++ " at " ++ show err
56 exitFailure
57 exitFailure
58docs :: IParser Value
59docs :: IParser Value