From 630440911a6e587e255289e109dd1ca4dc991d18 Mon Sep 17 00:00:00 2001 From: Nicolas Frisby Date: Wed, 14 Jul 2021 09:50:34 -0700 Subject: [PATCH] shelley: fix bug that used maxTxExUnits instead of maxBlockExUnits --- .../src/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ouroboros-consensus-shelley/src/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs b/ouroboros-consensus-shelley/src/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs index 76ecee73f6c..994e6b08f0d 100644 --- a/ouroboros-consensus-shelley/src/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs +++ b/ouroboros-consensus-shelley/src/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs @@ -322,7 +322,7 @@ instance ( SL.PraosCrypto c let pparams = getPParams $ tickedShelleyLedgerState ledgerState in AlonzoMeasure { byteSize = ByteSize $ maxTxCapacity ledgerState - , exUnits = getField @"_maxTxExUnits" pparams + , exUnits = getField @"_maxBlockExUnits" pparams } pointwiseMin (AlonzoMeasure bs1 (ExUnits mem1 steps1)) (AlonzoMeasure bs2 (ExUnits mem2 steps2)) =