blob: 08e3f388bbb5f7e73b3dce288c308f2ae7a05426 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
-- |
-- Copyright : (c) Sam T. 2013
-- License : MIT
-- Maintainer : pxqr.sta@gmail.com
-- Stability : experimental
-- Portability : portable
--
{-# LANGUAGE DoAndIfThenElse #-}
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 ()
-}
|