ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: Show disk-space warning when under the min of the thresholds.

Browse source 
Follow-up to 71c3c3df92 which got the logic
wrong.

* guix/scripts.scm (warn-about-disk-space): Compare AVAILABLE to the min of
RELATIVE-THRESHOLD-IN-BYTES and ABSOLUTE-THRESHOLD-IN-BYTES, not the max.
This commit is contained in:
Pierre Neidhardt 2020-03-06 08:29:09 +01:00
parent bc8b2ffdac
commit 1d24cc6de6
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/scripts.scm
View file

@ -237,7 +237,7 @@ (define GiB (expt 2 30))
(total (* block-size (file-system-block-count stats))) (total (* block-size (file-system-block-count stats)))
(relative-threshold-in-bytes (* total (cadr thresholds))) (relative-threshold-in-bytes (* total (cadr thresholds)))
(absolute-threshold-in-bytes (car thresholds))) (absolute-threshold-in-bytes (car thresholds)))
(when (< available (max relative-threshold-in-bytes (when (< available (min relative-threshold-in-bytes
absolute-threshold-in-bytes)) absolute-threshold-in-bytes))
(warning (G_ "only ~,1f GiB of free space available on ~a~%") (warning (G_ "only ~,1f GiB of free space available on ~a~%")
(/ available 1. GiB) (%store-prefix)) (/ available 1. GiB) (%store-prefix))