equal
deleted
inserted
replaced
136 |
136 |
137 s <- get |
137 s <- get |
138 put $! s{removedClients = ci `Set.insert` removedClients s} |
138 put $! s{removedClients = ci `Set.insert` removedClients s} |
139 |
139 |
140 processAction (DeleteClient ci) = do |
140 processAction (DeleteClient ci) = do |
|
141 io $ debugM "Clients" $ "DeleteClient: " ++ show ci |
|
142 |
141 rnc <- gets roomsClients |
143 rnc <- gets roomsClients |
142 io $ removeClient rnc ci |
144 io $ removeClient rnc ci |
143 |
145 |
144 s <- get |
146 s <- get |
145 put $! s{removedClients = ci `Set.delete` removedClients s} |
147 put $! s{removedClients = ci `Set.delete` removedClients s} |