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/Protocol.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network/BitTorrent/Tracker/Protocol.hs') diff --git a/src/Network/BitTorrent/Tracker/Protocol.hs b/src/Network/BitTorrent/Tracker/Protocol.hs index d4f3da3c..52eb6c92 100644 --- a/src/Network/BitTorrent/Tracker/Protocol.hs +++ b/src/Network/BitTorrent/Tracker/Protocol.hs @@ -74,7 +74,7 @@ data TRequest = TRequest { -- TODO peer here -- TODO detach announce -- ^ Hash of info part of the torrent usually obtained from -- 'Torrent'. - , reqPeerID :: !PeerID + , reqPeerId :: !PeerId -- ^ ID of the peer doing request. , reqPort :: !PortNumber @@ -186,7 +186,7 @@ instance URLShow Event where instance URLEncode TRequest where urlEncode req = mconcat - [ s "peer_id" %= reqPeerID req + [ s "peer_id" %= reqPeerId req , s "port" %= reqPort req , s "uploaded" %= reqUploaded req , s "downloaded" %= reqDownloaded req -- cgit v1.2.3