equal
deleted
inserted
replaced
148 processAction (ModifyClient f) = do |
148 processAction (ModifyClient f) = do |
149 (Just ci) <- gets clientIndex |
149 (Just ci) <- gets clientIndex |
150 rnc <- gets roomsClients |
150 rnc <- gets roomsClients |
151 liftIO $ modifyClient rnc f ci |
151 liftIO $ modifyClient rnc f ci |
152 return () |
152 return () |
153 |
153 |
|
154 processAction (ModifyClient2 ci f) = do |
|
155 rnc <- gets roomsClients |
|
156 liftIO $ modifyClient rnc f ci |
|
157 return () |
|
158 |
154 |
159 |
155 processAction (ModifyRoom f) = do |
160 processAction (ModifyRoom f) = do |
156 rnc <- gets roomsClients |
161 rnc <- gets roomsClients |
157 ri <- clientRoomA |
162 ri <- clientRoomA |
158 liftIO $ modifyRoom rnc f ri |
163 liftIO $ modifyRoom rnc f ri |