From a7c82906934d7e640cda5c26448ce4fa232d2b46 Mon Sep 17 00:00:00 2001
From: Sam T <sta.cs.vsu@gmail.com>
Date: Wed, 24 Apr 2013 19:44:32 +0400
Subject: + Add BEP 6 messages.

---
 src/Network/BitTorrent/PeerWire/Block.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Network/BitTorrent/PeerWire/Block.hs')

diff --git a/src/Network/BitTorrent/PeerWire/Block.hs b/src/Network/BitTorrent/PeerWire/Block.hs
index 8e4a1f24..ddbc1020 100644
--- a/src/Network/BitTorrent/PeerWire/Block.hs
+++ b/src/Network/BitTorrent/PeerWire/Block.hs
@@ -1,5 +1,5 @@
 module Network.BitTorrent.PeerWire.Block
-       ( BlockIx(..), Block(..)
+       ( BlockIx(..), Block(..), PieceIx
        , BlockLIx, PieceLIx
        , defaultBlockSize
        , pieceIx, blockIx
@@ -17,7 +17,7 @@ import Data.Serialize
 
 type BlockLIx = Int
 type PieceLIx = Int
-
+type PieceIx = Int
 
 data BlockIx = BlockIx {
     -- ^ Zero-based piece index.
-- 
cgit v1.2.3