Fix use of (head . lines)

2015-03-08 17:33:09 +01:00 · 2015-03-08 17:33:09 +01:00 · 1ac71364a9
commit 1ac71364a9
parent a6d3f477bc
1 changed files with 2 additions and 2 deletions
--- a/Language/Haskell/GhcMod/Logging.hs
+++ b/Language/Haskell/GhcMod/Logging.hs
@ -56,8 +56,8 @@ gmLog level loc' doc = do
  GhcModLog { gmLogLevel = level' } <- gmlHistory

  let loc | loc' == "" = empty
-          | otherwise = text (head $ lines loc') <> colon
-      msg = gmRenderDoc $ gmLogLevelDoc level <+> loc <+> doc
+          | otherwise = text loc'
+      msg = gmRenderDoc $ (gmLogLevelDoc level <+> loc) <+>: doc
      msg' = dropWhileEnd isSpace msg

  when (Just level <= level') $