diff options
Diffstat (limited to 'examples/MkTorrent.hs')
-rw-r--r-- | examples/MkTorrent.hs | 2 |
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 | ||