gameServer/HWProtoInRoomState.hs
changeset 11557 cf5d45444357
parent 11556 af9aa8d5863c
child 11575 db7743e2fad1
--- a/gameServer/HWProtoInRoomState.hs	Sat Feb 20 22:02:13 2016 +0300
+++ b/gameServer/HWProtoInRoomState.hs	Sun Feb 21 09:09:13 2016 +0300
@@ -54,7 +54,7 @@
                 , AnswerClients chans ["RUN_GAME"]
                 , SendUpdateOnThisRoom
                 , AnswerClients chans $ "CLIENT_FLAGS" : "+g" : nicks
-                , ModifyRoomClients (\c -> c{isInGame = True, teamIndexes = map snd . filter (\(t, _) -> teamowner t == nick cl) $ zip (teams rm) [0..]})
+                , ModifyRoomClients (\c -> c{isInGame = True, teamIndexes = map snd . filter (\(t, _) -> teamowner t == nick c) $ zip (teams rm) [0..]})
                 ]
             else
             return [Warning $ loc "Less than two clans!"]