diff options
Diffstat (limited to 'src/Network/BitTorrent/Tracker.hs')
-rw-r--r-- | src/Network/BitTorrent/Tracker.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs index ed3f1d78..f7d88bd9 100644 --- a/src/Network/BitTorrent/Tracker.hs +++ b/src/Network/BitTorrent/Tracker.hs | |||
@@ -79,11 +79,11 @@ import Network.BitTorrent.Tracker.Protocol | |||
79 | data TConnection = TConnection { | 79 | data TConnection = TConnection { |
80 | tconnAnnounce :: URI -- ^ Announce URL. | 80 | tconnAnnounce :: URI -- ^ Announce URL. |
81 | , tconnInfoHash :: InfoHash -- ^ Hash of info part of current .torrent file. | 81 | , tconnInfoHash :: InfoHash -- ^ Hash of info part of current .torrent file. |
82 | , tconnPeerID :: PeerID -- ^ Client peer ID. | 82 | , tconnPeerId :: PeerId -- ^ Client peer ID. |
83 | , tconnPort :: PortNumber -- ^ The port number the client is listenning on. | 83 | , tconnPort :: PortNumber -- ^ The port number the client is listenning on. |
84 | } deriving Show | 84 | } deriving Show |
85 | 85 | ||
86 | tconnection :: Torrent -> PeerID -> PortNumber -> TConnection | 86 | tconnection :: Torrent -> PeerId -> PortNumber -> TConnection |
87 | tconnection t = TConnection (tAnnounce t) (tInfoHash t) | 87 | tconnection t = TConnection (tAnnounce t) (tInfoHash t) |
88 | 88 | ||
89 | 89 | ||
@@ -92,7 +92,7 @@ genericReq :: TConnection -> Progress -> TRequest | |||
92 | genericReq ses pr = TRequest { | 92 | genericReq ses pr = TRequest { |
93 | reqAnnounce = tconnAnnounce ses | 93 | reqAnnounce = tconnAnnounce ses |
94 | , reqInfoHash = tconnInfoHash ses | 94 | , reqInfoHash = tconnInfoHash ses |
95 | , reqPeerID = tconnPeerID ses | 95 | , reqPeerId = tconnPeerId ses |
96 | , reqPort = tconnPort ses | 96 | , reqPort = tconnPort ses |
97 | 97 | ||
98 | , reqUploaded = _uploaded pr | 98 | , reqUploaded = _uploaded pr |