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)