Otherwise, the "InterestedMsg" never get sent.
handlePeerMsgs p m peerId = do
h <- connectToPeer p
doHandshake h p (infoHash m) peerId
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)
pieceHash = pieces (info m)
numPieces = (toInteger . (`quot` 20) . BC.length) pieceHash
pLen = pieceLength (info m)