Add stubs for TEX

3 files changed, 39 insertions, 8 deletions

diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs
index 6af76a16..f43b5dc2 100644
--- a/src/Network/BitTorrent/Tracker.hs
+++ b/src/Network/BitTorrent/Tracker.hs
@@ -11,9 +11,8 @@
 --
 {-# LANGUAGE TemplateHaskell   #-}
 module Network.BitTorrent.Tracker
-       ( PeerInfo (..)
-
-         -- * RPC Manager
+       ( -- * RPC Manager
+         PeerInfo (..)
        , Options
        , Manager
        , newManager
@@ -35,6 +34,7 @@ module Network.BitTorrent.Tracker
 --       , getSessionState
        ) where
 
+import Network.BitTorrent.Tracker.Message
 import Network.BitTorrent.Tracker.List
 import Network.BitTorrent.Tracker.RPC
 import Network.BitTorrent.Tracker.Session
diff --git a/src/Network/BitTorrent/Tracker/Session.hs b/src/Network/BitTorrent/Tracker/Session.hs
index 295f9322..9b7654dd 100644
--- a/src/Network/BitTorrent/Tracker/Session.hs
+++ b/src/Network/BitTorrent/Tracker/Session.hs
@@ -13,12 +13,16 @@ module Network.BitTorrent.Tracker.Session
        , newSession
        , closeSession
 
-         -- * Events
-       , Event (..)
+         -- * Trackers
        , notify
-
-         -- * Query
        , askPeers
+
+         -- * Tracker Exchange
+         -- | BEP28: <http://www.bittorrent.org/beps/bep_0028.html>
+       , addTracker
+       , removeTracker
+       , getTrackers
+       , getTrustedTrackers
        ) where
 
 import Control.Applicative
@@ -194,6 +198,32 @@ data TrackerInfo = TrackerInfo
 --instance ToJSON TrackerInfo where
 --  toJSON = undefined
 
--- |
 --getSessionState :: Session -> IO (TrackerList TrackerInfo)
 --getSessionState = undefined
+
+{-----------------------------------------------------------------------
+--  Tracker exchange
+-----------------------------------------------------------------------}
+
+-- Trackers discovered through this protocol SHOULD be treated with a
+-- certain amount of suspicion. Since the source of a tracker exchange
+-- message cannot be trusted, an implementation SHOULD have a lower
+-- number of retries before giving up entirely.
+
+addTracker :: Session -> URI -> IO ()
+addTracker = undefined
+
+removeTracker :: Session -> URI -> IO ()
+removeTracker = undefined
+
+-- Also, as specified under the definitions section, a tracker that
+-- has not worked should never be propagated to other peers over the
+-- tracker exchange protocol.
+
+-- | Return all known trackers.
+getTrackers :: Session -> IO [URI]
+getTrackers = undefined
+
+-- | Return trackers from torrent file and
+getTrustedTrackers :: Session -> IO [URI]
+getTrustedTrackers = undefined
diff --git a/tests/Network/BitTorrent/Tracker/SessionSpec.hs b/tests/Network/BitTorrent/Tracker/SessionSpec.hs
index db86b60e..2abe7bc0 100644
--- a/tests/Network/BitTorrent/Tracker/SessionSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/SessionSpec.hs
@@ -5,6 +5,7 @@ import Network.URI
 import Test.Hspec
 
 import Data.Torrent
+import Network.BitTorrent.Tracker.Message
 import Network.BitTorrent.Tracker.List
 import Network.BitTorrent.Tracker.RPC
 import Network.BitTorrent.Tracker.Session