summaryrefslogtreecommitdiff
path: root/guix/scripts/gc.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/scripts/gc.scm')
-rw-r--r--guix/scripts/gc.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm
index 58af827617..7663efe7f8 100644
--- a/guix/scripts/gc.scm
+++ b/guix/scripts/gc.scm
@@ -261,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 ~,2h MiBs available on ~a, nothing to do~%")
- (/ free 1024. 1024.) (%store-prefix))
+ (info (G_ "already ~a available on ~a, nothing to do~%")
+ (number->size free) (%store-prefix))
(let ((to-free (- space free)))
- (info (G_ "freeing ~,2h MiBs~%") (/ to-free 1024. 1024.))
+ (info (G_ "freeing ~a~%") (number->size to-free))
(collect-garbage store to-free)))))
(define (delete-generations store pattern)
@@ -328,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 ~,2h MiBs~%") (/ freed 1024. 1024.))))
+ (info (G_ "freed ~a~%") (number->size freed))))
(else
(let-values (((paths freed) (collect-garbage store)))
- (info (G_ "freed ~,2h MiBs~%") (/ freed 1024. 1024.)))))))
+ (info (G_ "freed ~a~%") (number->size freed)))))))
((list-roots)
(assert-no-extra-arguments)
(list-roots))