From efa31c05b9357a8199713978b6f2009ac05ecbae Mon Sep 17 00:00:00 2001
From: "marko.kocic" <marko.kocic@gmail.com>
Date: Tue, 22 Sep 2009 12:30:17 +0000
Subject: [PATCH] Hlint: Error: Use mapM

---
 tools/bench.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/bench.hs b/tools/bench.hs
index 9283ba4d7..832944a72 100644
--- 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