make bench tests with command arguments work

2009-05-29 12:09:39 +00:00 · 2009-05-29 12:09:39 +00:00 · 6958d47329
commit 6958d47329
parent bb29623d6e
1 changed files with 2 additions and 2 deletions
--- a/tools/bench.hs
+++ b/tools/bench.hs
@ -149,7 +149,7 @@ doiteration opts test exe iteration = do
 time :: String -> IO Float
 time cmd = do
  t1 <- getCurrentTime
-  ret <- system $ cmd ++ ">/dev/null 2>&1"
+  ret <- system $ cmd ++ " >/dev/null 2>&1"
  case ret of
    ExitSuccess -> return ()
    ExitFailure f -> putStr $ printf " (error %d)" f