summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Data/Tox.hs4
-rw-r--r--src/Network/BitTorrent/Address.hs2
-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
-rw-r--r--src/Network/DHT/Mainline.hs2
-rw-r--r--src/Network/DatagramServer.hs2
-rw-r--r--src/Network/DatagramServer/Types.hs (renamed from src/Network/RPC.hs)2
9 files changed, 10 insertions, 10 deletions
diff --git a/src/Data/Tox.hs b/src/Data/Tox.hs
index b9df7582..b79e0b9a 100644
--- a/src/Data/Tox.hs
+++ b/src/Data/Tox.hs
@@ -23,8 +23,8 @@ import Data.Serialize
23-- import Network.BitTorrent.Address (NodeInfo(..)) -- Serialize IP 23-- import Network.BitTorrent.Address (NodeInfo(..)) -- Serialize IP
24import GHC.Generics (Generic) 24import GHC.Generics (Generic)
25import Network.Socket 25import Network.Socket
26import Network.RPC 26import Network.DatagramServer.Types
27import qualified Network.RPC as Envelope (NodeId) 27import qualified Network.DatagramServer.Types as Envelope (NodeId)
28import Crypto.PubKey.ECC.Types 28import Crypto.PubKey.ECC.Types
29 29
30type Key32 = Word256 -- 32 byte key 30type Key32 = Word256 -- 32 byte key
diff --git a/src/Network/BitTorrent/Address.hs b/src/Network/BitTorrent/Address.hs
index f364abbe..05c6504c 100644
--- a/src/Network/BitTorrent/Address.hs
+++ b/src/Network/BitTorrent/Address.hs
@@ -127,7 +127,7 @@ import System.Locale (defaultTimeLocale)
127#endif 127#endif
128import System.Entropy 128import System.Entropy
129import Data.Digest.CRC32C 129import Data.Digest.CRC32C
130import Network.RPC as RPC 130import Network.DatagramServer.Types as RPC
131import Network.KRPC.Message (KMessageOf) 131import Network.KRPC.Message (KMessageOf)
132-- import Network.DHT.Mainline 132-- import Network.DHT.Mainline
133 133
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)
diff --git a/src/Network/DHT/Mainline.hs b/src/Network/DHT/Mainline.hs
index 2b7db3c7..cf284404 100644
--- a/src/Network/DHT/Mainline.hs
+++ b/src/Network/DHT/Mainline.hs
@@ -25,7 +25,7 @@ import Data.Serialize as S
25import Data.String 25import Data.String
26import Data.Typeable 26import Data.Typeable
27import Network.KRPC.Message as KRPC 27import Network.KRPC.Message as KRPC
28import Network.RPC as RPC 28import Network.DatagramServer.Types as RPC
29import Text.PrettyPrint as PP hiding ((<>)) 29import Text.PrettyPrint as PP hiding ((<>))
30import Text.PrettyPrint.HughesPJClass hiding (($$), (<>)) 30import Text.PrettyPrint.HughesPJClass hiding (($$), (<>))
31 31
diff --git a/src/Network/DatagramServer.hs b/src/Network/DatagramServer.hs
index c083928d..8a803f1d 100644
--- a/src/Network/DatagramServer.hs
+++ b/src/Network/DatagramServer.hs
@@ -134,7 +134,7 @@ import Data.Text as T
134import Data.Text.Encoding as T 134import Data.Text.Encoding as T
135import Data.Tuple 135import Data.Tuple
136import Data.Typeable 136import Data.Typeable
137import Network.RPC 137import Network.DatagramServer.Types
138import Network.KRPC.Message 138import Network.KRPC.Message
139import Network.KRPC.Method hiding (Envelope) 139import Network.KRPC.Method hiding (Envelope)
140import qualified Network.KRPC.Method as KRPC (Envelope) 140import qualified Network.KRPC.Method as KRPC (Envelope)
diff --git a/src/Network/RPC.hs b/src/Network/DatagramServer/Types.hs
index 2333766a..ac18e6ce 100644
--- a/src/Network/RPC.hs
+++ b/src/Network/DatagramServer/Types.hs
@@ -11,7 +11,7 @@
11{-# LANGUAGE ScopedTypeVariables #-} 11{-# LANGUAGE ScopedTypeVariables #-}
12{-# LANGUAGE TypeFamilies #-} 12{-# LANGUAGE TypeFamilies #-}
13{-# LANGUAGE StandaloneDeriving #-} 13{-# LANGUAGE StandaloneDeriving #-}
14module Network.RPC where 14module Network.DatagramServer.Types where
15 15
16import Control.Applicative 16import Control.Applicative
17import qualified Text.ParserCombinators.ReadP as RP 17import qualified Text.ParserCombinators.ReadP as RP