diff -r 457efde100b5 -r 3f4c3fc146c2 gameServer/HWProtoLobbyState.hs --- a/gameServer/HWProtoLobbyState.hs Sat Jun 29 00:18:17 2013 +0400 +++ b/gameServer/HWProtoLobbyState.hs Sat Jun 29 23:58:37 2013 +0400 @@ -115,10 +115,13 @@ watchRound cl jRoom chans = if isNothing $ gameInfo jRoom then [] else - [AnswerClients [sendChan cl] ["RUN_GAME"] - , AnswerClients chans ["CLIENT_FLAGS", "+g", nick cl] - , ModifyClient (\c -> c{isInGame = True}) - , AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : (reverse . roundMsgs . fromJust . gameInfo $ jRoom)] + AnswerClients [sendChan cl] ["RUN_GAME"] + : AnswerClients chans ["CLIENT_FLAGS", "+g", nick cl] + : ModifyClient (\c -> c{isInGame = True}) + : (AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : (reverse . roundMsgs . fromJust . gameInfo $ jRoom)) + : [AnswerClients [sendChan cl] $ "EM" : [fromJust msg] | isJust msg] + where + msg = lastFilteredTimedMsg . fromJust . gameInfo $ jRoom handleCmd_lobby ["JOIN_ROOM", roomName] =