From: Ramakrishnan Muthukrishnan Date: Fri, 29 May 2015 02:02:08 +0000 (+0530) Subject: misc formatting X-Git-Url: https://git.rkrishnan.org/components/com_hotproperty/%22doc.html/frontends/(%5B%5E?a=commitdiff_plain;h=05da0bad36f4d798c8ad8d9c158dd8f0cdb45c01;p=functorrent.git misc formatting --- diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs index d9ff929..d04d886 100644 --- a/src/FuncTorrent/Peer.hs +++ b/src/FuncTorrent/Peer.hs @@ -174,7 +174,7 @@ msgLoop h pieceHash = putStrLn $ "got a " ++ show msg case msg of BitFieldMsg bss -> do - let pieceList = bitfieldToList (unpack bss) 0 - putStrLn (show pieceList) - -- doenload each of the piece + let pieceList = bitfieldToList (unpack bss) + putStrLn (show pieceList) + -- download each of the piece in order _ -> putStrLn (show msg)