From 9e6ad8f3f05010a40802aa7579547c76c65e5b63 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Tue, 29 Jul 2014 08:49:42 +0200
Subject: rewrite (concat $ map f xs) to (xs >>= f)

---
 src/Scanner.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3