misc formatting
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Fri, 29 May 2015 02:02:08 +0000 (07:32 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Fri, 29 May 2015 02:02:08 +0000 (07:32 +0530)
src/FuncTorrent/Peer.hs

index d9ff9299ebe834ca2c0062d4e4e94ccecb98a0e1..d04d886e7de7f429275809117bf0eacee6da8c32 100644 (file)
@@ -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)