~ Hide PeerSession and SwarmSession.

1 files changed, 10 insertions, 62 deletions

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index 7c1e02e2..8c3189d3 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -7,88 +7,36 @@
 --
 {-# LANGUAGE RecordWildCards #-}
 module Network.BitTorrent
-       (
-         module Data.Torrent
+       ( module Data.Torrent
 
-         -- * Session
-       , ThreadCount
-       , defaultThreadCount
+       , TorrentLoc(..), Progress(..)
+       , ThreadCount, SessionCount
 
-         -- ** Client
        , ClientSession( clientPeerId, allowedExtensions )
+       , withDefaultClient, defaultThreadCount
+       , addTorrent
+       , removeTorrent
 
-       , withDefaultClient
-
-       , Progress(..)
        , getCurrentProgress
        , getPeerCount
        , getSwarmCount
-
-       , TorrentLoc(..)
-       , addTorrent
-       , removeTorrent
-
-         -- ** Swarm
-       , SwarmSession(torrentMeta)
-
-       , newLeecher
-       , newSeeder
-
-       , SessionCount
        , getSessionCount
 
-         -- * Discovery
-       , discover
-       , exchange
-
-
-         -- * Peer to Peer
-       , P2P
-
-         -- ** Session
-       , PeerSession( PeerSession, connectedPeerAddr
-                    , swarmSession, enabledExtensions
-                    )
-
-       , getHaveCount
-       , getWantCount
-       , getPieceCount
-
-
-         -- ** Transfer
-       , Block(..), ppBlock
-       , BlockIx(..), ppBlockIx
-
-         -- ** Control
-       , SessionException
-       , disconnect
-       , protocolError
-
-         -- ** Events
-       , Event(..)
-       , awaitEvent, yieldEvent
-
          -- * Extensions
-       , Extension, defaultExtensions, ppExtension
+       , Extension
+       , defaultExtensions
+       , ppExtension
        ) where
 
 import Control.Concurrent
-import Control.Concurrent.STM
-import Control.Exception
 import Control.Monad
-import Control.Monad.Reader
-
+import Control.Monad.Trans
 import Network
-
-import Data.Bitfield as BF
 import Data.Torrent
 import Network.BitTorrent.Sessions.Types
 import Network.BitTorrent.Sessions
-import Network.BitTorrent.Peer
 import Network.BitTorrent.Extension
 import Network.BitTorrent.Exchange
-import Network.BitTorrent.Exchange.Protocol
-import Network.BitTorrent.Tracker
 
 import System.Torrent.Storage