# HG changeset patch
# User unc0rr
# Date 1279568298 -14400
# Node ID 113cb9345be19030cc0308fd4fd185da61d6f5d6
# Parent  fa3bf50d03387ecb4bc39a4551281c27a5b36313
Make server stay alive when some clients get kicked

diff -r fa3bf50d0338 -r 113cb9345be1 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Mon Jul 19 23:31:08 2010 +0400
+++ b/gameServer/Actions.hs	Mon Jul 19 23:38:18 2010 +0400
@@ -416,8 +416,8 @@
 
 processAction PingAll = do
     rnc <- gets roomsClients
+    liftIO (allClientsM rnc) >>= mapM_ (kickTimeouted rnc)
     cis <- liftIO $ allClientsM rnc
-    mapM_ (kickTimeouted rnc) $ cis
     chans <- liftIO $ mapM (client'sM rnc sendChan) cis
     liftIO $ mapM_ (modifyClient rnc (\cl -> cl{pingsQueue = pingsQueue cl + 1})) cis
     processAction $ AnswerClients chans ["PING"]