diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT/Message.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT/Message.hs | 4 |
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 | |||
113 | 113 | ||
114 | import Data.Torrent (InfoHash) | 114 | import Data.Torrent (InfoHash) |
115 | import Network.BitTorrent.DHT.Token | 115 | import Network.BitTorrent.DHT.Token |
116 | #ifdef VERSION_bencoding | ||
116 | import Network.KRPC () | 117 | import Network.KRPC () |
117 | import Network.DHT.Mainline () | 118 | import Network.DHT.Mainline () |
119 | #endif | ||
118 | import Network.RPC hiding (Query,Response) | 120 | import Network.RPC hiding (Query,Response) |
119 | 121 | ||
120 | {----------------------------------------------------------------------- | 122 | {----------------------------------------------------------------------- |
@@ -237,7 +239,7 @@ instance KRPC (Query Ping) (Response Ping) where | |||
237 | #ifdef VERSION_bencoding | 239 | #ifdef VERSION_bencoding |
238 | newtype FindNode ip = FindNode (NodeId KMessageOf) | 240 | newtype FindNode ip = FindNode (NodeId KMessageOf) |
239 | #else | 241 | #else |
240 | data FindNode ip = FindNode NodeId Tox.Nonce8 -- Tox: Get Nodes | 242 | data FindNode ip = FindNode (NodeId Tox.Message) Tox.Nonce8 -- Tox: Get Nodes |
241 | #endif | 243 | #endif |
242 | deriving (Show, Eq, Typeable) | 244 | deriving (Show, Eq, Typeable) |
243 | 245 | ||