# HG changeset patch
# User unc0rr
# Date 1440943932 -10800
# Node ID c1c3f86af19e8b24c13fdb05bf7e951a35da1545
# Parent  6e575b29881c7a7a1c18fb4b7374db6a52e7e9c9
Fix inverse paused state for spectators joining paused game (not tested)

diff -r 6e575b29881c -r c1c3f86af19e gameServer/HWProtoLobbyState.hs
--- a/gameServer/HWProtoLobbyState.hs	Thu Aug 27 22:03:57 2015 +0300
+++ b/gameServer/HWProtoLobbyState.hs	Sun Aug 30 17:12:12 2015 +0300
@@ -113,6 +113,7 @@
             ++ watchRound cl jRoom chans
             ++ [AnswerClients [sendChan cl] ["CHAT", "[greeting]", greeting jRoom] | greeting jRoom /= ""]
             ++ map (\t -> AnswerClients chans ["EM", toEngineMsg $ 'G' `B.cons` t]) clTeams
+            ++ [AnswerClients [sendChan cl] ["EM", toEngineMsg "I"] | isPaused `fmap` gameInfo jRoom == Just True]
 
         where
         moveTeams :: [B.ByteString] -> GameInfo -> ([TeamInfo], GameInfo)