summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/Scanner.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Scanner.hs b/src/Scanner.hs
index ba81abb..780f9f8 100644
--- a/src/Scanner.hs
+++ b/src/Scanner.hs
@@ -76,7 +76,7 @@ main = do
putStrLn $ "====> \ESC[32;1m" ++ show s ++ "\ESC[m in " ++
(show $ diffUTCTime t1 t0)
- ++ ": \"\ESC[35m" ++ (concat $ map (colorize . toChar) s)
+ ++ ": \"\ESC[35m" ++ (s >>= colorize . toChar)
++ "\ESC[m\""
case res of
Left msg -> putStrLn $ " error: " ++ msg