Add back HTTP bench

IxpertaSolutions · Mar 12, 2017 · 176204a · 176204a
1 parent 4d8b70a
commit 176204a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/bench/Core.hs b/bench/Core.hs
@@ -181,12 +181,12 @@ main =
         bench "freer.ExcState"  $ whnf countDownExc 10000
       , bench "mtl.ExceptState" $ whnf countDownExcMTL 10000
       , bench "ee.ExcState"     $ whnf countDownExcEE 10000
-    ]{-},
+    ],
     bgroup "HTTP Simple DSL" [
         bench "freer" $ whnf (run . runHttp) prog
       , bench "free" $ whnf runFHttp prog'
 
       , bench "freerN"      $ whnf (run . runHttp . p) 1000
       , bench "freeN"       $ whnf (runFHttp . p')     1000
-    ]-}
+    ]
   ]