slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hlint: Error: Use mapM

Browse Source
This commit is contained in:
marko.kocic 2009-09-22 12:30:17 +00:00
parent d0baf650f2
commit efa31c05b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/bench.hs
View File

@ -128,8 +128,8 @@ main = do
putStrLn $ printf "Using %s" file putStrLn $ printf "Using %s" file
putStrLn $ printf "Running %d tests %d times with %d executables at %s:" putStrLn $ printf "Running %d tests %d times with %d executables at %s:"
(length tests) num (length exes) (show now) (length tests) num (length exes) (show now)
let doexe t e = sequence $ map (doiteration opts t e) [1..num] let doexe t e = mapM (doiteration opts t e) [1..num]
let dotest t = sequence $ map (doexe t) exes let dotest t = mapM (doexe t) exes
hSetBuffering stdout NoBuffering hSetBuffering stdout NoBuffering
results <- mapM dotest tests results <- mapM dotest tests
summarise opts tests exes results summarise opts tests exes results