diff -r 7e188a28f078 -r da59012fbd7a gameServer/HWProtoCore.hs --- a/gameServer/HWProtoCore.hs Wed Jul 18 02:05:05 2018 +0200 +++ b/gameServer/HWProtoCore.hs Wed Jul 18 03:55:02 2018 +0200 @@ -90,6 +90,7 @@ h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"] h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n] h "INFO" n | not $ B.null n = handleCmd ["INFO", n] + h "HELP" _ = handleCmd ["HELP"] h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"] h "REGISTERED_ONLY" _ = serverAdminOnly $ do cl <- thisClient