summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorRemco van 't Veer <remco@remworks.net>2023-01-23 19:17:14 +0100
committerFlorian Pelz <pelzflorian@pelzflorian.de>2023-05-31 22:45:35 +0200
commit782d806c3ae1514116d79a6aad21e2d9c5778a02 (patch)
treeacc87576365b145f89047659c67447beb3265c66 /guix
parent6ea2e1105ad66062996eabb8af747c6ada353717 (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.scm9
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))