transaction view: show current treasury value and donation (if any)

IntersectMBO · Jun 5, 2024 · 236d811 · 236d811
1 parent 2abc2a3
commit 236d811
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Json/Friendly.hs b/cardano-cli/src/Cardano/CLI/Json/Friendly.hs
@@ -186,6 +186,8 @@ friendlyTxBodyImpl
       , txValidityLowerBound
       , txValidityUpperBound
       , txWithdrawals
+      , txCurrentTreasuryValue
+      , txTreasuryDonation
       }) =
   do redeemerDetails <- redeemerIfShelleyBased era tb
      return $ cardanoEraConstraints era
@@ -227,6 +229,8 @@ friendlyTxBodyImpl
                              Just (Featured _ (TxVotingProcedures votes _witnesses)) ->
                                friendlyVotingProcedures cOnwards votes)
                         era)
+                  , "currentTreasuryValue" .= toJSON (unFeatured <$> txCurrentTreasuryValue)
+                  , "treasuryDonation" .= toJSON (unFeatured <$> txTreasuryDonation)
                   ])
   where
     friendlyLedgerProposals :: ConwayEraOnwards era -> [L.ProposalProcedure (ShelleyLedgerEra era)] -> Aeson.Value