equal
deleted
inserted
replaced
212 let clTeams = map teamname . filter (\t -> teamowner t == nick cl) . teams $ rm |
212 let clTeams = map teamname . filter (\t -> teamowner t == nick cl) . teams $ rm |
213 |
213 |
214 if isJust $ gameInfo rm then |
214 if isJust $ gameInfo rm then |
215 if (isMaster cl && isCorrect) then |
215 if (isMaster cl && isCorrect) then |
216 return [FinishGame] |
216 return [FinishGame] |
217 else if not isCorrect then |
217 else return $ map SendTeamRemovalMessage clTeams |
218 return $ map SendTeamRemovalMessage clTeams |
|
219 else |
|
220 return [] |
|
221 else |
218 else |
222 return [] |
219 return [] |
223 where |
220 where |
224 isCorrect = correctly == "1" |
221 isCorrect = correctly == "1" |
225 |
222 |