diff -r 2922455e606e -r 288dcbda3b77 gameServer/Actions.hs --- a/gameServer/Actions.hs Sun Apr 03 13:31:33 2011 +0400 +++ b/gameServer/Actions.hs Sun Apr 03 13:34:04 2011 +0400 @@ -127,6 +127,7 @@ chan <- client's sendChan clNick <- client's nick + loggedIn <- client's logonPassed when (ri /= lobbyId) $ do processAction $ MoveToLobby ("quit: " `B.append` msg) @@ -137,7 +138,7 @@ infoM "Clients" (show ci ++ " quits: " ++ B.unpack msg) processAction $ AnswerClients [chan] ["BYE", msg] - processAction $ AnswerClients clientsChans ["LOBBY:LEFT", clNick, msg] + when loggedIn $ processAction $ AnswerClients clientsChans ["LOBBY:LEFT", clNick, msg] s <- get put $! s{removedClients = ci `Set.insert` removedClients s}