diff options
| author | Remco van 't Veer <remco@remworks.net> | 2023-01-23 19:17:14 +0100 |
|---|---|---|
| committer | Florian Pelz <pelzflorian@pelzflorian.de> | 2023-05-31 22:45:35 +0200 |
| commit | 782d806c3ae1514116d79a6aad21e2d9c5778a02 (patch) | |
| tree | acc87576365b145f89047659c67447beb3265c66 /guix | |
| parent | 6ea2e1105ad66062996eabb8af747c6ada353717 (diff) | |
guix gc: Round MiBs in user feedback.
* guix/scripts/gc.scm (guix-gc): Round MiBs in user feedback.
Signed-off-by: Florian Pelz <pelzflorian@pelzflorian.de>
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/gc.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm index 5e775c5cdb..6068f5fe3f 100644 --- a/guix/scripts/gc.scm +++ b/guix/scripts/gc.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012-2013, 2015-2020, 2022 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2022 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2022 Remco van 't Veer <remco@remworks.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -260,10 +261,10 @@ is deprecated; use '-D'~%")) ;; Attempt to have at least SPACE bytes available in STORE. (let ((free (free-disk-space (%store-prefix)))) (if (> free space) - (info (G_ "already ~h MiBs available on ~a, nothing to do~%") + (info (G_ "already ~,2h MiBs available on ~a, nothing to do~%") (/ free 1024. 1024.) (%store-prefix)) (let ((to-free (- space free))) - (info (G_ "freeing ~h MiBs~%") (/ to-free 1024. 1024.)) + (info (G_ "freeing ~,2h MiBs~%") (/ to-free 1024. 1024.)) (collect-garbage store to-free))))) (define (delete-generations store pattern) @@ -327,10 +328,10 @@ is deprecated; use '-D'~%")) (ensure-free-space store free-space)) (min-freed (let-values (((paths freed) (collect-garbage store min-freed))) - (info (G_ "freed ~h MiBs~%") (/ freed 1024. 1024.)))) + (info (G_ "freed ~,2h MiBs~%") (/ freed 1024. 1024.)))) (else (let-values (((paths freed) (collect-garbage store))) - (info (G_ "freed ~h MiBs~%") (/ freed 1024. 1024.))))))) + (info (G_ "freed ~,2h MiBs~%") (/ freed 1024. 1024.))))))) ((list-roots) (assert-no-extra-arguments) (list-roots)) |