feature(cardano-db): Add support for tx.treasury_donation

Author: sgillespie

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Allegra.hs

@@ -76,6 +76,7 @@ fromAllegraTx (blkIndex, tx) =
     , txExtraKeyWitnesses = []
     , txVotingProcedure = []
     , txProposalProcedure = []
+    , txTreasuryDonation = mempty -- Allegra does not support treasury donations
     }
   where
     txBody :: Core.TxBody StandardAllegra

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Alonzo.hs

@@ -109,6 +109,7 @@ fromAlonzoTx ioExtraPlutus mprices (blkIndex, tx) =
     , txExtraKeyWitnesses = extraKeyWits txBody
     , txVotingProcedure = []
     , txProposalProcedure = []
+    , txTreasuryDonation = mempty -- Alonzo does not support treasury donations
     }
   where
     txBody :: Alonzo.AlonzoTxBody StandardAlonzo

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Babbage.hs

@@ -78,6 +78,7 @@ fromBabbageTx ioExtraPlutus mprices (blkIndex, tx) =
     , txExtraKeyWitnesses = extraKeyWits txBody
     , txVotingProcedure = []
     , txProposalProcedure = []
+    , txTreasuryDonation = mempty -- Babbage does not support treasury donations
     }
   where
     txBody :: Core.TxBody StandardBabbage

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Conway.hs

@@ -70,6 +70,7 @@ fromConwayTx ioExtraPlutus mprices (blkIndex, tx) =
     , txExtraKeyWitnesses = extraKeyWits txBody
     , txVotingProcedure = Map.toList $ fmap Map.toList (unVotingProcedures $ ctbVotingProcedures txBody)
     , txProposalProcedure = zipWith mkProposalIndex [0 ..] $ toList $ ctbProposalProcedures txBody
+    , txTreasuryDonation = ctbTreasuryDonation txBody
     }
   where
     txBody :: Core.TxBody StandardConway

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Mary.hs

@@ -49,6 +49,7 @@ fromMaryTx (blkIndex, tx) =
     , txExtraKeyWitnesses = []
     , txVotingProcedure = []
     , txProposalProcedure = []
+    , txTreasuryDonation = mempty -- Mary does not support treasury donations
     }
   where
     txBody :: Core.TxBody StandardMary

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Shelley.hs

@@ -81,6 +81,7 @@ fromShelleyTx (blkIndex, tx) =
     , txExtraKeyWitnesses = []
     , txVotingProcedure = []
     , txProposalProcedure = []
+    , txTreasuryDonation = mempty -- Shelley does not support treasury donations
     }
   where
     txBody :: Core.TxBody StandardShelley

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Types.hs

@@ -74,6 +74,7 @@ data Tx = Tx
   , txExtraKeyWitnesses :: ![ByteString]
   , txVotingProcedure :: ![(Voter StandardCrypto, [(GovActionId StandardCrypto, VotingProcedure StandardConway)])]
   , txProposalProcedure :: ![(GovActionId StandardCrypto, ProposalProcedure StandardConway)]
+  , txTreasuryDonation :: !Coin
   }
 
 type ShelleyCert = ShelleyTxCert StandardShelley

cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert/Tx.hs

@@ -77,6 +77,7 @@ insertTx syncEnv isMember blkId epochNo slotNo applyResult blockIndex tx grouped
   let !mdeposits = if not (Generic.txValidContract tx) then Just (Coin 0) else lookupDepositsMap txHash (apDepositsMap applyResult)
   let !outSum = fromIntegral $ unCoin $ Generic.txOutSum tx
       !withdrawalSum = fromIntegral $ unCoin $ Generic.txWithdrawalSum tx
+      !treasuryDonation = fromIntegral . unCoin $ Generic.txTreasuryDonation tx
       hasConsumed = getHasConsumedOrPruneTxOut syncEnv
   disInOut <- liftIO $ getDisableInOutState syncEnv
   -- In some txs and with specific configuration we may be able to find necessary data within the tx body.
@@ -117,7 +118,7 @@ insertTx syncEnv isMember blkId epochNo slotNo applyResult blockIndex tx grouped
         , DB.txInvalidHereafter = DbWord64 . unSlotNo <$> Generic.txInvalidHereafter tx
         , DB.txValidContract = Generic.txValidContract tx
         , DB.txScriptSize = sum $ Generic.txScriptSizes tx
-        , DB.txTreasuryDonation = DB.DbLovelace 0
+        , DB.txTreasuryDonation = DB.DbLovelace treasuryDonation
         }
 
   when (ioTxCBOR iopts) $ do