01/02: guix gc: Round MiBs in user feedback.

[guix-commits]

pelzflorian pushed a commit to branch master
in repository guix.

commit 782d806c3ae1514116d79a6aad21e2d9c5778a02
Author: Remco van 't Veer <remco@remworks.net>
AuthorDate: Mon Jan 23 19:17:14 2023 +0100

    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>
---
 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 <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))