From bd359c5c0f371a78f09463b2ba1a8976b0ae2433 Mon Sep 17 00:00:00 2001 From: David Haguenauer Date: Thu, 3 Dec 2015 11:17:05 -0500 Subject: [PATCH] Delete trailing whitespace --- ShellCheck/Formatter/TTY.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ShellCheck/Formatter/TTY.hs b/ShellCheck/Formatter/TTY.hs index 0b8e5dc..578cb59 100644 --- a/ShellCheck/Formatter/TTY.hs +++ b/ShellCheck/Formatter/TTY.hs @@ -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