diff options
Diffstat (limited to 'guix/scripts/offload.scm')
| -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)) |