No double `:` in logmsgs without a location

2015-04-12 02:41:57 +02:00 · 2015-04-12 02:41:57 +02:00 · d7984faf79
parent 2bf4c80580
commit d7984faf79
1 changed files with 2 additions and 2 deletions
--- 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') $