Fix for PParams conversion

lehins · lehins · commit 372096a7de0a · 2023-04-05T00:06:23.000+03:00
diff --git a/cardano-api/src/Cardano/Api/ProtocolParameters.hs b/cardano-api/src/Cardano/Api/ProtocolParameters.hs
@@ -1524,7 +1524,7 @@ fromAlonzoPParams :: Ledger.Crypto crypto
                   => PParams (Ledger.AlonzoEra crypto)
                   -> ProtocolParameters
 fromAlonzoPParams pp =
-  (fromShelleyCommonPParams pp) {
+  (fromAlonzoCommonPParams pp) {
     protocolParamUTxOCostPerWord = Just . fromShelleyLovelace . unCoinPerWord $
                                      pp ^. ppCoinsPerUTxOWordL
     }

Original file line number	Diff line number	Diff line change
`@@ -1524,7 +1524,7 @@ fromAlonzoPParams :: Ledger.Crypto crypto`
`1524`	`1524`	`=> PParams (Ledger.AlonzoEra crypto)`
`1525`	`1525`	`-> ProtocolParameters`
`1526`	`1526`	`fromAlonzoPParams pp =`
`1527`		`- (fromShelleyCommonPParams pp) {`
	`1527`	`+ (fromAlonzoCommonPParams pp) {`
`1528`	`1528`	`protocolParamUTxOCostPerWord = Just . fromShelleyLovelace . unCoinPerWord $`
`1529`	`1529`	`pp ^. ppCoinsPerUTxOWordL`
`1530`	`1530`	`}`