diff options
author | tv <tv@shackspace.de> | 2014-07-29 08:49:42 +0200 |
---|---|---|
committer | tv <tv@shackspace.de> | 2014-07-29 08:49:42 +0200 |
commit | 627894eacfba83bc820d5605b2a33d59c7c7e969 (patch) | |
tree | a08de2f04d4d8699248332cb78338317b68e807f /src/Scanner.hs | |
parent | a30e97644079226e91614e70bef9e895e79a189f (diff) |
rewrite (concat $ map f xs) to (xs >>= f)
Diffstat (limited to 'src/Scanner.hs')
-rw-r--r-- | src/Scanner.hs | 2 |
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 |