summaryrefslogtreecommitdiff
path: root/src/Network/Torrent/Tracker.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Torrent/Tracker.hs')
-rw-r--r--src/Network/Torrent/Tracker.hs8
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Network/Torrent/Tracker.hs b/src/Network/Torrent/Tracker.hs
index ef2413f6..20cdb2fc 100644
--- a/src/Network/Torrent/Tracker.hs
+++ b/src/Network/Torrent/Tracker.hs
@@ -2,7 +2,7 @@
2{-# LANGUAGE OverloadedStrings #-} 2{-# LANGUAGE OverloadedStrings #-}
3module Network.Torrent.Tracker 3module Network.Torrent.Tracker
4 ( module Network.Torrent.Tracker.Scrape 4 ( module Network.Torrent.Tracker.Scrape
5 , Peer(..), Event(..), TRequest(..), TResponse(..) 5 , Event(..), TRequest(..), TResponse(..)
6 , defaultRequest, defaultPorts 6 , defaultRequest, defaultPorts
7 , sendRequest 7 , sendRequest
8 ) 8 )
@@ -31,12 +31,6 @@ import Network.URI
31import Network.Torrent.PeerID 31import Network.Torrent.PeerID
32 32
33 33
34data Peer = Peer {
35 peerID :: Maybe PeerID
36 , peerIP :: HostAddress
37 , peerPort :: PortNumber
38 } deriving Show
39
40data Event = Started -- ^ For first request. 34data Event = Started -- ^ For first request.
41 | Stopped -- ^ Sent when the peer is shutting down. 35 | Stopped -- ^ Sent when the peer is shutting down.
42 | Completed -- ^ To be sent when the peer completes a download. 36 | Completed -- ^ To be sent when the peer completes a download.