summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bittorrent.cabal5
-rw-r--r--src/Network/BitTorrent/PeerWire.hs11
-rw-r--r--src/Network/BitTorrent/PeerWire/Protocol.hs2
3 files changed, 17 insertions, 1 deletions
diff --git a/bittorrent.cabal b/bittorrent.cabal
index 4e3251d4..ddad1a61 100644
--- a/bittorrent.cabal
+++ b/bittorrent.cabal
@@ -78,6 +78,11 @@ library
78 , HTTP >= 4000.2 78 , HTTP >= 4000.2
79 , krpc 79 , krpc
80 80
81 -- conduits
82 , conduit == 1.*
83 , network-conduit == 1.*
84 , cereal-conduit >= 0.5
85
81 , cryptohash 86 , cryptohash
82 , filepath >= 1 87 , filepath >= 1
83 , bits-atomic >= 0.1 88 , bits-atomic >= 0.1
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
10 10
11import Network.BitTorrent.PeerWire.Selection as PW 11import Network.BitTorrent.PeerWire.Selection as PW
12import Network.BitTorrent.PeerWire.Protocol as PW 12import Network.BitTorrent.PeerWire.Protocol as PW
13
14{-
15
16newtype P2P a = P2P {
17 getP2P :: ReaderT PSession State PState (Conduit Message IO Message) a
18 }
19
20runP2P :: PConnection -> P2P a -> IO a
21recvMessage :: P2P Message
22sendMessage :: Message -> P2P ()
23-} \ 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
22 , handshakeMaxSize 22 , handshakeMaxSize
23 23
24 -- * Block 24 -- * Block
25 , BlockLIx, PieceLIx 25 , PieceIx, BlockLIx, PieceLIx
26 , BlockIx(..), ppBlockIx 26 , BlockIx(..), ppBlockIx
27 , Block(..), ppBlock ,blockSize 27 , Block(..), ppBlock ,blockSize
28 , pieceIx, blockIx 28 , pieceIx, blockIx