--- a/gameServer/HWProtoCore.hs Sun Aug 26 14:37:02 2018 +0200
+++ b/gameServer/HWProtoCore.hs Sun Aug 26 14:59:05 2018 +0200
@@ -86,7 +86,7 @@
h "WATCH" f = return [QueryReplay f]
h "FIX" _ = handleCmd ["FIX"]
h "UNFIX" _ = handleCmd ["UNFIX"]
- h "GREETING" msg | not $ B.null msg = handleCmd ["GREETING", msg]
+ h "GREETING" msg = handleCmd ["GREETING", msg]
h "CALLVOTE" msg | B.null msg = handleCmd ["CALLVOTE"]
| otherwise = let (c, p) = extractParameters msg in
if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p]