run :: Socket -> String -> Metainfo -> PieceMap -> FS.MsgChannel -> IO ()
run listenSock peerid m pieceMap c = forever $ do
(handle, ip, port) <- accept listenSock
run :: Socket -> String -> Metainfo -> PieceMap -> FS.MsgChannel -> IO ()
run listenSock peerid m pieceMap c = forever $ do
(handle, ip, port) <- accept listenSock