Delete trailing whitespace

This commit is contained in:
David Haguenauer 2015-12-03 11:17:05 -05:00
parent 498de63337
commit bd359c5c0f
1 changed files with 2 additions and 2 deletions

View File

@ -35,7 +35,7 @@ format = return Formatter {
onResult = outputResult
}
colorForLevel level =
colorForLevel level =
case level of
"error" -> 31 -- red
"warning" -> 33 -- yellow
@ -44,7 +44,7 @@ colorForLevel level =
"message" -> 1 -- bold
"source" -> 0 -- none
otherwise -> 0 -- none
outputError file error = do
color <- getColorFunc
hPutStrLn stderr $ color "error" $ file ++ ": " ++ error