equal
deleted
inserted
replaced
224 return [RestartServer] |
224 return [RestartServer] |
225 |
225 |
226 handleCmd_lobby ["STATS"] = serverAdminOnly $ |
226 handleCmd_lobby ["STATS"] = serverAdminOnly $ |
227 return [Stats] |
227 return [Stats] |
228 |
228 |
229 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"] |
229 handleCmd_lobby (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in lobby)"] |
|
230 |
|
231 handleCmd_lobby [] = return [ProtocolError "Empty command (state: in lobby)"] |