equal
deleted
inserted
replaced
127 when loggedIn $ processAction $ AnswerClients clientsChans ["LOBBY:LEFT", clNick, msg] |
127 when loggedIn $ processAction $ AnswerClients clientsChans ["LOBBY:LEFT", clNick, msg] |
128 |
128 |
129 mapM_ processAction |
129 mapM_ processAction |
130 [ |
130 [ |
131 AnswerClients [chan] ["BYE", msg] |
131 AnswerClients [chan] ["BYE", msg] |
132 , ModifyClient (\c -> c{nick = "", isVisible = False}) -- this will effectively hide client from others while he isn't deleted from list |
132 , ModifyClient (\c -> c{nick = "", isVisible = False}) -- this will effectively hide client from others while it isn't deleted from list |
133 ] |
133 ] |
134 |
134 |
135 s <- get |
135 s <- get |
136 put $! s{removedClients = ci `Set.insert` removedClients s} |
136 put $! s{removedClients = ci `Set.insert` removedClients s} |
137 |
137 |