提交 bd359c5c 编写于 作者: D David Haguenauer

Delete trailing whitespace

上级 498de633
...@@ -35,7 +35,7 @@ format = return Formatter { ...@@ -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 = ...@@ -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
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册