--- a/gameServer/HWProtoLobbyState.hs Tue Sep 03 00:05:38 2013 +0400
+++ b/gameServer/HWProtoLobbyState.hs Tue Sep 03 22:35:57 2013 +0400
@@ -14,16 +14,6 @@
import EngineInteraction
-answerAllTeams :: ClientInfo -> [TeamInfo] -> [Action]
-answerAllTeams cl = concatMap toAnswer
- where
- clChan = sendChan cl
- toAnswer team =
- [AnswerClients [clChan] $ teamToNet team,
- AnswerClients [clChan] ["TEAM_COLOR", teamname team, teamcolor team],
- AnswerClients [clChan] ["HH_NUM", teamname team, showB $ hhnum team]]
-
-
handleCmd_lobby :: CmdHandler