diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-07-04 05:34:30 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-07-04 05:34:30 +0400 |
| commit | 5d390922115b28c010410481e751cea06d5bb693 (patch) | |
| tree | 81582ea808268ea3fc7e9c8141796143bab715c9 /src/Network/BitTorrent/Tracker/Protocol.hs | |
| parent | d7442733400a010f48bb9d3f59c4b116a852f453 (diff) | |
~ Rename PeerID to PeerId.
Diffstat (limited to 'src/Network/BitTorrent/Tracker/Protocol.hs')
| -rw-r--r-- | src/Network/BitTorrent/Tracker/Protocol.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 74 | -- ^ Hash of info part of the torrent usually obtained from | 74 | -- ^ Hash of info part of the torrent usually obtained from |
| 75 | -- 'Torrent'. | 75 | -- 'Torrent'. |
| 76 | 76 | ||
| 77 | , reqPeerID :: !PeerID | 77 | , reqPeerId :: !PeerId |
| 78 | -- ^ ID of the peer doing request. | 78 | -- ^ ID of the peer doing request. |
| 79 | 79 | ||
| 80 | , reqPort :: !PortNumber | 80 | , reqPort :: !PortNumber |
| @@ -186,7 +186,7 @@ instance URLShow Event where | |||
| 186 | 186 | ||
| 187 | instance URLEncode TRequest where | 187 | instance URLEncode TRequest where |
| 188 | urlEncode req = mconcat | 188 | urlEncode req = mconcat |
| 189 | [ s "peer_id" %= reqPeerID req | 189 | [ s "peer_id" %= reqPeerId req |
| 190 | , s "port" %= reqPort req | 190 | , s "port" %= reqPort req |
| 191 | , s "uploaded" %= reqUploaded req | 191 | , s "uploaded" %= reqUploaded req |
| 192 | , s "downloaded" %= reqDownloaded req | 192 | , s "downloaded" %= reqDownloaded req |