diff options
| author | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-03-06 08:29:09 +0100 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-03-06 08:32:01 +0100 |
| commit | 1d24cc6de674ff8cd6321eb373ab86c8028e2281 (patch) | |
| tree | e1bf456ca621d976b0482152efc5179cb3ca2ad9 /guix | |
| parent | bc8b2ffdac3f55414629ace5b1a0db32e9656c0a (diff) | |
scripts: Show disk-space warning when under the min of the thresholds.
Follow-up to 71c3c3df92375ca9b4bd28b2be90dda67288fa5c 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.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts.scm b/guix/scripts.scm index e235c8d4c3..3e19e38957 100644 --- a/guix/scripts.scm +++ b/guix/scripts.scm @@ -237,7 +237,7 @@ THRESHOLDS is a pair (ABSOLUTE-THRESHOLD . RELATIVE-THRESHOLD)." (total (* block-size (file-system-block-count stats))) (relative-threshold-in-bytes (* total (cadr 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)) (warning (G_ "only ~,1f GiB of free space available on ~a~%") (/ available 1. GiB) (%store-prefix)) |