From 2092ed85aef5ac806c69a4d9f7d1f74dcfdfdcc1 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 5 Dec 2008 08:59:56 +0000
Subject: [PATCH] preserve args' whitespace layout in benchmark summary

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

diff --git a/tools/bench.hs b/tools/bench.hs
index 6206adede..c603a6a6a 100644
--- a/tools/bench.hs
+++ b/tools/bench.hs
@@ -80,13 +80,14 @@ main = do
 --       parseargs (t:n:d:[]) = parseargs (t:n:d:["darcs"])
       parseargs (t:n:es) = (t,read n,".",es)
       parseargs _ = error $ "\n" ++ usage
-      testlines s = filter istest $ map clean $ lines s
-      istest s = not (null s || ("#" `isPrefixOf` s))
-      clean = unwords . words
+      testlines s = filter istest $ lines s
+      istest s = not (null s' || ("#" `isPrefixOf` s')) where s' = clean s
+
+clean = unwords . words
 
 doiteration :: String -> String -> String -> Int -> IO Float
 doiteration test exe dir iteration = do
-  let cmd = unwords [exe,test]
+  let cmd = unwords [exe,clean test]
   putStr $ show iteration ++ ": " ++ cmd
   hFlush stdout
   t <- time cmd