equal
deleted
inserted
replaced
88 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
88 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
89 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
89 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
90 h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"] |
90 h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"] |
91 h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n] |
91 h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n] |
92 h "INFO" n | not $ B.null n = handleCmd ["INFO", n] |
92 h "INFO" n | not $ B.null n = handleCmd ["INFO", n] |
|
93 h "HELP" _ = handleCmd ["HELP"] |
93 h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"] |
94 h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"] |
94 h "REGISTERED_ONLY" _ = serverAdminOnly $ do |
95 h "REGISTERED_ONLY" _ = serverAdminOnly $ do |
95 cl <- thisClient |
96 cl <- thisClient |
96 return |
97 return |
97 [ModifyServerInfo(\s -> s{isRegisteredUsersOnly = not $ isRegisteredUsersOnly s}) |
98 [ModifyServerInfo(\s -> s{isRegisteredUsersOnly = not $ isRegisteredUsersOnly s}) |