Fix use of (head . lines)
This commit is contained in:
parent
a6d3f477bc
commit
1ac71364a9
@ -56,8 +56,8 @@ gmLog level loc' doc = do
|
|||||||
GhcModLog { gmLogLevel = level' } <- gmlHistory
|
GhcModLog { gmLogLevel = level' } <- gmlHistory
|
||||||
|
|
||||||
let loc | loc' == "" = empty
|
let loc | loc' == "" = empty
|
||||||
| otherwise = text (head $ lines loc') <> colon
|
| otherwise = 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') $
|
||||||
|
Loading…
Reference in New Issue
Block a user