gameServer/Actions.hs
changeset 7945 4006d77e1a28
parent 7926 550083f61a0e
child 7947 0cf5277fef1a
--- a/gameServer/Actions.hs	Sat Nov 03 19:16:41 2012 +0100
+++ b/gameServer/Actions.hs	Sat Nov 03 23:28:42 2012 +0400
@@ -299,7 +299,7 @@
     chans <- liftM (map sendChan) $! sameProtoClientsS proto
 
     mapM_ processAction [
-        AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm)
+      AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm{playersIn = 1})
         ]