hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

No double : in logmsgs without a location

Browse Source
This commit is contained in:
Daniel Gröber 2015-04-12 02:41:57 +02:00
parent 2bf4c80580
commit d7984faf79
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/Logging.hs
View File

@ -60,8 +60,8 @@ gmLog level loc' doc = do
GhcModLog { gmLogLevel = level' } <- gmlHistory GhcModLog { gmLogLevel = level' } <- gmlHistory
let loc | loc' == "" = empty let loc | loc' == "" = empty
| otherwise = text loc' | otherwise = empty <+>: text loc'
msg = gmRenderDoc $ (gmLogLevelDoc level <+>: loc) <+>: doc msg = gmRenderDoc $ (gmLogLevelDoc level <> loc) <+>: doc
msg' = dropWhileEnd isSpace msg msg' = dropWhileEnd isSpace msg
when (Just level <= level') $ when (Just level <= level') $