diff --git a/lib/core/test/unit/Cardano/WalletSpec.hs b/lib/core/test/unit/Cardano/WalletSpec.hs index ce0cc21d91e..d17b3c9876e 100644 --- a/lib/core/test/unit/Cardano/WalletSpec.hs +++ b/lib/core/test/unit/Cardano/WalletSpec.hs @@ -785,7 +785,8 @@ prop_localTxSubmission tc = monadicIO $ do submittedVar <- newMVar [] (msgs, res) <- captureLogging' $ \tr -> do flip runReaderT st $ unTxRetryTestM $ do - WalletLayerFixture db wl [wid] slotNoTime <- setupFixture $ retryTestWallet tc + WalletLayerFixture db _wl [wid] _slotNoTime <- + setupFixture $ retryTestWallet tc let ctx = TxRetryTestCtx db (mockNetwork submittedVar) tr wid testAction ctx