diff options
Diffstat (limited to 'examples/MkTorrent.hs')
| -rw-r--r-- | examples/MkTorrent.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/MkTorrent.hs b/examples/MkTorrent.hs index e9eb7f1a..87a7d45e 100644 --- a/examples/MkTorrent.hs +++ b/examples/MkTorrent.hs | |||
| @@ -361,7 +361,8 @@ exchangeTorrent ih addr = do | |||
| 361 | pid <- genPeerId | 361 | pid <- genPeerId |
| 362 | var <- newEmptyMVar | 362 | var <- newEmptyMVar |
| 363 | let hs = Handshake def (toCaps [ExtExtended]) ih pid | 363 | let hs = Handshake def (toCaps [ExtExtended]) ih pid |
| 364 | connectWire () hs addr (toCaps [ExtMetadata]) $ do | 364 | chan <- newChan |
| 365 | connectWire () hs addr (toCaps [ExtMetadata]) chan $ do | ||
| 365 | infodict <- getMetadata | 366 | infodict <- getMetadata |
| 366 | liftIO $ putMVar var infodict | 367 | liftIO $ putMVar var infodict |
| 367 | takeMVar var | 368 | takeMVar var |