Oops, misspelled protocol command
authorunC0Rr
Wed, 14 Jan 2015 11:47:50 +0300
changeset 10787 50a4cdeedb44
parent 10786 712283ed86e0
child 10788 418058ce8ffe
child 10789 acbf69e2e5cf
Oops, misspelled protocol command
gameServer/Votes.hs
--- a/gameServer/Votes.hs	Tue Jan 13 23:37:07 2015 +0300
+++ b/gameServer/Votes.hs	Wed Jan 14 11:47:50 2015 +0300
@@ -116,7 +116,7 @@
         chans <- roomClientsChans
         let answers = concatMap (\t -> 
                 [ModifyRoom $ modifyTeam t{hhnum = h}
-                , AnswerClients chans ["HHNUM", teamname t, showB h]]
+                , AnswerClients chans ["HH_NUM", teamname t, showB h]]
                 )
                 $
                 if isJust $ gameInfo rm then