mempool-bench: fixup small performance regression

IntersectMBO · Jul 11, 2024 · 288ccbb · 288ccbb
1 parent 2ebacd7
commit 288ccbb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ouroboros-consensus/bench/mempool-bench/Main.hs b/ouroboros-consensus/bench/mempool-bench/Main.hs
@@ -16,6 +16,7 @@ import qualified Control.Tracer as Tracer
 import           Data.Aeson
 import qualified Data.ByteString.Lazy as BL
 import qualified Data.Csv as Csv
+import           Data.Foldable (foldMap')
 import           Data.Maybe (fromMaybe)
 import           Data.Set ()
 import qualified Data.Text as Text
@@ -139,7 +140,7 @@ openMempoolWithCapacityFor cmds =
                              }
   where
     capacityRequiredByCmds = Mempool.mkCapacityBytesOverride totalTxsSize
-      where totalTxsSize = foldMap TestBlock.txSize $ getCmdsTxs cmds
+      where totalTxsSize = foldMap' TestBlock.txSize $ getCmdsTxs cmds
 
 mkNTryAddTxs :: Int -> [MempoolCmd TestBlock.TestBlock]
 mkNTryAddTxs 0 = []