# HG changeset patch
# User unc0rr
# Date 1301823244 -14400
# Node ID 288dcbda3b77feaf1114485d0013f42a9190accb
# Parent  2922455e606e6fbc233141b6df663192b9eed668
Show only logged-in clients quit messages

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}