Lower sample size to 1000

Author: rvanasa

backend/main/DownloadLog.mo

@@ -431,7 +431,7 @@ module {
       dailyTempRecords : { count : Nat; bytes : Nat };
       weeklyTempRecords : { count : Nat; bytes : Nat };
     } {
-      let SAMPLE_SIZE : Nat = 10_000;
+      let SAMPLE_SIZE : Nat = 1_000;
 
       func sampleDownloadsMapBytes(map : TrieMap.TrieMap<Text.Text, Nat>) : Nat {
         let total = map.size();

backend/main/Users.mo

@@ -29,7 +29,7 @@ module {
       users : { count : Nat; bytes : Nat };
       names : { count : Nat; bytes : Nat };
     } {
-      let SAMPLE_SIZE : Nat = 10_000;
+      let SAMPLE_SIZE : Nat = 1_000;
 
       let usersTotal = _users.size();
       let usersStride = if (usersTotal <= SAMPLE_SIZE) 1 else (usersTotal + SAMPLE_SIZE - 1) / SAMPLE_SIZE;

backend/main/main-canister.mo

@@ -621,7 +621,7 @@ actor class Main() = this {
     storageManager.getStoragesStats();
   };
 
-  let SAMPLE_SIZE : Nat = 10_000;
+  let SAMPLE_SIZE : Nat = 1_000;
 
   // Serializes a random sample of up to SAMPLE_SIZE entries and extrapolates
   // the total byte count, keeping to_candid allocations bounded.

backend/storage/storage-manager.mo

@@ -176,7 +176,7 @@ module {
       storages : { count : Nat; bytes : Nat };
       storageByFileId : { count : Nat; bytes : Nat };
     } {
-      let SAMPLE_SIZE : Nat = 10_000;
+      let SAMPLE_SIZE : Nat = 1_000;
 
       func sampleStoragesBytes() : Nat {
         let total = storages.size();