equal
deleted
inserted
replaced
114 act (VoteHedgehogsPerTeam h) = do |
114 act (VoteHedgehogsPerTeam h) = do |
115 rm <- thisRoom |
115 rm <- thisRoom |
116 chans <- roomClientsChans |
116 chans <- roomClientsChans |
117 let answers = concatMap (\t -> |
117 let answers = concatMap (\t -> |
118 [ModifyRoom $ modifyTeam t{hhnum = h} |
118 [ModifyRoom $ modifyTeam t{hhnum = h} |
119 , AnswerClients chans ["HHNUM", teamname t, showB h]] |
119 , AnswerClients chans ["HH_NUM", teamname t, showB h]] |
120 ) |
120 ) |
121 $ |
121 $ |
122 if isJust $ gameInfo rm then |
122 if isJust $ gameInfo rm then |
123 teamsAtStart . fromJust . gameInfo $ rm |
123 teamsAtStart . fromJust . gameInfo $ rm |
124 else |
124 else |