[ADP-3476] Bump cardano-node-runtime flake input (#4835)

- bump the cardano-node-runtime input ADP-3476
cardano-foundation · Nov 15, 2024 · c3a6712 · c3a6712
2 parents b49617f + d9e5df5
commit c3a6712
Show file tree

Hide file tree

Showing 7 changed files with 449 additions and 84 deletions.
diff --git a/flake.lock b/flake.lock
diff --git a/lib/api/src/Cardano/Wallet/Api/Http/Shelley/Server.hs b/lib/api/src/Cardano/Wallet/Api/Http/Shelley/Server.hs
@@ -663,6 +663,7 @@ import Cardano.Wallet.Transaction
     , Withdrawal (..)
     , WitnessCount (..)
     , WitnessCountCtx (..)
+    , containsSelfWithdrawal
     , defaultTransactionCtx
     )
 import Cardano.Wallet.Unsafe
@@ -2289,6 +2290,8 @@ postTransactionOld ctx@ApiLayer{..} argGenChange (ApiT wid) body = do
     let outs = addressAmountToTxOut <$> body ^. #payments
     let md = body ^? #metadata . traverse . #txMetadataWithSchema_metadata
     let mTTL = body ^? #timeToLive . traverse . #getQuantity
+    (Write.PParamsInAnyRecentEra era _, _)
+        <- liftIO $ W.readNodeTipStateForTxWrite netLayer
     withWorkerCtx ctx wid liftE liftE $ \wrk -> do
         let db = wrk ^. dbLayer
         ttl <- liftIO $ W.transactionExpirySlot ti mTTL
@@ -2300,6 +2303,8 @@ postTransactionOld ctx@ApiLayer{..} argGenChange (ApiT wid) body = do
                     (txWitnessTagForKey $ keyOfWallet $ walletFlavor @s)
                     db
                     apiWdrl
+        when (containsSelfWithdrawal wdrl) $
+            liftHandler $ W.assertIsVoting db era
         let txCtx = defaultTransactionCtx
                 { txWithdrawal = wdrl
                 , txMetadata = md