author | unc0rr |
Mon, 16 May 2011 22:03:14 +0400 | |
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