guix gc: Display of saved space for garbage collection.

Fixes <http://bugs.gnu.org/23979>.

* guix/scripts/gc.scm (guix-gc): Display freed bytes.

Signed-off-by: Vincent Legoll <vincent.legoll@idgrilles.fr>
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Vincent Legoll 2016-07-16 10:05:48 +02:00 committed by Ludovic Courtès
parent fb8a5d633a
commit 1187a27112
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 2 deletions

View File

@ -24,6 +24,7 @@
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (srfi srfi-37) #:use-module (srfi srfi-37)
#:export (guix-gc)) #:export (guix-gc))
@ -221,9 +222,11 @@ Invoke the garbage collector.\n"))
(free-space (free-space
(ensure-free-space store free-space)) (ensure-free-space store free-space))
(min-freed (min-freed
(collect-garbage store min-freed)) (let-values (((paths freed) (collect-garbage store min-freed)))
(info (_ "freed ~h bytes~%") freed)))
(else (else
(collect-garbage store))))) (let-values (((paths freed) (collect-garbage store)))
(info (_ "freed ~h bytes~%") freed))))))
((delete) ((delete)
(delete-paths store (map direct-store-path paths))) (delete-paths store (map direct-store-path paths)))
((list-references) ((list-references)