fixes purescript#851: terminate parser errors with a newline

michaelficarra · michaelficarra · commit 3687faa534f2 · 2015-02-08T17:38:29.000-08:00
diff --git a/psc-docs/Main.hs b/psc-docs/Main.hs
@@ -28,7 +28,7 @@ import Options.Applicative
 import qualified Language.PureScript as P
 import qualified Paths_purescript as Paths
 import System.Exit (exitSuccess, exitFailure)
-import System.IO (hPutStr, stderr)
+import System.IO (hPutStrLn, stderr)
 
 
 data PSCDocsOptions = PSCDocsOptions
@@ -42,7 +42,7 @@ docgen (PSCDocsOptions showHierarchy input) = do
   e <- P.parseModulesFromFiles (fromMaybe "") <$> mapM (fmap (first Just) . parseFile) (nub input)
   case e of
     Left err -> do
-      hPutStr stderr $ show err
+      hPutStrLn stderr $ show err
       exitFailure
     Right ms -> do
       putStrLn . runDocs $ (renderModules showHierarchy) (map snd ms)
diff --git a/psc/Main.hs b/psc/Main.hs
@@ -26,7 +26,7 @@ import Options.Applicative as Opts
 import System.Directory (createDirectoryIfMissing)
 import System.FilePath (takeDirectory)
 import System.Exit (exitSuccess, exitFailure)
-import System.IO (hPutStr, hPutStrLn, stderr)
+import System.IO (hPutStrLn, stderr)
 
 import qualified Language.PureScript as P
 import qualified Paths_purescript as Paths
@@ -58,7 +58,7 @@ compile (PSCOptions input opts stdin output externs usePrefix) = do
   modules <- P.parseModulesFromFiles (fromMaybe "") <$> readInput (InputOptions (P.optionsNoPrelude opts) stdin input)
   case modules of
     Left err -> do
-      hPutStr stderr $ show err
+      hPutStrLn stderr $ show err
       exitFailure
     Right ms -> do
       case P.compile opts (map snd ms) prefix of
