diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-15 04:18:05 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-15 04:18:05 +0400 |
| commit | 0fa6a0ee5eb1fbf648d3864626430efcbdb4aaae (patch) | |
| tree | 7d2c6b8db43943974772069efb22480db8186bb1 /examples | |
| parent | daf978ddd1f0a07ce4711fa97f51d0ec02478f73 (diff) | |
Move metadata exchange from Wire to Session
Diffstat (limited to 'examples')
| -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 | ||