4 files changed, 5 insertions, 5 deletions

diff --git a/src/Network/BitTorrent/PeerWire/Bitfield.hs b/src/Data/Bitfield.hs
index 03273899..ac647791 100644
--- a/src/Network/BitTorrent/PeerWire/Bitfield.hs
+++ b/src/Data/Bitfield.hs
@@ -12,7 +12,7 @@
 --
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE RankNTypes #-}
-module Network.BitTorrent.PeerWire.Bitfield
+module Data.Bitfield
 -- TODO: move to Data.Bitfield
        ( Bitfield(..)
 
@@ -51,7 +51,7 @@ import Foreign
 --import Network.BitTorrent.PeerWire.Block
 import Data.Torrent
 
--- one good idea is to aggregate frequently used stats in reducer
+-- TODO: one good idea is to aggregate frequently used stats in reducer
 -- it should give a big boost
 newtype Bitfield = MkBitfield {
     bfBits :: ByteString
diff --git a/src/Network/BitTorrent/PeerWire.hs b/src/Network/BitTorrent/PeerWire.hs
index 6d8ff156..d0583bff 100644
--- a/src/Network/BitTorrent/PeerWire.hs
+++ b/src/Network/BitTorrent/PeerWire.hs
@@ -9,7 +9,6 @@
 module Network.BitTorrent.PeerWire (module PW) where
 
 import Network.BitTorrent.PeerWire.Block as PW
-import Network.BitTorrent.PeerWire.Bitfield as PW
 import Network.BitTorrent.PeerWire.Selection as PW
 import Network.BitTorrent.PeerWire.Message as PW
 import Network.BitTorrent.PeerWire.Handshake as PW
diff --git a/src/Network/BitTorrent/PeerWire/Message.hs b/src/Network/BitTorrent/PeerWire/Message.hs
index cc771966..39102eed 100644
--- a/src/Network/BitTorrent/PeerWire/Message.hs
+++ b/src/Network/BitTorrent/PeerWire/Message.hs
@@ -10,7 +10,7 @@ import qualified Data.ByteString as B
 import Data.Serialize
 
 import Network.BitTorrent.PeerWire.Block
-import Network.BitTorrent.PeerWire.Bitfield
+import Data.Bitfield
 
 import Data.Array
 
diff --git a/src/Network/BitTorrent/PeerWire/Selection.hs b/src/Network/BitTorrent/PeerWire/Selection.hs
index 2e17317e..83ab8311 100644
--- a/src/Network/BitTorrent/PeerWire/Selection.hs
+++ b/src/Network/BitTorrent/PeerWire/Selection.hs
@@ -29,9 +29,10 @@ module Network.BitTorrent.PeerWire.Selection
        , autoSelector
        ) where
 
+import Data.Bitfield
 import Network.BitTorrent.PeerWire.Block
 import Network.BitTorrent.PeerWire.Message
-import Network.BitTorrent.PeerWire.Bitfield
+
 
 
 type Selector =  Bitfield      -- ^ Indices of client "have" pieces.