equal
deleted
inserted
replaced
149 when loggedIn $ processAction $ AnswerClients clientsChans ["LOBBY:LEFT", clNick, msg] |
149 when loggedIn $ processAction $ AnswerClients clientsChans ["LOBBY:LEFT", clNick, msg] |
150 |
150 |
151 mapM processAction |
151 mapM processAction |
152 [ |
152 [ |
153 AnswerClients [chan] ["BYE", msg] |
153 AnswerClients [chan] ["BYE", msg] |
154 , ModifyClient (\c -> c{logonPassed = False}) -- this will effectively hide client from others while he isn't deleted from list |
154 , ModifyClient (\c -> c{nick = "", logonPassed = False}) -- this will effectively hide client from others while he isn't deleted from list |
155 ] |
155 ] |
156 |
156 |
157 s <- get |
157 s <- get |
158 put $! s{removedClients = ci `Set.insert` removedClients s} |
158 put $! s{removedClients = ci `Set.insert` removedClients s} |
159 |
159 |