gameServer/Votes.hs
changeset 13509 f747c385b5ba
parent 13079 81c154fd4380
child 13696 d732ca5dcab9
--- a/gameServer/Votes.hs	Tue Jul 17 22:00:15 2018 +0200
+++ b/gameServer/Votes.hs	Tue Jul 17 22:42:49 2018 +0200
@@ -28,6 +28,7 @@
 import Data.Maybe
 import Control.Applicative
 -------------------
+import Consts
 import Utils
 import CoreTypes
 import HandlerUtils
@@ -118,7 +119,7 @@
         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
+                ) $ if length curteams * h > cMaxHHs then [] else curteams
             ;
             curteams =
                 if isJust $ gameInfo rm then