diff -r c5d7376fa58a -r f747c385b5ba gameServer/Votes.hs --- 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