@@ -20,42 +20,42 @@ main = defaultMain
20countdown :: Integer -> Benchmark
20countdown :: Integer -> Benchmark
21countdown n = bgroup (show n)
21countdown n = bgroup (show n)
22 [ bgroup "shallow"
22 [ bgroup "shallow"
23− [ bench "reference" $ nf countdownRef n
23+ [ bench "reference" $ nf countdownRef n
24− , bench "effectful (PS)" $ nfAppIO countdownEffectfulStatic n
24+ , bench "effectful (pure-static)" $ nfAppIO countdownEffectfulStatic n
25− , bench "effectful (PD)" $ nfAppIO countdownEffectfulDynPure n
25+ , bench "effectful (pure-dynamic)" $ nfAppIO countdownEffectfulDynPure n
26− , bench "effectful (MS)" $ nfAppIO countdownEffectfulMVar n
26+ , bench "effectful (MVar-static)" $ nfAppIO countdownEffectfulMVar n
27− , bench "effectful (MD)" $ nfAppIO countdownEffectfulDynMVar n
27+ , bench "effectful (MVar-dynamic)" $ nfAppIO countdownEffectfulDynMVar n
28#ifdef VERSION_freer_simple
28#ifdef VERSION_freer_simple
29− , bench "freer-simple" $ nf countdownFreerSimple n
29+ , bench "freer-simple" $ nf countdownFreerSimple n
31#ifdef VERSION_eff
31#ifdef VERSION_eff
32− , bench "eff" $ nf countdownEff n
32+ , bench "eff" $ nf countdownEff n
34− , bench "mtl" $ nf countdownMtl n
34+ , bench "mtl" $ nf countdownMtl n
35#ifdef VERSION_fused_effects
35#ifdef VERSION_fused_effects
36− , bench "fused-effects" $ nf countdownFusedEffects n
36+ , bench "fused-effects" $ nf countdownFusedEffects n
38#ifdef VERSION_polysemy
38#ifdef VERSION_polysemy
39− , bench "polysemy" $ nf countdownPolysemy n
39+ , bench "polysemy" $ nf countdownPolysemy n
42 , bgroup "deep"
42 , bgroup "deep"
43− [ bench "effectful (PS)" $ nfAppIO countdownEffectfulStaticDeep n
43+ [ bench "effectful (PS)" $ nfAppIO countdownEffectfulStaticDeep n
44− , bench "effectful (PD)" $ nfAppIO countdownEffectfulDynPureDeep n
44+ , bench "effectful (PD)" $ nfAppIO countdownEffectfulDynPureDeep n
45− , bench "effectful (MS)" $ nfAppIO countdownEffectfulMVarDeep n
45+ , bench "effectful (MS)" $ nfAppIO countdownEffectfulMVarDeep n
46− , bench "effectful (MD)" $ nfAppIO countdownEffectfulDynMVarDeep n
46+ , bench "effectful (MD)" $ nfAppIO countdownEffectfulDynMVarDeep n
47#ifdef VERSION_freer_simple
47#ifdef VERSION_freer_simple
48− , bench "freer-simple" $ nf countdownFreerSimpleDeep n
48+ , bench "freer-simple" $ nf countdownFreerSimpleDeep n
50#ifdef VERSION_eff
50#ifdef VERSION_eff
51− , bench "eff" $ nf countdownEffDeep n
51+ , bench "eff" $ nf countdownEffDeep n
53#ifdef VERSION_polysemy
53#ifdef VERSION_polysemy
54− , bench "polysemy" $ nf countdownPolysemyDeep n
54+ , bench "polysemy" $ nf countdownPolysemyDeep n
56− , bench "mtl" $ nf countdownMtlDeep n
56+ , bench "mtl" $ nf countdownMtlDeep n
57#ifdef VERSION_fused_effects
57#ifdef VERSION_fused_effects
58− , bench "fused-effects" $ nf countdownFusedEffectsDeep n
58+ , bench "fused-effects" $ nf countdownFusedEffectsDeep n