NotInterestedMsg -> do
modify (\st' -> st' {heInterested = False})
msgLoop pieceStatus msgchannel
- CancelMsg _ _ _ -> -- check if valid index, begin, length
+ CancelMsg {} -> -- check if valid index, begin, length
msgLoop pieceStatus msgchannel
PortMsg _ ->
msgLoop pieceStatus msgchannel
let pieceStatus' = updatePieceAvailability pieceStatus p [idx]
msgLoop pieceStatus' msgchannel
_ -> do
- liftIO $ putStrLn $ ".. not doing anything with the msg"
+ liftIO $ putStrLn ".. not doing anything with the msg"
msgLoop pieceStatus msgchannel
-- No need to handle PieceMsg and RequestMsg here.