equal
deleted
inserted
replaced
169 |
169 |
170 handleCmd_lobby ["CLEAR_ACCOUNTS_CACHE"] = do |
170 handleCmd_lobby ["CLEAR_ACCOUNTS_CACHE"] = do |
171 cl <- thisClient |
171 cl <- thisClient |
172 return [ClearAccountsCache | isAdministrator cl] |
172 return [ClearAccountsCache | isAdministrator cl] |
173 |
173 |
|
174 handleCmd_lobby ["RESTART_SERVER", restartType] = do |
|
175 cl <- thisClient |
|
176 return [RestartServer f | let f = restartType == "FORCE", isAdministrator cl] |
|
177 |
174 |
178 |
175 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"] |
179 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"] |