Merge pull request purescript#453 from darthdeus/errors-to-stderr

paf31 · paf31 · commit a43b7727434b · 2014-06-27T08:19:29.000-07:00
Print `psc` errors to STDERR
diff --git a/psc/Main.hs b/psc/Main.hs
@@ -25,6 +25,7 @@ import System.Console.CmdTheLine
 import System.Directory (createDirectoryIfMissing)
 import System.FilePath (takeDirectory)
 import System.Exit (exitSuccess, exitFailure)
+import System.IO (stderr)
 
 import Text.Parsec (ParseError)
 
@@ -51,12 +52,12 @@ compile opts input output externs = do
   modules <- readInput input
   case modules of
     Left err -> do
-      U.print err
+      U.hPutStr stderr $ show err
       exitFailure
     Right ms -> do
       case P.compile opts (map snd ms) of
         Left err -> do
-          U.putStrLn err
+          U.hPutStrLn stderr err
           exitFailure
         Right (js, exts, _) -> do
           case output of
