equal
deleted
inserted
replaced
89 let mclients = (clientsFunc clients) |
89 let mclients = (clientsFunc clients) |
90 let mclient = fromMaybe client $ find (== client) mclients |
90 let mclient = fromMaybe client $ find (== client) mclients |
91 |
91 |
92 clientsIn <- sendAnswers answers mclient mclients mrooms |
92 clientsIn <- sendAnswers answers mclient mclients mrooms |
93 let quitClient = find forceQuit $ clientsIn |
93 let quitClient = find forceQuit $ clientsIn |
|
94 |
94 if isJust quitClient then |
95 if isJust quitClient then |
95 reactCmd ["QUIT"] (fromJust quitClient) clientsIn mrooms |
96 reactCmd ["QUIT"] (fromJust quitClient) clientsIn mrooms |
96 else |
97 else |
97 return (clientsIn, mrooms) |
98 return (clientsIn, mrooms) |
98 |
99 |
99 |
100 |
100 mainLoop :: Socket -> TChan ClientInfo -> TChan [String] -> [ClientInfo] -> [RoomInfo] -> IO () |
101 mainLoop :: Socket -> TChan ClientInfo -> TChan [String] -> [ClientInfo] -> [RoomInfo] -> IO () |
101 mainLoop servSock acceptChan messagesChan clients rooms = do |
102 mainLoop servSock acceptChan messagesChan clients rooms = do |