equal
deleted
inserted
replaced
179 allClientsChans <- liftM (Prelude.map sendChan . Prelude.filter isVisible) $! allClientsS |
179 allClientsChans <- liftM (Prelude.map sendChan . Prelude.filter isVisible) $! allClientsS |
180 |
180 |
181 mapM_ processAction [ |
181 mapM_ processAction [ |
182 AnswerClients chans ["JOINED", clNick] |
182 AnswerClients chans ["JOINED", clNick] |
183 , AnswerClients allClientsChans ["CLIENT_FLAGS", "+i", clNick] |
183 , AnswerClients allClientsChans ["CLIENT_FLAGS", "+i", clNick] |
|
184 , RegisterEvent RoomJoin |
184 ] |
185 ] |
185 |
186 |
186 |
187 |
187 processAction (MoveToLobby msg) = do |
188 processAction (MoveToLobby msg) = do |
188 (Just ci) <- gets clientIndex |
189 (Just ci) <- gets clientIndex |