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 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