1 files changed, 1 insertions, 1 deletions

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