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))
(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))