gameServer/HWProtoLobbyState.hs
changeset 9448 04e0acfa7c2c
parent 9381 90f9d8046a86
child 9702 27006953d901
--- 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