Fix cost models in alonzoGenesisDefaults

`mkCostModelsLenient` is now monadic. See: IntersectMBO/cardano-ledger@e173cf2
IntersectMBO · May 13, 2024 · fc592b7 · fc592b7
1 parent 70d1d1f
commit fc592b7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/cardano-api/cardano-api.cabal b/cardano-api/cardano-api.cabal
@@ -183,6 +183,7 @@ library internal
                       , directory
                       , either
                       , errors
+                      , FailT
                       , filepath
                       , formatting
                       , groups

diff --git a/cardano-api/internal/Cardano/Api/Genesis.hs b/cardano-api/internal/Cardano/Api/Genesis.hs
@@ -49,6 +49,7 @@ import           Cardano.Ledger.Shelley.Genesis (NominalDiffTimeMicro, ShelleyGe
 import qualified Cardano.Ledger.Shelley.Genesis as Ledger
 import qualified Ouroboros.Consensus.Shelley.Eras as Shelley
 
+import           Control.Monad.Trans.Fail.String (errorFail)
 import           Data.ByteString (ByteString)
 import qualified Data.Default.Class as DefaultClass
 import           Data.Functor.Identity (Identity)
@@ -208,7 +209,7 @@ alonzoGenesisDefaults = AlonzoGenesis { agPrices = Prices { prSteps = 721 %! 100
                                      , agMaxBlockExUnits =  ExUnits { exUnitsMem = 62000000
                                                                     , exUnitsSteps = 20000000000
                                                                     }
-                                     , agCostModels = apiCostModels
+                                     , agCostModels = errorFail apiCostModels
                                      , agCollateralPercentage = 150
                                      , agCoinsPerUTxOWord = CoinPerWord $ Coin 34482
                                      }