equal
deleted
inserted
replaced
10 import Actions |
10 import Actions |
11 import Utils |
11 import Utils |
12 import HandlerUtils |
12 import HandlerUtils |
13 import RoomsAndClients |
13 import RoomsAndClients |
14 import EngineInteraction |
14 import EngineInteraction |
15 |
|
16 |
|
17 answerAllTeams :: ClientInfo -> [TeamInfo] -> [Action] |
|
18 answerAllTeams cl = concatMap toAnswer |
|
19 where |
|
20 clChan = sendChan cl |
|
21 toAnswer team = |
|
22 [AnswerClients [clChan] $ teamToNet team, |
|
23 AnswerClients [clChan] ["TEAM_COLOR", teamname team, teamcolor team], |
|
24 AnswerClients [clChan] ["HH_NUM", teamname team, showB $ hhnum team]] |
|
25 |
15 |
26 |
16 |
27 handleCmd_lobby :: CmdHandler |
17 handleCmd_lobby :: CmdHandler |
28 |
18 |
29 |
19 |