From 279433f8d80f829b9fad6b7e2e60db4f21dfc3ec Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sat, 8 Jun 2013 01:58:51 +0400
Subject: ~ Minor changes.

---
 src/Network/BitTorrent/PeerWire.hs          | 11 +++++++++++
 src/Network/BitTorrent/PeerWire/Protocol.hs |  2 +-
 2 files changed, 12 insertions(+), 1 deletion(-)

(limited to 'src/Network/BitTorrent')

diff --git a/src/Network/BitTorrent/PeerWire.hs b/src/Network/BitTorrent/PeerWire.hs
index b048fe1f..08e3f388 100644
--- a/src/Network/BitTorrent/PeerWire.hs
+++ b/src/Network/BitTorrent/PeerWire.hs
@@ -10,3 +10,14 @@ module Network.BitTorrent.PeerWire (module PW) where
 
 import Network.BitTorrent.PeerWire.Selection as PW
 import Network.BitTorrent.PeerWire.Protocol as PW
+
+{-
+
+newtype P2P a = P2P {
+    getP2P :: ReaderT PSession State PState (Conduit Message IO Message) a
+  }
+
+runP2P :: PConnection -> P2P a -> IO a
+recvMessage :: P2P Message
+sendMessage :: Message -> P2P ()
+-}
\ No newline at end of file
diff --git a/src/Network/BitTorrent/PeerWire/Protocol.hs b/src/Network/BitTorrent/PeerWire/Protocol.hs
index b40676ca..cab54ef5 100644
--- a/src/Network/BitTorrent/PeerWire/Protocol.hs
+++ b/src/Network/BitTorrent/PeerWire/Protocol.hs
@@ -22,7 +22,7 @@ module Network.BitTorrent.PeerWire.Protocol
        , handshakeMaxSize
 
          -- * Block
-       , BlockLIx, PieceLIx
+       , PieceIx, BlockLIx, PieceLIx
        , BlockIx(..), ppBlockIx
        , Block(..),  ppBlock ,blockSize
        , pieceIx, blockIx
-- 
cgit v1.2.3