diff options
| author | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-05-26 15:22:19 +0200 |
|---|---|---|
| committer | Guix Patches Tester <> | 2020-05-26 14:24:11 +0100 |
| commit | 291df666bd9839b281b1f654365aba84a3278b15 (patch) | |
| tree | f11ce56fe68a2c96b3c6d27d2d34cdf2cc8d83d4 | |
| parent | e91c29a491267a832b2739a8f171e6e1bf263a95 (diff) | |
| download | patches-series-4108.tar patches-series-4108.tar.gz | |
guix scripts: Mention Guix checkouts + gcroots/auto when warning about disk space.series-4108
* guix/scripts.scm (warn-about-disk-space): Mention Guix checkouts, system profiles and
gcroots/auto.
| -rw-r--r-- | guix/scripts.scm | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/guix/scripts.scm b/guix/scripts.scm index 3e19e38957..c90c3b840c 100644 --- a/guix/scripts.scm +++ b/guix/scripts.scm @@ -241,11 +241,23 @@ THRESHOLDS is a pair (ABSOLUTE-THRESHOLD . RELATIVE-THRESHOLD)." absolute-threshold-in-bytes)) (warning (G_ "only ~,1f GiB of free space available on ~a~%") (/ available 1. GiB) (%store-prefix)) - (display-hint (format #f (G_ "Consider deleting old profile -generations and collecting garbage, along these lines: + (if profile + (display-hint (format #f (G_ "Consider deleting old profile +generations, deleting old Guix checkouts and collecting garbage, along these +lines: @example -guix gc --delete-generations=1m -@end example\n")))))) +guix package --profile=~s --delete-generations=1m +guix pull --delete-generations=20d # Guix checkouts +guix system delete-generations=2..9 # System generations +guix gc --free-space=5G +@end example + +You might also want to delete old non-default profiles pointed to by +the symlinks in /var/guix/gcroots/auto (broken symlinks in this +directory will be automatically removed).") + profile)) + (display-hint (G_ "Consider running @command{guix gc} to free +space.")))))) ;;; scripts.scm ends here |