@@ -26,6 +26,7 @@ import System.Console.CmdTheLine
26import System.Directory (createDirectoryIfMissing)
26import System.Directory (createDirectoryIfMissing)
27import System.FilePath ((</>))
27import System.FilePath ((</>))
28import System.Exit (exitFailure, exitSuccess)
28import System.Exit (exitFailure, exitSuccess)
29+import System.IO (stderr)
30import Text.Parsec (ParseError)
31import Text.Parsec (ParseError)
@@ -57,7 +58,7 @@ compile :: FilePath -> Maybe FilePath -> IO ()
57compile input mOutput = do
58compile input mOutput = do
58 modules <- readInput input
59 modules <- readInput input
59 case modules of
60 case modules of
60− Left err -> U.print err >> exitFailure
61+ Left err -> U.hPutStr stderr (show err) >> exitFailure
61 Right ms -> do
62 Right ms -> do
62 for_ ms $ \(P.Module moduleName decls _) ->
63 for_ ms $ \(P.Module moduleName decls _) ->
63 let name = runModuleName moduleName
64 let name = runModuleName moduleName