# HG changeset patch
# User unc0rr
# Date 1419971460 -10800
# Node ID 8fadc4305df0c1bd3613290da4a3d831489ab63a
# Parent  7c4f9e5e447cf0f4dce982c9af9fe552c85a2dc3
Uhm... this seems to count as a workaround, not tested though

diff -r 7c4f9e5e447c -r 8fadc4305df0 gameServer/HWProtoLobbyState.hs
--- a/gameServer/HWProtoLobbyState.hs	Tue Dec 30 22:59:15 2014 +0300
+++ b/gameServer/HWProtoLobbyState.hs	Tue Dec 30 23:31:00 2014 +0300
@@ -105,7 +105,7 @@
                 : AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl]
                 : [(AnswerClients [sendChan cl] $ "JOINED" : nicks) | not $ null nicks]
             )
-                ++ [ModifyRoom (\r -> let (t', g') = moveTeams clTeams . fromJust $ gameInfo r in r{gameInfo = Just g', teams = t'}) | not $ null clTeams]
+            -- ++ [ModifyRoom (\r -> let (t', g') = moveTeams clTeams . fromJust $ gameInfo r in r{gameInfo = Just g', teams = t'}) | not $ null clTeams]
             ++ [AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+h", nick $ fromJust owner] | isJust owner]
             ++ [sendStateFlags cl jRoomClients | not $ null jRoomClients]
             ++ answerFullConfig cl jRoom