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
        , 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
 -----------------------------------------------------------------------}