equal
deleted
inserted
replaced
164 (ci, _) <- ask |
164 (ci, _) <- ask |
165 cl <- thisClient |
165 cl <- thisClient |
166 return [BanList | isAdministrator cl] |
166 return [BanList | isAdministrator cl] |
167 |
167 |
168 |
168 |
|
169 handleCmd_lobby ["UNBAN", entry] = do |
|
170 (ci, _) <- ask |
|
171 cl <- thisClient |
|
172 return [Unban entry | isAdministrator cl] |
|
173 |
|
174 |
169 handleCmd_lobby ["SET_SERVER_VAR", "MOTD_NEW", newMessage] = do |
175 handleCmd_lobby ["SET_SERVER_VAR", "MOTD_NEW", newMessage] = do |
170 cl <- thisClient |
176 cl <- thisClient |
171 return [ModifyServerInfo (\si -> si{serverMessage = newMessage}) | isAdministrator cl] |
177 return [ModifyServerInfo (\si -> si{serverMessage = newMessage}) | isAdministrator cl] |
172 |
178 |
173 handleCmd_lobby ["SET_SERVER_VAR", "MOTD_OLD", newMessage] = do |
179 handleCmd_lobby ["SET_SERVER_VAR", "MOTD_OLD", newMessage] = do |