diff options
Diffstat (limited to 'src/Network/BitTorrent/Exchange.hs')
-rw-r--r-- | src/Network/BitTorrent/Exchange.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/Network/BitTorrent/Exchange.hs b/src/Network/BitTorrent/Exchange.hs new file mode 100644 index 00000000..08e3f388 --- /dev/null +++ b/src/Network/BitTorrent/Exchange.hs | |||
@@ -0,0 +1,23 @@ | |||
1 | -- | | ||
2 | -- Copyright : (c) Sam T. 2013 | ||
3 | -- License : MIT | ||
4 | -- Maintainer : pxqr.sta@gmail.com | ||
5 | -- Stability : experimental | ||
6 | -- Portability : portable | ||
7 | -- | ||
8 | {-# LANGUAGE DoAndIfThenElse #-} | ||
9 | module Network.BitTorrent.PeerWire (module PW) where | ||
10 | |||
11 | import Network.BitTorrent.PeerWire.Selection 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 | ||