# HG changeset patch
# User unc0rr
# Date 1427830624 -10800
# Node ID 9bedbd36de493b9e473a5d8de0b857574fe74c7a
# Parent  963bc20f511c9e728fb40f73c962d35faf77e59e
Don't change hedgehogs total number to a value > 48 as result of voting.

diff -r 963bc20f511c -r 9bedbd36de49 gameServer/Votes.hs
--- a/gameServer/Votes.hs	Tue Mar 31 03:41:36 2015 +0200
+++ b/gameServer/Votes.hs	Tue Mar 31 22:37:04 2015 +0300
@@ -117,10 +117,11 @@
         let answers = concatMap (\t -> 
                 [ModifyRoom $ modifyTeam t{hhnum = h}
                 , AnswerClients chans ["HH_NUM", teamname t, showB h]]
-                )
-                $
+                ) $ if length curteams * h > 48 then [] else curteams
+            ;
+            curteams =
                 if isJust $ gameInfo rm then
-                    teamsAtStart . fromJust . gameInfo $ rm 
+                    teamsAtStart . fromJust . gameInfo $ rm
                 else
                     teams rm