[project @ 2005-09-05 08:22:23 by ross]

[ghc-hetmet.git] / ghc / utils / runghc / runghc.hs

diff --git a/ghc/utils/runghc/runghc.hs b/ghc/utils/runghc/runghc.hs
index af74d74..f8330b5 100644 (file)
--- a/ghc/utils/runghc/runghc.hs
+++ b/ghc/utils/runghc/runghc.hs
@@ -62,5 +62,5 @@ notArg _       = True
 dieProg :: String -> IO a
 dieProg msg = do
   p <- getProgName
-  hPutStr stderr (p ++ ": " ++ msg)
+  hPutStrLn stderr (p ++ ": " ++ msg)
   exitWith (ExitFailure 1)