Hlint: Error: Use mapM

2009-09-22 12:30:17 +00:00 · 2009-09-22 12:30:17 +00:00 · efa31c05b9
commit efa31c05b9
parent d0baf650f2
1 changed files with 2 additions and 2 deletions
--- a/tools/bench.hs
+++ b/tools/bench.hs
@ -128,8 +128,8 @@ main = do
  putStrLn $ printf "Using %s" file
  putStrLn $ printf "Running %d tests %d times with %d executables at %s:" 
               (length tests) num (length exes) (show now)
-  let doexe t e = sequence $ map (doiteration opts t e) [1..num]
-  let dotest t = sequence $ map (doexe t) exes
+  let doexe t e = mapM (doiteration opts t e) [1..num]
+  let dotest t = mapM (doexe t) exes
  hSetBuffering stdout NoBuffering
  results <- mapM dotest tests
  summarise opts tests exes results