From d7984faf79802139f0e7a249a54c2ee8a53fa318 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Sun, 12 Apr 2015 02:41:57 +0200
Subject: [PATCH] No double `:` in logmsgs without a location

---
 Language/Haskell/GhcMod/Logging.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Language/Haskell/GhcMod/Logging.hs b/Language/Haskell/GhcMod/Logging.hs
index f028a28..f980635 100644
--- a/Language/Haskell/GhcMod/Logging.hs
+++ b/Language/Haskell/GhcMod/Logging.hs
@@ -60,8 +60,8 @@ gmLog level loc' doc = do
   GhcModLog { gmLogLevel = level' } <- gmlHistory
 
   let loc | loc' == "" = empty
-          | otherwise = text loc'
-      msg = gmRenderDoc $ (gmLogLevelDoc level <+>: loc) <+>: doc
+          | otherwise = empty <+>: text loc'
+      msg = gmRenderDoc $ (gmLogLevelDoc level <> loc) <+>: doc
       msg' = dropWhileEnd isSpace msg
 
   when (Just level <= level') $