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

make bench tests with command arguments work

Browse Source
This commit is contained in:
Simon Michael 2009-05-29 12:09:39 +00:00
parent bb29623d6e
commit 6958d47329
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/bench.hs
View File

@ -149,7 +149,7 @@ doiteration opts test exe iteration = do
time :: String -> IO Float time :: String -> IO Float
time cmd = do time cmd = do
t1 <- getCurrentTime t1 <- getCurrentTime
ret <- system $ cmd ++ ">/dev/null 2>&1" ret <- system $ cmd ++ " >/dev/null 2>&1"
case ret of case ret of
ExitSuccess -> return () ExitSuccess -> return ()
ExitFailure f -> putStr $ printf " (error %d)" f ExitFailure f -> putStr $ printf " (error %d)" f