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 | 9e6ad8f3f05010a40802aa7579547c76c65e5b63 (patch) | |
| tree | 196f5704fee94ca27d2e4b01165709692fbb287a | |
| parent | 91e07794826e15fa8c764cb7869c2f16bb0d9677 (diff) | |
rewrite (concat $ map f xs) to (xs >>= f)
| -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 |