~ Change newPeerId to genPeerId.

To follow DHT genNodeId.

2 files changed, 4 insertions, 4 deletions

diff --git a/src/Network/BitTorrent/Internal.lhs b/src/Network/BitTorrent/Internal.lhs
index 475c5e32..a69016ff 100644
--- a/src/Network/BitTorrent/Internal.lhs
+++ b/src/Network/BitTorrent/Internal.lhs
@@ -364,7 +364,7 @@ and different enabled extensions at the same time.
 >   _   <- forkIO $ loop mgr
 
 >   ClientSession
->     <$> newPeerId
+>     <$> genPeerId
 >     <*> pure exts
 >     <*> pure 10 -- forkListener (error "listener")
 >     <*> MSem.new n
diff --git a/src/Network/BitTorrent/Peer.hs b/src/Network/BitTorrent/Peer.hs
index 4615ad3a..97c9f57f 100644
--- a/src/Network/BitTorrent/Peer.hs
+++ b/src/Network/BitTorrent/Peer.hs
@@ -43,7 +43,7 @@ module Network.BitTorrent.Peer
        , defaultClientId, defaultVersionNumber
 
          -- ** Generation
-       , newPeerId, timestampByteString
+       , genPeerId, timestampByteString
 
          -- ** Extra
        , byteStringPadded
@@ -199,8 +199,8 @@ timestampByteString = (BC.pack . format) <$> getCurrentTime
 --
 --      * UTC time day ++ day time for the random number.
 --
-newPeerId :: IO PeerId
-newPeerId = azureusStyle defaultClientId defaultVersionNumber
+genPeerId :: IO PeerId
+genPeerId = azureusStyle defaultClientId defaultVersionNumber
                                      <$> timestampByteString
 
 -- | Pad bytestring so it's becomes exactly request length. Conversion