refactor PeerID and associated functions.

[functorrent.git] / src / Peer.hs

diff --git a/src/Peer.hs b/src/Peer.hs
index 16609999b0e904a29941099a3da60b86302a976b..52cc03f25829dbf27d9fc5a21237ae9c87e4a1fe 100644 (file)
--- a/src/Peer.hs
+++ b/src/Peer.hs
@@ -58,6 +58,6 @@ handShakeMsg m peer_id = let pstrlen = BC.concat $ BL.toChunks $ Bin.encode (19
                              pstr = BC.pack "BitTorrent protocol"
                              reserved = BC.replicate 8 '\0'
                              infoH = T.infoHash m
-                             peerH = T.peerHash peer_id
+                             peerID = BC.pack peer_id
                          in
-                          BC.concat [pstrlen, pstr, reserved, infoH, peerH]
+                          BC.concat [pstrlen, pstr, reserved, infoH, peerID]