Rename Network.BitTorrent.DHT.Routing -> Network.DHT.Routing

5 files changed, 14 insertions, 14 deletions

diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs
index 169abcfc..13f3744f 100644
--- a/src/Network/BitTorrent/DHT.hs
+++ b/src/Network/BitTorrent/DHT.hs
@@ -68,7 +68,7 @@ import Data.Torrent
 import Network.BitTorrent.Address
 import Network.BitTorrent.DHT.Query
 import Network.BitTorrent.DHT.Session
-import Network.BitTorrent.DHT.Routing as T hiding (null)
+import Network.DHT.Routing as T hiding (null)
 import qualified Data.Text as Text
 import Data.Monoid
 import Network.DatagramServer.Mainline (KMessageOf)
diff --git a/src/Network/BitTorrent/DHT/Message.hs b/src/Network/BitTorrent/DHT/Message.hs
index d7fb5e66..34714a6a 100644
--- a/src/Network/BitTorrent/DHT/Message.hs
+++ b/src/Network/BitTorrent/DHT/Message.hs
@@ -24,7 +24,7 @@
 --
 --     * 'FindNode' query /may/ trigger 'Ping' query to check if a
 --     list of nodes to return is /good/. See
---     'Network.BitTorrent.DHT.Routing.Routing' for further explanation.
+--     'Network.DHT.Routing.Routing' for further explanation.
 --
 --     * 'GetPeers' query may trigger 'Ping' query for the same reason.
 --
diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index 9adad163..cd2b5119 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -87,7 +87,7 @@ import Network.DatagramServer.Mainline (ReflectedIP(..))
 import Network.DatagramServer (QueryFailure(..))
 import Data.Torrent
 import Network.BitTorrent.DHT.Message
-import Network.BitTorrent.DHT.Routing as R
+import Network.DHT.Routing as R
 import Network.BitTorrent.DHT.Session
 import Control.Concurrent.STM
 import qualified Network.BitTorrent.DHT.Search as Search
diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs
index 0c819620..730c0059 100644
--- a/src/Network/BitTorrent/DHT/Session.hs
+++ b/src/Network/BitTorrent/DHT/Session.hs
@@ -117,7 +117,7 @@ import Network.BitTorrent.Address
 import Network.BitTorrent.DHT.ContactInfo (PeerStore)
 import qualified Network.BitTorrent.DHT.ContactInfo as P
 import Network.BitTorrent.DHT.Message
-import Network.BitTorrent.DHT.Routing as R
+import Network.DHT.Routing as R
 import Network.BitTorrent.DHT.Token   as T
 
 {-----------------------------------------------------------------------
diff --git a/src/Network/BitTorrent/DHT/Routing.hs b/src/Network/DHT/Routing.hs
index 54c0f7c5..c0a431fa 100644
--- a/src/Network/BitTorrent/DHT/Routing.hs
+++ b/src/Network/DHT/Routing.hs
@@ -22,7 +22,7 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE StandaloneDeriving, FlexibleContexts, MultiParamTypeClasses, FlexibleInstances #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
-module Network.BitTorrent.DHT.Routing
+module Network.DHT.Routing
        ( -- * Table
          Table
        , Info(..)
@@ -35,12 +35,12 @@ module Network.BitTorrent.DHT.Routing
        , NodeCount
 
          -- * Query
-       , Network.BitTorrent.DHT.Routing.null
-       , Network.BitTorrent.DHT.Routing.full
+       , Network.DHT.Routing.null
+       , Network.DHT.Routing.full
        , thisId
        , shape
-       , Network.BitTorrent.DHT.Routing.size
-       , Network.BitTorrent.DHT.Routing.depth
+       , Network.DHT.Routing.size
+       , Network.DHT.Routing.depth
        , compatibleNodeId
 
          -- * Lookup
@@ -50,14 +50,14 @@ module Network.BitTorrent.DHT.Routing
        , kclosest
 
          -- * Construction
-       , Network.BitTorrent.DHT.Routing.nullTable
+       , Network.DHT.Routing.nullTable
        , Event(..)
        , CheckPing(..)
-       , Network.BitTorrent.DHT.Routing.insert
+       , Network.DHT.Routing.insert
 
          -- * Conversion
-       , Network.BitTorrent.DHT.Routing.TableEntry
-       , Network.BitTorrent.DHT.Routing.toList
+       , Network.DHT.Routing.TableEntry
+       , Network.DHT.Routing.toList
 
          -- * Routing
        , Timestamp
@@ -363,7 +363,7 @@ data Table dht ip u
     deriving Generic
 
 instance (Eq ip, Eq (NodeId dht)) => Eq (Table dht ip u) where
-  (==) = (==) `on` Network.BitTorrent.DHT.Routing.toList
+  (==) = (==) `on` Network.DHT.Routing.toList
 
 instance Serialize NominalDiffTime where
   put = putWord32be . fromIntegral   . fromEnum