diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-11 15:28:53 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-11 15:28:53 +0400 |
| commit | b3a7be20b973974317b7974ee9799a403e3cf8b4 (patch) | |
| tree | 1106303109db502d33c051cd043fdd36ffcbe17a /examples/MkTorrent.hs | |
| parent | d8aeb3c5a832b4df45437b7e3e38d2547e291d9e (diff) | |
Add reference to session from connection
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 93ac639b..e9eb7f1a 100644 --- a/examples/MkTorrent.hs +++ b/examples/MkTorrent.hs | |||
| @@ -361,7 +361,7 @@ 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 | connectWire () hs addr (toCaps [ExtMetadata]) $ do |
| 365 | infodict <- getMetadata | 365 | infodict <- getMetadata |
| 366 | liftIO $ putMVar var infodict | 366 | liftIO $ putMVar var infodict |
| 367 | takeMVar var | 367 | takeMVar var |