WIP: Adapting DHT to Tox network.

1 files changed, 8 insertions, 2 deletions

diff --git a/src/Network/BitTorrent/DHT/Token.hs b/src/Network/BitTorrent/DHT/Token.hs
index 3f71aabe..4c930cbc 100644
--- a/src/Network/BitTorrent/DHT/Token.hs
+++ b/src/Network/BitTorrent/DHT/Token.hs
@@ -17,7 +17,7 @@
 -- must be accepted for a reasonable amount of time after they have
 -- been distributed.
 --
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving, CPP #-}
 module Network.BitTorrent.DHT.Token
        ( -- * Token
          Token
@@ -38,7 +38,9 @@ module Network.BitTorrent.DHT.Token
        ) where
 
 import Control.Monad.State
+#ifdef VERSION_bencoding
 import Data.BEncode (BEncode)
+#endif
 import Data.ByteString as BS
 import Data.ByteString.Char8 as B8
 import Data.ByteString.Lazy as BL
@@ -57,7 +59,11 @@ import Network.BitTorrent.Address
 
 -- | An opaque value.
 newtype Token = Token BS.ByteString
-  deriving (Eq, BEncode, IsString)
+  deriving ( Eq, IsString
+#ifdef VERSION_bencoding
+           , BEncode
+#endif
+           )
 
 instance Show Token where
     show (Token bs) = B8.unpack $ Base16.encode bs