equal
deleted
inserted
replaced
176 |
176 |
177 handleCmd_lobby ["CLEAR_ACCOUNTS_CACHE"] = do |
177 handleCmd_lobby ["CLEAR_ACCOUNTS_CACHE"] = do |
178 cl <- thisClient |
178 cl <- thisClient |
179 return [ClearAccountsCache | isAdministrator cl] |
179 return [ClearAccountsCache | isAdministrator cl] |
180 |
180 |
181 handleCmd_lobby ["RESTART_SERVER", restartType] = do |
181 handleCmd_lobby ["RESTART_SERVER"] = do |
182 cl <- thisClient |
182 cl <- thisClient |
183 return [RestartServer f | let f = restartType == "FORCE", isAdministrator cl] |
183 return [RestartServer] |
184 |
184 |
185 |
185 |
186 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"] |
186 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"] |