Populate the certificateDeposits{Returned,Taken} fields in `selectA…

…ssets`.
cardano-foundation · Sep 23, 2021 · 0e6d390 · 0e6d390
1 parent 649a942
commit 0e6d390
Showing 1 changed file with 9 additions and 8 deletions.
diff --git a/lib/core/src/Cardano/Wallet.hs b/lib/core/src/Cardano/Wallet.hs
@@ -1544,14 +1544,15 @@ selectAssets ctx (utxoAvailable, cp, pending) txCtx outputs transform = do
             , assetsToMint = TokenMap.empty
             , outputsToCover = outputs
             , rewardWithdrawal =
-                addCoin (withdrawalToCoin $ view #txWithdrawal txCtx)
-                $ case view #txDelegationAction txCtx of
-                    Just Quit -> stakeKeyDeposit pp
-                    _ -> Coin 0
-            -- TODO: [ADP-919]
-            , certificateDepositsReturned = 0
-            -- TODO: [ADP-919]
-            , certificateDepositsTaken = 0
+                withdrawalToCoin $ view #txWithdrawal txCtx
+            , certificateDepositsReturned =
+                case view #txDelegationAction txCtx of
+                    Just Quit -> 1
+                    _ -> 0
+            , certificateDepositsTaken =
+                case view #txDelegationAction txCtx of
+                    Just (RegisterKeyAndJoin _) -> 1
+                    _ -> 0
             , utxoAvailable
             }
     case mSel of