Delete trailing whitespace
This commit is contained in:
parent
498de63337
commit
bd359c5c0f
|
@ -35,7 +35,7 @@ format = return Formatter {
|
||||||
onResult = outputResult
|
onResult = outputResult
|
||||||
}
|
}
|
||||||
|
|
||||||
colorForLevel level =
|
colorForLevel level =
|
||||||
case level of
|
case level of
|
||||||
"error" -> 31 -- red
|
"error" -> 31 -- red
|
||||||
"warning" -> 33 -- yellow
|
"warning" -> 33 -- yellow
|
||||||
|
@ -44,7 +44,7 @@ colorForLevel level =
|
||||||
"message" -> 1 -- bold
|
"message" -> 1 -- bold
|
||||||
"source" -> 0 -- none
|
"source" -> 0 -- none
|
||||||
otherwise -> 0 -- none
|
otherwise -> 0 -- none
|
||||||
|
|
||||||
outputError file error = do
|
outputError file error = do
|
||||||
color <- getColorFunc
|
color <- getColorFunc
|
||||||
hPutStrLn stderr $ color "error" $ file ++ ": " ++ error
|
hPutStrLn stderr $ color "error" $ file ++ ": " ++ error
|
||||||
|
|
Loading…
Reference in New Issue