1 files changed, 2 insertions, 2 deletions

diff --git a/tests/Network/BitTorrent/Tracker/SessionSpec.hs b/tests/Network/BitTorrent/Tracker/SessionSpec.hs
index 2c471752..72936ee7 100644
--- a/tests/Network/BitTorrent/Tracker/SessionSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/SessionSpec.hs
@@ -16,11 +16,11 @@ testSession :: Bool -> (Manager -> Session -> IO ()) -> IO ()
 testSession runEmpty action = do
   t <- getTestTorrent
   withManager def def $ \ m -> do
-    withSession (idInfoHash (tInfoDict t)) (trackerList t) $ \ s ->
+    withSession m (idInfoHash (tInfoDict t)) (trackerList t) $ \ s ->
       action m s
 
     when runEmpty $ do
-      withSession (idInfoHash (tInfoDict t)) def $ \ s ->
+      withSession m (idInfoHash (tInfoDict t)) def $ \ s ->
         action m s
 
 spec :: Spec