@@ -26,6 +26,7 @@ import System.Console.CmdTheLine
2626import System.Directory (createDirectoryIfMissing)
2727import System.FilePath ((</>))
2828import System.Exit (exitFailure, exitSuccess)
29+import System.IO (stderr)
2930
3031import Text.Parsec (ParseError)
3132
@@ -57,7 +58,7 @@ compile :: FilePath -> Maybe FilePath -> IO ()
5758compile input mOutput = do
5859 modules <- readInput input
5960 case modules of
60− Left err -> U.print err >> exitFailure
61+ Left err -> U.hPutStr stderr (show err) >> exitFailure
6162 Right ms -> do
6263 for_ ms $ \(P.Module moduleName decls _) ->
6364 let name = runModuleName moduleName