From 2b617c99c60a5ed93eb2e9138f258663ab2603bd Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sat, 8 Jun 2013 02:14:00 +0400
Subject: ~ Fix build fail after renaming.

---
 src/Network/BitTorrent/Exchange.hs           | 6 +++---
 src/Network/BitTorrent/Exchange/Protocol.hs  | 2 +-
 src/Network/BitTorrent/Exchange/Selection.hs | 4 ++--
 src/Network/BitTorrent/Exchange/Status.hs    | 2 +-
 4 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/Network/BitTorrent')

diff --git a/src/Network/BitTorrent/Exchange.hs b/src/Network/BitTorrent/Exchange.hs
index 08e3f388..d75fdf96 100644
--- a/src/Network/BitTorrent/Exchange.hs
+++ b/src/Network/BitTorrent/Exchange.hs
@@ -6,10 +6,10 @@
 --   Portability :  portable
 --
 {-# LANGUAGE DoAndIfThenElse #-}
-module Network.BitTorrent.PeerWire (module PW) where
+module Network.BitTorrent.Exchange (module PW) where
 
-import Network.BitTorrent.PeerWire.Selection as PW
-import Network.BitTorrent.PeerWire.Protocol as PW
+import Network.BitTorrent.Exchange.Selection as PW
+import Network.BitTorrent.Exchange.Protocol as PW
 
 {-
 
diff --git a/src/Network/BitTorrent/Exchange/Protocol.hs b/src/Network/BitTorrent/Exchange/Protocol.hs
index cab54ef5..8cfcc79d 100644
--- a/src/Network/BitTorrent/Exchange/Protocol.hs
+++ b/src/Network/BitTorrent/Exchange/Protocol.hs
@@ -12,7 +12,7 @@
 --
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
-module Network.BitTorrent.PeerWire.Protocol
+module Network.BitTorrent.Exchange.Protocol
        ( -- * Inital handshake
          Handshake(..), ppHandshake
        , handshake , handshakeCaps
diff --git a/src/Network/BitTorrent/Exchange/Selection.hs b/src/Network/BitTorrent/Exchange/Selection.hs
index db9e04f4..ef47876a 100644
--- a/src/Network/BitTorrent/Exchange/Selection.hs
+++ b/src/Network/BitTorrent/Exchange/Selection.hs
@@ -21,7 +21,7 @@
 --   Note that BitTorrent applies the strict priority policy for
 --   /subpiece/ or /blocks/ selection.
 --
-module Network.BitTorrent.PeerWire.Selection
+module Network.BitTorrent.Exchange.Selection
        ( Selector
 
        -- * Construction
@@ -34,7 +34,7 @@ module Network.BitTorrent.PeerWire.Selection
 
 import Data.Bitfield
 import Data.Ratio
-import Network.BitTorrent.PeerWire.Protocol
+import Network.BitTorrent.Exchange.Protocol
 
 
 type Selector =  Bitfield      -- ^ Indices of client /have/ pieces.
diff --git a/src/Network/BitTorrent/Exchange/Status.hs b/src/Network/BitTorrent/Exchange/Status.hs
index 806ba77d..353ef14d 100644
--- a/src/Network/BitTorrent/Exchange/Status.hs
+++ b/src/Network/BitTorrent/Exchange/Status.hs
@@ -5,7 +5,7 @@
 --   Stability   :  experimental
 --   Portability :  portable
 --
-module Network.BitTorrent.Peer.Status
+module Network.BitTorrent.Exchange.Status
        ( PeerStatus(..)
        , setChoking, setInterested
        , initPeerStatus
-- 
cgit v1.2.3