From 14a90a6848b4fb39cd61459746ca8ea136adffb0 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Thu, 3 Apr 2014 00:36:33 +0400
Subject: [Tracker] Update spec

---
 tests/Network/BitTorrent/Tracker/SessionSpec.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/Network/BitTorrent/Tracker/SessionSpec.hs')

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
-- 
cgit v1.2.3