changeset 6068 | e18713ecf1e0 |
parent 5996 | 2c72fe81dd37 |
child 6191 | 190a8e5d9956 |
6067:fe7990b3db66 | 6068:e18713ecf1e0 |
---|---|
10 import CoreTypes |
10 import CoreTypes |
11 import Actions |
11 import Actions |
12 import Utils |
12 import Utils |
13 import HandlerUtils |
13 import HandlerUtils |
14 import RoomsAndClients |
14 import RoomsAndClients |
15 import EngineInteraction |
|
15 |
16 |
16 |
17 |
17 answerAllTeams :: ClientInfo -> [TeamInfo] -> [Action] |
18 answerAllTeams :: ClientInfo -> [TeamInfo] -> [Action] |
18 answerAllTeams cl = concatMap toAnswer |
19 answerAllTeams cl = concatMap toAnswer |
19 where |
20 where |