--- a/gameServer/HWProtoLobbyState.hs Mon Jan 10 15:42:17 2011 +0300
+++ b/gameServer/HWProtoLobbyState.hs Mon Jan 10 18:12:13 2011 +0300
@@ -86,9 +86,9 @@
else
[
MoveToRoom jRI,
- AnswerClients (map sendChan $ cl : jRoomClients) ["NOT_READY", nick cl]
+ AnswerClients (map sendChan $ cl : jRoomClients) ["NOT_READY", nick cl],
+ AnswerClients [sendChan cl] $ "JOINED" : map nick jRoomClients
]
- ++ [ AnswerClients [sendChan cl] $ "JOINED" : map nick jRoomClients | playersIn jRoom /= 0]
++ (map (readynessMessage cl) jRoomClients)
where