renderTxWithUTxO: add returnCollateralLines

cardano-scaling · Nov 26, 2024 · a42125a · a42125a
1 parent 4b93429
commit a42125a
Showing 1 changed file with 13 additions and 0 deletions.
diff --git 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)