101         h "VOTE" msg | not $ B.null msg = handleCmd_roomOnly ["VOTE", upperCase msg]

   101         h "VOTE" msg | not $ B.null msg = handleCmd_roomOnly ["VOTE", upperCase msg]

   102                      | otherwise = handleCmd_roomOnly ["VOTE", ""]

   102                      | otherwise = handleCmd_roomOnly ["VOTE", ""]

   103         h "FORCE" msg | not $ B.null msg = handleCmd_roomOnly ["VOTE", upperCase msg, "FORCE"]

   103         h "FORCE" msg | not $ B.null msg = handleCmd_roomOnly ["VOTE", upperCase msg, "FORCE"]

   104                       | otherwise = handleCmd_roomOnly ["VOTE", "", "FORCE"]

   104                       | otherwise = handleCmd_roomOnly ["VOTE", "", "FORCE"]

   105         h "MAXTEAMS" n | not $ B.null n = handleCmd_roomOnly ["MAXTEAMS", n]

   105         h "MAXTEAMS" n | not $ B.null n = handleCmd_roomOnly ["MAXTEAMS", n]

   106 

   107 

   107         -- lobby-only commands

   108         -- lobby-only commands

   108         h "STATS" _ = handleCmd_lobbyOnly ["STATS"]

   109         h "STATS" _ = handleCmd_lobbyOnly ["STATS"]

   109         h "RESTART_SERVER" "YES" = handleCmd_lobbyOnly ["RESTART_SERVER"]

   110         h "RESTART_SERVER" "YES" = handleCmd_lobbyOnly ["RESTART_SERVER"]

   110 

   111