equal
deleted
inserted
replaced
201 |
201 |
202 handleCmd_lobby ["RESTART_SERVER"] = do |
202 handleCmd_lobby ["RESTART_SERVER"] = do |
203 cl <- thisClient |
203 cl <- thisClient |
204 return [RestartServer | isAdministrator cl] |
204 return [RestartServer | isAdministrator cl] |
205 |
205 |
|
206 handleCmd_lobby ["STATS"] = do |
|
207 cl <- thisClient |
|
208 return [Stats | isAdministrator cl] |
206 |
209 |
207 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"] |
210 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"] |