Attempted fix: specify bounds for array function

IntersectMBO · Jun 8, 2022 · 96fa588 · 96fa588
1 parent 620705d
commit 96fa588
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)