equal
deleted
inserted
replaced
297 processAction $ MoveToRoom rId |
297 processAction $ MoveToRoom rId |
298 |
298 |
299 chans <- liftM (map sendChan) $! sameProtoClientsS proto |
299 chans <- liftM (map sendChan) $! sameProtoClientsS proto |
300 |
300 |
301 mapM_ processAction [ |
301 mapM_ processAction [ |
302 AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm) |
302 AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm{playersIn = 1}) |
303 ] |
303 ] |
304 |
304 |
305 |
305 |
306 processAction RemoveRoom = do |
306 processAction RemoveRoom = do |
307 Just clId <- gets clientIndex |
307 Just clId <- gets clientIndex |