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
      -- ^ 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