equal
deleted
inserted
replaced
130 let team = fromJust maybeTeam |
130 let team = fromJust maybeTeam |
131 |
131 |
132 return $ |
132 return $ |
133 if not $ isMaster cl then |
133 if not $ isMaster cl then |
134 [ProtocolError $ loc "Not room master"] |
134 [ProtocolError $ loc "Not room master"] |
135 else if isNothing maybeTeam |
135 else if isNothing maybeTeam then |
136 return [] |
136 [] |
137 else if hhNumber < 1 || hhNumber > 8 || hhNumber > canAddNumber r + hhnum team then |
137 else if hhNumber < 1 || hhNumber > 8 || hhNumber > canAddNumber r + hhnum team then |
138 [AnswerClients clChan ["HH_NUM", teamName, showB $ hhnum team]] |
138 [AnswerClients clChan ["HH_NUM", teamName, showB $ hhnum team]] |
139 else |
139 else |
140 [ModifyRoom $ modifyTeam team{hhnum = hhNumber}, |
140 [ModifyRoom $ modifyTeam team{hhnum = hhNumber}, |
141 AnswerClients roomChans ["HH_NUM", teamName, showB hhNumber]] |
141 AnswerClients roomChans ["HH_NUM", teamName, showB hhNumber]] |