1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index 4f6eaf16..bb8eb800 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -15,7 +15,7 @@ module Network.BitTorrent
        , defaultThreadCount
 
          -- ** Client
-       , ClientSession( clientPeerID, allowedExtensions )
+       , ClientSession( clientPeerId, allowedExtensions )
 
        , newClient
        , defaultClient
@@ -107,7 +107,7 @@ discover swarm action = {-# SCC discover #-} do
 
   let conn = TConnection (tAnnounce (torrentMeta swarm))
                          (tInfoHash (torrentMeta swarm))
-                         (clientPeerID (clientSession swarm))
+                         (clientPeerId (clientSession swarm))
                           port
 
   progress <- getCurrentProgress (clientSession swarm)