From 7df7dc31f1432d0a8c1d6b6521db6eaebcb654c4 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Mon, 28 Jul 2025 13:24:40 +0300 Subject: [PATCH] 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 --- guix/scripts/offload.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index 93e9d3759c6..069bf33c7f0 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))