Send notification about 1 player in room on room creation
authorunc0rr
Sat, 03 Nov 2012 23:28:42 +0400
changeset 7945 4006d77e1a28
parent 7943 0b03ac28212d
child 7947 0cf5277fef1a
child 7948 ccaa746bd567
child 7949 91511b219de7
Send notification about 1 player in room on room creation
gameServer/Actions.hs
--- 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})
         ]