diff --git a/cardano-api/src/Cardano/Api/Fees.hs b/cardano-api/src/Cardano/Api/Fees.hs index 3269f59566a..07920a1245f 100644 --- a/cardano-api/src/Cardano/Api/Fees.hs +++ b/cardano-api/src/Cardano/Api/Fees.hs @@ -576,7 +576,7 @@ evaluateTransactionExecutionUnits _eraInMode systemstart history pparams utxo tx -> Either TransactionValidityError (Array.Array Alonzo.Language Alonzo.CostModel) toAlonzoCostModelsArray costmodels = do Alonzo.CostModels cModels <- first (TransactionValidityCostModelError costmodels) $ toAlonzoCostModels costmodels - return $ Array.array (minBound, maxBound) (Map.toList cModels) + return $ Array.array (Alonzo.PlutusV1, Alonzo.PlutusV2) (Map.toList cModels) fromLedgerScriptExUnitsMap :: Map Alonzo.RdmrPtr (Either (Alonzo.ScriptFailure Ledger.StandardCrypto)