Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/Actions.hs
changeset 3658 113cb9345be1
parent 3656 c74a4a407146
child 3671 a94d1dc4a8d9 
--- 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"]
hedgewars