diff --git a/cardano-cli/src/Cardano/CLI/Json/Friendly.hs b/cardano-cli/src/Cardano/CLI/Json/Friendly.hs index 0570dd6ba2..939a87a13c 100644 --- a/cardano-cli/src/Cardano/CLI/Json/Friendly.hs +++ b/cardano-cli/src/Cardano/CLI/Json/Friendly.hs @@ -250,7 +250,7 @@ friendlyTxBodyImpl ] ++ ( monoidForEraInEon @AlonzoEraOnwards era - (`getAlonzoSpecificDetails` tb) + (`getScriptWitnessDetails` tb) ) ++ ( monoidForEraInEon @ConwayEraOnwards era @@ -305,9 +305,9 @@ data EraIndependentPlutusScriptPurpose | Voting | Proposing -getAlonzoSpecificDetails +getScriptWitnessDetails :: forall era. AlonzoEraOnwards era -> TxBody era -> [Aeson.Pair] -getAlonzoSpecificDetails aeo tb = +getScriptWitnessDetails aeo tb = let ShelleyTx _ ledgerTx = makeSignedTransaction [] tb in [ "redeemers" .= friendlyRedeemers ledgerTx , "scripts" .= friendlyScriptData ledgerTx