diff --git a/hydra-cardano-api/src/Hydra/Cardano/Api/Pretty.hs b/hydra-cardano-api/src/Hydra/Cardano/Api/Pretty.hs index 82cc83a2c50..b731758cc71 100644 --- a/hydra-cardano-api/src/Hydra/Cardano/Api/Pretty.hs +++ b/hydra-cardano-api/src/Hydra/Cardano/Api/Pretty.hs @@ -42,6 +42,8 @@ renderTxWithUTxO utxo (Tx body _wits) = <> [""] <> totalCollateralLines <> [""] + <> returnCollateralLines + <> [""] <> validityLines <> [""] <> mintLines @@ -124,6 +126,17 @@ renderTxWithUTxO utxo (Tx body _wits) = Api.TxTotalCollateralNone -> "None" Api.TxTotalCollateral _ x -> show x + returnCollateralLines :: [String] + returnCollateralLines = + [ "== RETURN COLLATERAL" + , renderReturnCollateral $ txReturnCollateral content + ] + + renderReturnCollateral :: TxReturnCollateral CtxTx era -> String + renderReturnCollateral = \case + Api.TxReturnCollateralNone -> "None" + Api.TxReturnCollateral _ x -> show x + validityLines = [ "== VALIDITY" , show (txValidityLowerBound content)