gameServer/Actions.hs
changeset 5211 8ebf92014447
parent 5210 a5329e52a71b
child 5212 eaffb02f0053
--- a/gameServer/Actions.hs	Sun May 15 18:16:13 2011 +0400
+++ b/gameServer/Actions.hs	Mon May 16 22:03:14 2011 +0400
@@ -466,8 +466,9 @@
 
 
 processAction StatsAction = do
+    si <- gets serverInfo
+    when (not $ shutdownPending si) $ do
     rnc <- gets roomsClients
-    si <- gets serverInfo
     (roomsNum, clientsNum) <- io $ withRoomsAndClients rnc st
     io $ writeChan (dbQueries si) $ SendStats clientsNum (roomsNum - 1)
     where