@@ -25,6 +25,7 @@ import System.Console.CmdTheLine
25import System.Directory (createDirectoryIfMissing)
25import System.Directory (createDirectoryIfMissing)
26import System.FilePath (takeDirectory)
26import System.FilePath (takeDirectory)
27import System.Exit (exitSuccess, exitFailure)
27import System.Exit (exitSuccess, exitFailure)
28+import System.IO (stderr)
29import Text.Parsec (ParseError)
30import Text.Parsec (ParseError)
@@ -51,12 +52,12 @@ compile opts input output externs = do
51 modules <- readInput input
52 modules <- readInput input
52 case modules of
53 case modules of
53 Left err -> do
54 Left err -> do
54− U.print err
55+ U.hPutStr stderr $ show err
55 exitFailure
56 exitFailure
56 Right ms -> do
57 Right ms -> do
57 case P.compile opts (map snd ms) of
58 case P.compile opts (map snd ms) of
58 Left err -> do
59 Left err -> do
59− U.putStrLn err
60+ U.hPutStrLn stderr err
60 exitFailure
61 exitFailure
61 Right (js, exts, _) -> do
62 Right (js, exts, _) -> do
62 case output of
63 case output of