equal
deleted
inserted
replaced
118 if head answer == "BYE" then return [ch] else return [] |
118 if head answer == "BYE" then return [ch] else return [] |
119 |
119 |
120 let outHandles = concat clHandles' |
120 let outHandles = concat clHandles' |
121 unless (null outHandles) $ putStrLn ((show $ length outHandles) ++ " / " ++ (show $ length clients) ++ " : " ++ (show answer)) |
121 unless (null outHandles) $ putStrLn ((show $ length outHandles) ++ " / " ++ (show $ length clients) ++ " : " ++ (show answer)) |
122 |
122 |
123 let mclients = deleteFirstsBy (==) clients outHandles |
123 let mclients = clients \\ outHandles |
124 |
124 |
125 sendAnswers answers client mclients rooms |
125 sendAnswers answers client mclients rooms |
126 |
126 |
127 |
127 |
128 reactCmd :: ServerInfo -> [String] -> ClientInfo -> [ClientInfo] -> [RoomInfo] -> IO ([ClientInfo], [RoomInfo]) |
128 reactCmd :: ServerInfo -> [String] -> ClientInfo -> [ClientInfo] -> [RoomInfo] -> IO ([ClientInfo], [RoomInfo]) |