summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-07-29 08:49:42 +0200
committertv <tv@shackspace.de>2014-07-29 08:49:42 +0200
commit9e6ad8f3f05010a40802aa7579547c76c65e5b63 (patch)
tree196f5704fee94ca27d2e4b01165709692fbb287a
parent91e07794826e15fa8c764cb7869c2f16bb0d9677 (diff)
rewrite (concat $ map f xs) to (xs >>= f)
-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