summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/DHT')
-rw-r--r--src/Network/BitTorrent/DHT/Message.hs2
-rw-r--r--src/Network/BitTorrent/DHT/Query.hs2
-rw-r--r--src/Network/BitTorrent/DHT/Routing.hs2
-rw-r--r--src/Network/BitTorrent/DHT/Search.hs2
4 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/BitTorrent/DHT/Message.hs b/src/Network/BitTorrent/DHT/Message.hs
index 706d181a..2a2cee35 100644
--- a/src/Network/BitTorrent/DHT/Message.hs
+++ b/src/Network/BitTorrent/DHT/Message.hs
@@ -117,7 +117,7 @@ import Network.BitTorrent.DHT.Token
117import Network.DatagramServer () 117import Network.DatagramServer ()
118import Network.DHT.Mainline () 118import Network.DHT.Mainline ()
119#endif 119#endif
120import Network.RPC hiding (Query,Response) 120import Network.DatagramServer.Types hiding (Query,Response)
121 121
122{----------------------------------------------------------------------- 122{-----------------------------------------------------------------------
123-- envelopes 123-- envelopes
diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index 0219adfa..90cdcbee 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -99,7 +99,7 @@ import Data.ByteString (ByteString)
99import Data.Tox 99import Data.Tox
100#endif 100#endif
101import Network.BitTorrent.Address hiding (NodeId) 101import Network.BitTorrent.Address hiding (NodeId)
102import Network.RPC as RPC hiding (Query,Response) 102import Network.DatagramServer.Types as RPC hiding (Query,Response)
103 103
104{----------------------------------------------------------------------- 104{-----------------------------------------------------------------------
105-- Handlers 105-- Handlers
diff --git a/src/Network/BitTorrent/DHT/Routing.hs b/src/Network/BitTorrent/DHT/Routing.hs
index 42728a53..c64678e0 100644
--- a/src/Network/BitTorrent/DHT/Routing.hs
+++ b/src/Network/BitTorrent/DHT/Routing.hs
@@ -315,7 +315,7 @@ split i b = (Bucket ns qs, Bucket ms rs)
315 (qs,rs) = runIdentity $ partitionQ bucketQ spanBit $ bktQ b 315 (qs,rs) = runIdentity $ partitionQ bucketQ spanBit $ bktQ b
316 {- 316 {-
317 spanBit :: forall (dht :: * -> *) addr u. 317 spanBit :: forall (dht :: * -> *) addr u.
318 FiniteBits (Network.RPC.NodeId dht) => 318 FiniteBits (Network.DatagramServer.Types.NodeId dht) =>
319 NodeInfo dht addr u -> Bool 319 NodeInfo dht addr u -> Bool
320 -} 320 -}
321 spanBit :: NodeInfo dht addr u -> Bool 321 spanBit :: NodeInfo dht addr u -> Bool
diff --git a/src/Network/BitTorrent/DHT/Search.hs b/src/Network/BitTorrent/DHT/Search.hs
index 844b4575..c60ae48f 100644
--- a/src/Network/BitTorrent/DHT/Search.hs
+++ b/src/Network/BitTorrent/DHT/Search.hs
@@ -24,7 +24,7 @@ import qualified Data.MinMaxPSQ as MM
24import qualified Data.Wrapper.PSQ as PSQ 24import qualified Data.Wrapper.PSQ as PSQ
25 ;import Data.Wrapper.PSQ (pattern (:->), Binding, PSQ) 25 ;import Data.Wrapper.PSQ (pattern (:->), Binding, PSQ)
26import Network.BitTorrent.Address hiding (NodeId) 26import Network.BitTorrent.Address hiding (NodeId)
27import Network.RPC 27import Network.DatagramServer.Types
28#ifdef VERSION_bencoding 28#ifdef VERSION_bencoding
29import Network.DHT.Mainline () 29import Network.DHT.Mainline ()
30import Network.KRPC.Message (KMessageOf) 30import Network.KRPC.Message (KMessageOf)