# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1540576563 -7200
# Node ID 863604736cf5096f146573a5a02f0080e16734e1
# Parent  4ae01eabf611105a04a21ab3f89f531b94662b12
GameServer: Fix protocol error when receiving CALLVOTE cmd with incorrect mode

diff -r 4ae01eabf611 -r 863604736cf5 gameServer/HWProtoInRoomState.hs
--- a/gameServer/HWProtoInRoomState.hs	Fri Oct 26 19:40:43 2018 +0200
+++ b/gameServer/HWProtoInRoomState.hs	Fri Oct 26 19:56:03 2018 +0200
@@ -513,10 +513,12 @@
         else 
         return [AnswerClients [sendChan cl] ["CHAT", nickServer, loc "/callvote pause: No game in progress!"]]
 
+handleCmd_inRoom ["CALLVOTE", "PAUSE", _] = handleCmd_inRoom ["CALLVOTE", "PAUSE"]
 
 handleCmd_inRoom ["CALLVOTE", "NEWSEED"] = do
     startVote VoteNewSeed
 
+handleCmd_inRoom ["CALLVOTE", "NEWSEED", _] = handleCmd_inRoom ["CALLVOTE", "NEWSEED"]
 
 handleCmd_inRoom ["CALLVOTE", "HEDGEHOGS"] = do
     cl <- thisClient
@@ -532,6 +534,8 @@
         else
         return [AnswerClients [sendChan cl] ["CHAT", nickServer, loc "/callvote hedgehogs: Specify number from 1 to 8."]]
 
+handleCmd_inRoom ["CALLVOTE", _] = handleCmd_inRoom ["CALLVOTE"]
+handleCmd_inRoom ["CALLVOTE", _, _] = handleCmd_inRoom ["CALLVOTE"]
 
 handleCmd_inRoom ("VOTE" : m : p) = do
     cl <- thisClient