diff options
Diffstat (limited to 'guix/scripts/gc.scm')
-rw-r--r-- | guix/scripts/gc.scm | 10 |
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)) |