bug: initial state should be meInterested = false, heChoking = true
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Thu, 3 Sep 2015 13:42:41 +0000 (19:12 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Thu, 3 Sep 2015 13:42:49 +0000 (19:12 +0530)
Otherwise, the "InterestedMsg" never get sent.

src/FuncTorrent/Peer.hs

index cf5b66d35f35e6069b26cf1f56ecb1d893984fd8..5e23fa112574c0ca07f6ddfbde0f36212a932720 100644 (file)
@@ -120,7 +120,7 @@ handlePeerMsgs :: Peer -> Metainfo -> String -> IO ()
 handlePeerMsgs p m peerId = do
   h <- connectToPeer p
   doHandshake h p (infoHash m) peerId
-  let pstate = toPeerState h p False True False True
+  let pstate = toPeerState h p False False True True
       pieceHash = pieces (info m)
       numPieces = (toInteger . (`quot` 20) . BC.length) pieceHash
       pLen = pieceLength (info m)