From b3a7be20b973974317b7974ee9799a403e3cf8b4 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Tue, 11 Feb 2014 15:28:53 +0400
Subject: Add reference to session from connection

---
 examples/MkTorrent.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'examples/MkTorrent.hs')

diff --git a/examples/MkTorrent.hs b/examples/MkTorrent.hs
index 93ac639b..e9eb7f1a 100644
--- a/examples/MkTorrent.hs
+++ b/examples/MkTorrent.hs
@@ -361,7 +361,7 @@ exchangeTorrent ih addr = do
   pid <- genPeerId
   var <- newEmptyMVar
   let hs = Handshake def (toCaps [ExtExtended]) ih pid
-  connectWire hs addr (toCaps [ExtMetadata]) $ do
+  connectWire () hs addr (toCaps [ExtMetadata]) $ do
     infodict <- getMetadata
     liftIO $ putMVar var infodict
   takeMVar var
-- 
cgit v1.2.3