From 782d806c3ae1514116d79a6aad21e2d9c5778a02 Mon Sep 17 00:00:00 2001 From: Remco van 't Veer Date: Mon, 23 Jan 2023 19:17:14 +0100 Subject: guix gc: Round MiBs in user feedback. * guix/scripts/gc.scm (guix-gc): Round MiBs in user feedback. Signed-off-by: Florian Pelz --- guix/scripts/gc.scm | 9 +++++---- 1 file 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 ;;; Copyright © 2022 Efraim Flashner +;;; Copyright © 2022 Remco van 't Veer ;;; ;;; 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)) -- cgit 1.4.1