From 6f2ee57504f1e5427f569b26612e443125df0e97 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= <clement.hurlin@moduscreate.com>
Date: Wed, 29 May 2024 14:17:30 +0200
Subject: [PATCH] transaction view: show current treasury value and donation
 (if any)

---
 cardano-cli/src/Cardano/CLI/Json/Friendly.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/cardano-cli/src/Cardano/CLI/Json/Friendly.hs b/cardano-cli/src/Cardano/CLI/Json/Friendly.hs
index 8a0f5b6f50..1af621de34 100644
--- a/cardano-cli/src/Cardano/CLI/Json/Friendly.hs
+++ b/cardano-cli/src/Cardano/CLI/Json/Friendly.hs
@@ -189,8 +189,8 @@ friendlyTxBodyImpl
          _txScriptValidity
          txProposalProcedures
          txVotingProcedures
-         _txCurrentTreasuryValue
-         _txTreasuryDonation)) =
+         txCurrentTreasuryValue
+         txTreasuryDonation)) =
   do redeemerDetails <- redeemerIfShelleyBased era tb
      return $ cardanoEraConstraints era
                 ( redeemerDetails ++
@@ -231,6 +231,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