amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix offload: Adjust size suffix based on amount of data.

Browse source 
* guix/scripts/offload.scm (choose-build-machine): Display amount of
free space using more specific units.
(check-machine-status): Same.

Change-Id: I93ebbf3115f15dacf57be7e63350bfbe8a3974b6
This commit is contained in:
Efraim Flashner 2025-07-28 13:24:40 +03:00
parent cc588d8eb6
commit 7df7dc31f1
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix/scripts/offload.scm
View file

@ -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)) (when (and space (< space %minimum-disk-space))
(format (current-error-port) (format (current-error-port)
"skipping machine '~a' because it is low \ "skipping machine '~a' because it is low \
on disk space (~,2f MiB free)~%" on disk space (~a free)~%"
(build-machine-name best) (build-machine-name best)
(/ space (expt 2 20) 1.))) (number->size space)))
(release-build-slot slot) (release-build-slot slot)
(loop others))))) (loop others)))))
(() (()
@ -779,14 +779,14 @@ machine."
(free (node-free-disk-space inferior))) (free (node-free-disk-space inferior)))
(close-inferior inferior) (close-inferior inferior)
(format #t "~a~% kernel: ~a ~a~% architecture: ~a~%\ (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~%" time difference: ~a s~%"
(build-machine-name machine) (build-machine-name machine)
(utsname:sysname uts) (utsname:release uts) (utsname:sysname uts) (utsname:release uts)
(utsname:machine uts) (utsname:machine uts)
(utsname:nodename uts) (utsname:nodename uts)
load load
(/ free (expt 2 20) 1.) (number->size free)
(- time now)))))))) (- time now))))))))
(disconnect! session)) (disconnect! session))