diff options
author | Ludovic Courtès <ludo@gnu.org> | 2019-04-06 23:19:36 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-10 17:09:47 +0200 |
commit | 9c074f61ef1883ae01fcb9daa0c199c46b1ea584 (patch) | |
tree | 8f9a2a5bd6ece1ccf991cae2013ac86d64ab0416 | |
parent | 96b8c2e6e2aa00b7b400530b62cf7479aa2d9674 (diff) | |
download | patches-9c074f61ef1883ae01fcb9daa0c199c46b1ea584.tar patches-9c074f61ef1883ae01fcb9daa0c199c46b1ea584.tar.gz |
scripts: GC hint suggests 'guix gc -d 1m'.
* guix/scripts.scm (warn-about-disk-space): Suggest 'guix gc -d'.
-rw-r--r-- | guix/scripts.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/guix/scripts.scm b/guix/scripts.scm index e4b11d295d..77cbf12350 100644 --- a/guix/scripts.scm +++ b/guix/scripts.scm @@ -201,16 +201,12 @@ available." (when (< ratio threshold) (warning (G_ "only ~,1f% of free space available on ~a~%") (* ratio 100) (%store-prefix)) - (if profile - (display-hint (format #f (G_ "Consider deleting old profile + (display-hint (format #f (G_ "Consider deleting old profile generations and collecting garbage, along these lines: @example -guix package -p ~s --delete-generations=1m -guix gc +guix gc --delete-generations=1m @end example\n") - profile)) - (display-hint (G_ "Consider running @command{guix gc} to free -space.")))))) + profile))))) ;;; scripts.scm ends here |