Benchmarks: improve inlining

Bodigrim · Apr 27, 2024 · ec2a660 · ec2a660
1 parent 2929fc6
commit ec2a660
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/bench/RadixTreeBench.hs b/bench/RadixTreeBench.hs
@@ -41,5 +41,6 @@ main = do
     [ bench "Old" $ nf
       (foldl' (\acc k -> acc + fromMaybe 0 (Old.lookup k oldRadixTree)) 0) keys
     , bench "New" $ nf
-      (foldl' (\acc k -> acc + New.find 0 k newRadixTree) 0) (map New.feedShortByteString keys)
+      (foldl' (\acc k -> acc + New.find 0 (New.feedShortByteString k) newRadixTree) 0)
+      keys
     ]