diff options
Diffstat (limited to 'src/Network/BitTorrent/PeerWire.hs')
-rw-r--r-- | src/Network/BitTorrent/PeerWire.hs | 11 |
1 files changed, 11 insertions, 0 deletions
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 | ||
11 | import Network.BitTorrent.PeerWire.Selection as PW | 11 | import Network.BitTorrent.PeerWire.Selection as PW |
12 | import Network.BitTorrent.PeerWire.Protocol as PW | 12 | import Network.BitTorrent.PeerWire.Protocol as PW |
13 | |||
14 | {- | ||
15 | |||
16 | newtype P2P a = P2P { | ||
17 | getP2P :: ReaderT PSession State PState (Conduit Message IO Message) a | ||
18 | } | ||
19 | |||
20 | runP2P :: PConnection -> P2P a -> IO a | ||
21 | recvMessage :: P2P Message | ||
22 | sendMessage :: Message -> P2P () | ||
23 | -} \ No newline at end of file | ||