--- 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