From 219d72ebde4bab5a516a86608dcb3aede75c1611 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sun, 4 Jun 2017 22:39:14 -0400
Subject: WIP: Adapting DHT to Tox network.

---
 src/Network/BitTorrent/DHT/Session.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Network/BitTorrent/DHT/Session.hs')

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
        , getTable
        , getClosest
 
+#ifdef VERSION_bencoding
          -- ** Peer storage
        , insertPeer
        , getPeerList
@@ -64,6 +65,7 @@ module Network.BitTorrent.DHT.Session
        , savePeerStore
        , mergeSavedPeers
        , allPeers
+#endif
 
          -- ** Messaging
        , queryParallel
@@ -482,6 +484,7 @@ getTimestamp = do
   return $ utcTimeToPOSIXSeconds utcTime
 
 
+#ifdef VERSION_bencoding
 -- | Prepare result for 'get_peers' query.
 --
 --   This operation use 'getClosest' as failback so it may block.
@@ -503,6 +506,8 @@ deleteTopic ih p = do
   var <- asks announceInfo
   liftIO $ atomically $ modifyTVar' var (S.delete (ih, p))
 
+#endif
+
 {-----------------------------------------------------------------------
 -- Messaging
 -----------------------------------------------------------------------}
-- 
cgit v1.2.3