diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-11-15 18:00:40 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-11-15 18:00:40 +0000 |
| commit | a18fa609876d564d85eac44ae4a367eaa0bda5b6 (patch) | |
| tree | 003ad78fdbe5652e50c0dd2759f380966b13591f /guix-build-coordinator/agent.scm | |
| parent | f0d6237eee7b1802ea4d358bad4f7a2adffc6842 (diff) | |
| download | build-coordinator-a18fa609876d564d85eac44ae4a367eaa0bda5b6.tar build-coordinator-a18fa609876d564d85eac44ae4a367eaa0bda5b6.tar.gz | |
Report upload status more frequently
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 7a967d8..5ff1fa7 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -139,10 +139,10 @@ (length queued-uploads))) (when (or (> bytes-now-sent - (+ last-progress-update-bytes-sent 20000000)) + (+ last-progress-update-bytes-sent 10000000)) (and (> queued-uploads-count 0) (> (- (time-second (current-time))) - (+ last-progress-update-time 30)))) + (+ last-progress-update-time 15)))) (set! last-progress-update-bytes-sent bytes-now-sent) (set! last-progress-update-time |