diff -r a5329e52a71b -r 8ebf92014447 gameServer/Actions.hs --- 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