summaryrefslogtreecommitdiff
path: root/examples/MkTorrent.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/MkTorrent.hs')
-rw-r--r--examples/MkTorrent.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/MkTorrent.hs b/examples/MkTorrent.hs
index 87a7d45e..e86db853 100644
--- a/examples/MkTorrent.hs
+++ b/examples/MkTorrent.hs
@@ -363,7 +363,7 @@ exchangeTorrent ih addr = do
363 let hs = Handshake def (toCaps [ExtExtended]) ih pid 363 let hs = Handshake def (toCaps [ExtExtended]) ih pid
364 chan <- newChan 364 chan <- newChan
365 connectWire () hs addr (toCaps [ExtMetadata]) chan $ do 365 connectWire () hs addr (toCaps [ExtMetadata]) chan $ do
366 infodict <- getMetadata 366 infodict <- undefined -- getMetadata
367 liftIO $ putMVar var infodict 367 liftIO $ putMVar var infodict
368 takeMVar var 368 takeMVar var
369 369