Fix benchamarking bug

mchav · mchav · commit 80ebd0a078aa · 2025-07-16T02:06:55.000-07:00
diff --git a/benchmark/Main.hs b/benchmark/Main.hs
@@ -21,8 +21,8 @@ stats n = do
   print $ D.filter "0" (>= (19.9 :: Double)) df D.|> D.take 10
 
 main = defaultMain [
-  bgroup "stats" [ bench    "300_000" $ toBenchmarkable  (stats 100_000)
-                 , bench  "3_000_000" $ nfIO (stats 1_000_000)
+  bgroup "stats" [ bench     "300_000" $ nfIO (stats 100_000)
+                 , bench   "3_000_000" $ nfIO (stats 1_000_000)
                  , bench "300_000_000" $ nfIO (stats 300_000_000)
                  ]
   ]

Original file line number	Diff line number	Diff line change
`@@ -21,8 +21,8 @@ stats n = do`
`21`	`21`	`print $ D.filter "0" (>= (19.9 :: Double)) df D.\|> D.take 10`
`22`	`22`
`23`	`23`	`main = defaultMain [`
`24`		`- bgroup "stats" [ bench "300_000" $ toBenchmarkable (stats 100_000)`
`25`		`- , bench "3_000_000" $ nfIO (stats 1_000_000)`
	`24`	`+ bgroup "stats" [ bench "300_000" $ nfIO (stats 100_000)`
	`25`	`+ , bench "3_000_000" $ nfIO (stats 1_000_000)`
`26`	`26`	`, bench "300_000_000" $ nfIO (stats 300_000_000)`
`27`	`27`	`]`
`28`	`28`	`]`