From 5d390922115b28c010410481e751cea06d5bb693 Mon Sep 17 00:00:00 2001 From: Sam T Date: Thu, 4 Jul 2013 05:34:30 +0400 Subject: ~ Rename PeerID to PeerId. --- src/Network/BitTorrent/Tracker.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Network/BitTorrent/Tracker.hs') 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 data TConnection = TConnection { tconnAnnounce :: URI -- ^ Announce URL. , tconnInfoHash :: InfoHash -- ^ Hash of info part of current .torrent file. - , tconnPeerID :: PeerID -- ^ Client peer ID. + , tconnPeerId :: PeerId -- ^ Client peer ID. , tconnPort :: PortNumber -- ^ The port number the client is listenning on. } deriving Show -tconnection :: Torrent -> PeerID -> PortNumber -> TConnection +tconnection :: Torrent -> PeerId -> PortNumber -> TConnection tconnection t = TConnection (tAnnounce t) (tInfoHash t) @@ -92,7 +92,7 @@ genericReq :: TConnection -> Progress -> TRequest genericReq ses pr = TRequest { reqAnnounce = tconnAnnounce ses , reqInfoHash = tconnInfoHash ses - , reqPeerID = tconnPeerID ses + , reqPeerId = tconnPeerId ses , reqPort = tconnPort ses , reqUploaded = _uploaded pr -- cgit v1.2.3