post rebase fix

cardano-foundation · May 30, 2023 · 419638e · 419638e
1 parent 2f5106f
commit 419638e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/lib/wallet/api/http/Cardano/Wallet/Api/Http/Shelley/Server.hs b/lib/wallet/api/http/Cardano/Wallet/Api/Http/Shelley/Server.hs
@@ -2897,7 +2897,7 @@ constructSharedTransaction
         withdrawal <- case body ^. #withdrawal of
             Just SelfWithdraw -> liftIO $
                 W.mkSelfWithdrawalShared @n
-                    netLayer (txWitnessTagFor @SharedKey) era db
+                    netLayer (txWitnessTagFor @SharedKey) db
             _ -> pure NoWithdrawal
 
         let delegationTemplateM = Shared.delegationTemplate $ getState cp

diff --git a/lib/wallet/src/Cardano/Wallet.hs b/lib/wallet/src/Cardano/Wallet.hs
@@ -1276,15 +1276,14 @@ mkSelfWithdrawalShared
     :: forall n block
      . NetworkLayer IO block
     -> TxWitnessTag
-    -> AnyCardanoEra
     -> DBLayer IO (SharedState n SharedKey)
     -> IO Withdrawal
-mkSelfWithdrawalShared netLayer txWitnessTag era db = do
+mkSelfWithdrawalShared netLayer txWitnessTag db = do
     (rewardAccount, _, derivationPath) <-
         readRewardAccount @(SharedState n SharedKey) db
     balance <- getCachedRewardAccountBalance netLayer rewardAccount
     pp <- currentProtocolParameters netLayer
-    return $ case checkRewardIsWorthTxCost txWitnessTag pp era balance of
+    return $ case checkRewardIsWorthTxCost txWitnessTag pp balance of
         Left ErrWithdrawalNotBeneficial -> NoWithdrawal
         Right () -> WithdrawalSelf rewardAccount derivationPath balance