Remove redundant constraint from Cardano.Wallet.joinStakePool.

cardano-foundation · Nov 24, 2021 · 6567e65 · 6567e65
1 parent ba3effe
commit 6567e65
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/lib/core/src/Cardano/Wallet.hs b/lib/core/src/Cardano/Wallet.hs
@@ -2423,11 +2423,10 @@ migrationPlanToSelectionWithdrawals plan rewardWithdrawal outputAddressesToCycle
 -------------------------------------------------------------------------------}
 
 joinStakePool
-    :: forall ctx s k n.
+    :: forall ctx s k.
         ( HasDBLayer IO s k ctx
         , HasNetworkLayer IO ctx
         , HasLogger IO WalletWorkerLog ctx
-        , s ~ SeqState n k
         )
     => ctx
     -> W.EpochNo

diff --git a/lib/core/src/Cardano/Wallet/Api/Server.hs b/lib/core/src/Cardano/Wallet/Api/Server.hs
@@ -1615,7 +1615,7 @@ selectCoinsForJoin ctx knownPools getPoolStatus pid wid = do
 
     withWorkerCtx ctx wid liftE liftE $ \wrk -> do
         (action, deposit) <- liftHandler
-            $ W.joinStakePool @_ @s @k @n wrk curEpoch pools pid poolStatus wid
+            $ W.joinStakePool @_ @s @k wrk curEpoch pools pid poolStatus wid
 
         let txCtx = defaultTransactionCtx
                 { txDelegationAction = Just action
@@ -2295,7 +2295,7 @@ joinStakePool ctx knownPools getPoolStatus apiPoolId (ApiT wid) body = do
 
     (sel, tx, txMeta, txTime) <- withWorkerCtx ctx wid liftE liftE $ \wrk -> do
         (action, _) <- liftHandler
-            $ W.joinStakePool @_ @s @k @n wrk curEpoch pools pid poolStatus wid
+            $ W.joinStakePool @_ @s @k wrk curEpoch pools pid poolStatus wid
 
         (wdrl, mkRwdAcct) <- mkRewardAccountBuilder @_ @s @_ @n ctx wid Nothing
         ttl <- liftIO $ W.getTxExpiry ti Nothing