diff -r 2df519242d41 -r 54eb4c774ef5 gameServer/HWProtoCore.hs --- 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]