WIP: Adapting DHT to Tox network (part 6).

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/DHT/Message.hs b/src/Network/BitTorrent/DHT/Message.hs
index c3df683a..c99c72bb 100644
--- a/src/Network/BitTorrent/DHT/Message.hs
+++ b/src/Network/BitTorrent/DHT/Message.hs
@@ -113,8 +113,10 @@ import Data.Maybe
 
 import Data.Torrent (InfoHash)
 import Network.BitTorrent.DHT.Token
+#ifdef VERSION_bencoding
 import Network.KRPC ()
 import Network.DHT.Mainline ()
+#endif
 import Network.RPC hiding (Query,Response)
 
 {-----------------------------------------------------------------------
@@ -237,7 +239,7 @@ instance KRPC (Query Ping) (Response Ping) where
 #ifdef VERSION_bencoding
 newtype FindNode ip = FindNode (NodeId KMessageOf)
 #else
-data FindNode ip = FindNode NodeId Tox.Nonce8 -- Tox: Get Nodes
+data FindNode ip = FindNode (NodeId Tox.Message) Tox.Nonce8 -- Tox: Get Nodes
 #endif
   deriving (Show, Eq, Typeable)