equal
deleted
inserted
replaced
153 io $ |
153 io $ |
154 infoM "Clients" (show ci ++ " quits: " ++ B.unpack msg) |
154 infoM "Clients" (show ci ++ " quits: " ++ B.unpack msg) |
155 |
155 |
156 when loggedIn $ processAction $ AnswerClients clientsChans ["LOBBY:LEFT", clNick, msg] |
156 when loggedIn $ processAction $ AnswerClients clientsChans ["LOBBY:LEFT", clNick, msg] |
157 |
157 |
158 mapM processAction |
158 mapM_ processAction |
159 [ |
159 [ |
160 AnswerClients [chan] ["BYE", msg] |
160 AnswerClients [chan] ["BYE", msg] |
161 , ModifyClient (\c -> c{nick = "", logonPassed = False}) -- this will effectively hide client from others while he isn't deleted from list |
161 , ModifyClient (\c -> c{nick = "", logonPassed = False}) -- this will effectively hide client from others while he isn't deleted from list |
162 ] |
162 ] |
163 |
163 |