From aaf7ecf00fe34c4b581937713c3308d7e7221360 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sat, 8 Jun 2013 00:39:24 +0400
Subject: ~ Merge Block and Handshake into Protocol.

We could provide better api this way. Also this refactoring should
reduce compilation time.
---
 src/Data/Bitfield.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Data')

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
-- 
cgit v1.2.3