1 files changed, 1 insertions, 6 deletions

diff --git a/bench/Main.hs b/bench/Main.hs
index ed0d5a35..697ecce9 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -19,15 +19,10 @@ main = withRemote $ \remote -> do {
   ; let sizes = [10, 100, 1000, 10000, 16 * 1024]
   ; let repetitions = [1, 10, 100, 1000]
   ; let params = [(r, s) | r <- repetitions, s <- sizes]
-  ; let benchmarks = (concatMap (\(a, b) -> [a, b]) $ zip
-                   (map (uncurry (mkbench remote)) params)
-                   (map (uncurry (mkbench_ remote)) params))
+  ; let benchmarks = map (uncurry (mkbench_ remote)) params
   ; defaultMain benchmarks
   }
   where
-    mkbench _ r n = bench (show r ++ "/" ++ show n) $ nfIO $
-                  replicateM r $ call addr echo (B.replicate n 0)
-
     mkbench_ re r n = bench (show r ++ "/" ++ show n) $ nfIO $
                   replicateM r $ call_ re addr echo (B.replicate n 0)