diff options
author | joe <joe@jerkface.net> | 2017-06-04 22:39:14 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-06-04 22:39:14 -0400 |
commit | 219d72ebde4bab5a516a86608dcb3aede75c1611 (patch) | |
tree | df111d38c3532b9342f30c1bad98ef095569d54f /src/Network/BitTorrent/DHT/Session.hs | |
parent | 713cee07450697e40811e74059739da02dd604c7 (diff) |
WIP: Adapting DHT to Tox network.
Diffstat (limited to 'src/Network/BitTorrent/DHT/Session.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT/Session.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index bad783a5..82926b28 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs | |||
@@ -55,6 +55,7 @@ module Network.BitTorrent.DHT.Session | |||
55 | , getTable | 55 | , getTable |
56 | , getClosest | 56 | , getClosest |
57 | 57 | ||
58 | #ifdef VERSION_bencoding | ||
58 | -- ** Peer storage | 59 | -- ** Peer storage |
59 | , insertPeer | 60 | , insertPeer |
60 | , getPeerList | 61 | , getPeerList |
@@ -64,6 +65,7 @@ module Network.BitTorrent.DHT.Session | |||
64 | , savePeerStore | 65 | , savePeerStore |
65 | , mergeSavedPeers | 66 | , mergeSavedPeers |
66 | , allPeers | 67 | , allPeers |
68 | #endif | ||
67 | 69 | ||
68 | -- ** Messaging | 70 | -- ** Messaging |
69 | , queryParallel | 71 | , queryParallel |
@@ -482,6 +484,7 @@ getTimestamp = do | |||
482 | return $ utcTimeToPOSIXSeconds utcTime | 484 | return $ utcTimeToPOSIXSeconds utcTime |
483 | 485 | ||
484 | 486 | ||
487 | #ifdef VERSION_bencoding | ||
485 | -- | Prepare result for 'get_peers' query. | 488 | -- | Prepare result for 'get_peers' query. |
486 | -- | 489 | -- |
487 | -- This operation use 'getClosest' as failback so it may block. | 490 | -- This operation use 'getClosest' as failback so it may block. |
@@ -503,6 +506,8 @@ deleteTopic ih p = do | |||
503 | var <- asks announceInfo | 506 | var <- asks announceInfo |
504 | liftIO $ atomically $ modifyTVar' var (S.delete (ih, p)) | 507 | liftIO $ atomically $ modifyTVar' var (S.delete (ih, p)) |
505 | 508 | ||
509 | #endif | ||
510 | |||
506 | {----------------------------------------------------------------------- | 511 | {----------------------------------------------------------------------- |
507 | -- Messaging | 512 | -- Messaging |
508 | -----------------------------------------------------------------------} | 513 | -----------------------------------------------------------------------} |