--- a/gameServer/HWProtoInRoomState.hs Thu Feb 21 01:35:14 2013 +0400
+++ b/gameServer/HWProtoInRoomState.hs Thu Feb 21 01:37:04 2013 +0400
@@ -80,7 +80,7 @@
AnswerClients othChans $ teamToNet $ newTeam,
AnswerClients roomChans ["TEAM_COLOR", tName, teamColor],
ModifyClient $ \c -> c{actionsPending = actionsPending cl
- ++ AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]},
+ ++ [AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]]},
AnswerClients [sendChan cl] ["PING"]
]
where