diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2025-07-28 13:24:40 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2025-07-28 13:57:56 +0300 |
| commit | 7df7dc31f1432d0a8c1d6b6521db6eaebcb654c4 (patch) | |
| tree | 08731d9570a888bbb6a49012fd03fdbd557112c2 | |
| parent | cc588d8eb6a5e05bc8c9d41855685a1d8ce70187 (diff) | |
guix offload: Adjust size suffix based on amount of data.
* guix/scripts/offload.scm (choose-build-machine): Display amount of
free space using more specific units.
(check-machine-status): Same.
Change-Id: I93ebbf3115f15dacf57be7e63350bfbe8a3974b6
| -rw-r--r-- | guix/scripts/offload.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index 93e9d3759c..069bf33c7f 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -545,9 +545,9 @@ slot (which must later be released with 'release-build-slot'), or #f and #f." (when (and space (< space %minimum-disk-space)) (format (current-error-port) "skipping machine '~a' because it is low \ -on disk space (~,2f MiB free)~%" +on disk space (~a free)~%" (build-machine-name best) - (/ space (expt 2 20) 1.))) + (number->size space))) (release-build-slot slot) (loop others))))) (() @@ -779,14 +779,14 @@ machine." (free (node-free-disk-space inferior))) (close-inferior inferior) (format #t "~a~% kernel: ~a ~a~% architecture: ~a~%\ - host name: ~a~% normalized load: ~,2f~% free disk space: ~,2f MiB~%\ + host name: ~a~% normalized load: ~,2f~% free disk space: ~a~%\ time difference: ~a s~%" (build-machine-name machine) (utsname:sysname uts) (utsname:release uts) (utsname:machine uts) (utsname:nodename uts) load - (/ free (expt 2 20) 1.) + (number->size free) (- time now)))))))) (disconnect! session)) |