Fix missing newline

2015-09-14 07:32:49 +02:00 · 2015-09-14 07:32:49 +02:00 · 0277d44695
parent 71c8361911
commit 0277d44695
1 changed files with 1 additions and 1 deletions
--- a/src/GHCMod.hs
+++ b/src/GHCMod.hs
@ -564,7 +564,7 @@ exitError msg = gmErrStrLn (dropWhileEnd (=='\n') msg) >> liftIO exitFailure

 exitError' :: Options -> String -> IO a
 exitError' opts msg = do
-    gmUnsafeErrStr (optOutput opts) msg
+    gmUnsafeErrStr (optOutput opts) $ dropWhileEnd (=='\n') msg ++ "\n"
    liftIO exitFailure

 fatalError :: String -> a