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 "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})