~ Merge Block and Handshake into Protocol.

We could provide better api this way. Also this refactoring should
reduce compilation time.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Data/Bitfield.hs b/src/Data/Bitfield.hs
index 56365bf7..7cd07123 100644
--- a/src/Data/Bitfield.hs
+++ b/src/Data/Bitfield.hs
@@ -13,7 +13,7 @@
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE RecordWildCards #-}
 module Data.Bitfield
-       ( Bitfield, PieceCount
+       ( PieceIx, PieceCount, Bitfield
 
          -- * Construction
        , haveAll, haveNone, have
@@ -54,9 +54,10 @@ import qualified  Data.IntervalSet.ByteString as S
 import           Data.List (foldl')
 import           Data.Monoid
 import           Data.Ratio
-import Network.BitTorrent.PeerWire.Block
 
 
+type PieceIx = Int
+
 -- | Used to represent max set bound. Min set bound is always set to
 -- zero.
 type PieceCount = Int