From 0277d4469536017be8bd179db6a4b6ab48a5b49c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Mon, 14 Sep 2015 07:32:49 +0200
Subject: [PATCH] Fix missing newline

---
 src/GHCMod.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GHCMod.hs b/src/GHCMod.hs
index a1a8ea3..b2a086b 100644
--- 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