Rename Wire.hs to Connection.hs

4 files changed, 7 insertions, 6 deletions

diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Connection.hs
index 53c9afb2..b23eb08b 100644
--- a/src/Network/BitTorrent/Exchange/Wire.hs
+++ b/src/Network/BitTorrent/Exchange/Connection.hs
@@ -18,7 +18,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
-module Network.BitTorrent.Exchange.Wire
+module Network.BitTorrent.Exchange.Connection
        ( -- * Wire
          Connected
        , Wire
@@ -125,8 +125,8 @@ import System.Timeout
 import Data.Torrent.Bitfield as BF
 import Data.Torrent.InfoHash
 import Network.BitTorrent.Core
+import Network.BitTorrent.Exchange.Connection.Status
 import Network.BitTorrent.Exchange.Message as Msg
-import Network.BitTorrent.Exchange.Wire.Status
 
 -- TODO handle port message?
 -- TODO handle limits?
diff --git a/src/Network/BitTorrent/Exchange/Wire/Status.hs b/src/Network/BitTorrent/Exchange/Connection/Status.hs
index d1b60f11..b4b10371 100644
--- a/src/Network/BitTorrent/Exchange/Wire/Status.hs
+++ b/src/Network/BitTorrent/Exchange/Connection/Status.hs
@@ -9,7 +9,7 @@
 --   sides.
 --
 {-# LANGUAGE TemplateHaskell   #-}
-module Network.BitTorrent.Exchange.Wire.Status
+module Network.BitTorrent.Exchange.Connection.Status
        ( -- * Peer status
          PeerStatus(..)
        , choking
diff --git a/src/Network/BitTorrent/Exchange/Manager.hs b/src/Network/BitTorrent/Exchange/Manager.hs
index 52a51a8d..f7f3cea7 100644
--- a/src/Network/BitTorrent/Exchange/Manager.hs
+++ b/src/Network/BitTorrent/Exchange/Manager.hs
@@ -14,8 +14,9 @@ import Network.Socket
 
 import Data.Torrent.InfoHash
 import Network.BitTorrent.Core
+import Network.BitTorrent.Exchange.Connection hiding (Options)
 import Network.BitTorrent.Exchange.Session
-import Network.BitTorrent.Exchange.Wire hiding (Options)
+
 
 data Options = Options
   { optBacklog  :: Int
diff --git a/src/Network/BitTorrent/Exchange/Session.hs b/src/Network/BitTorrent/Exchange/Session.hs
index f9e8433f..a0eaadaa 100644
--- a/src/Network/BitTorrent/Exchange/Session.hs
+++ b/src/Network/BitTorrent/Exchange/Session.hs
@@ -46,11 +46,11 @@ import Data.Torrent.Piece
 import qualified Data.Torrent.Piece as Torrent (Piece ())
 import Network.BitTorrent.Core
 import Network.BitTorrent.Exchange.Block   as Block
+import Network.BitTorrent.Exchange.Connection
+import Network.BitTorrent.Exchange.Connection.Status
 import Network.BitTorrent.Exchange.Message as Message
 import Network.BitTorrent.Exchange.Session.Metadata as Metadata
 import Network.BitTorrent.Exchange.Session.Status   as SS
-import Network.BitTorrent.Exchange.Wire
-import Network.BitTorrent.Exchange.Wire.Status
 import System.Torrent.Storage
 
 {-----------------------------------------------------------------------