Benchmark fanout with 20+ assets

cardano-scaling · Jan 24, 2023 · 5c32308 · 5c32308
1 parent 72bd50c
commit 5c32308
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hydra-node/exe/tx-cost/TxCost.hs b/hydra-node/exe/tx-cost/TxCost.hs
@@ -190,8 +190,8 @@ computeAbortCost =
 
 computeFanOutCost :: IO [(NumUTxO, TxSize, MemUnit, CpuUnit, Lovelace)]
 computeFanOutCost = do
-  interesting <- catMaybes <$> mapM compute [1, 2, 3, 5, 10, 50]
-  limit <- maybeToList . getFirst <$> foldMapM (fmap First . compute) [100, 99 .. 51]
+  interesting <- catMaybes <$> mapM compute [1, 2, 3, 5, 10, 20]
+  limit <- maybeToList . getFirst <$> foldMapM (fmap First . compute) [100, 99 .. 21]
   pure $ interesting <> limit
  where
   compute numElems = do