guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 7df7dc31f1432d0a8c1d6b6521db6eaebcb654c4
Author: Efraim Flashner <[email protected]>
AuthorDate: Mon Jul 28 13:24:40 2025 +0300
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 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))
