cleanup :: PeerThread -> IO ()
cleanup (PeerThread peer _ _ _) = putStrLn $ "Clean up peer thread for " ++ show peer
cleanup :: PeerThread -> IO ()
cleanup (PeerThread peer _ _ _) = putStrLn $ "Clean up peer thread for " ++ show peer
cleanup (PeerThread peer _ _ _) = putStrLn $ "Clean up peer thread for " ++ show peer