437 

   437 -}

   438 processAction (clID, serverInfo, rnc) (StatsAction) = do

   438 

   439     writeChan (dbQueries serverInfo) $ SendStats (size clients) (size rooms - 1)

   439 processAction (StatsAction) = do

   440     return (clID, serverInfo, rnc)

   440     rnc <- gets roomsClients

   441 

   441     si <- gets serverInfo

   442 -}

   442     (roomsNum, clientsNum) <- liftIO $ withRoomsAndClients rnc stats

   443     liftIO $ writeChan (dbQueries si) $ SendStats clientsNum (roomsNum - 1)

   444     where

   445           stats irnc = (length $ allRooms irnc, length $ allClients irnc)

   446