[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] Display of saved space for garbage collection

From: Vincent Legoll
Subject: [PATCH] Display of saved space for garbage collection
Date: Sat, 16 Jul 2016 10:05:48 +0200

From: Vincent Legoll <address@hidden>

* guix/scripts/gc.scm: Add display of freed bytes for "guix gc"

Fixes <>.

Signed-off-by: Vincent Legoll <address@hidden>
 guix/scripts/gc.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm
index 8db2813..bdfee43 100644
--- a/guix/scripts/gc.scm
+++ b/guix/scripts/gc.scm
@@ -24,6 +24,7 @@
   #:use-module (ice-9 match)
   #:use-module (ice-9 regex)
   #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-26)
   #:use-module (srfi srfi-37)
   #:export (guix-gc))
@@ -221,9 +222,11 @@ Invoke the garbage collector.\n"))
              (ensure-free-space store free-space))
-             (collect-garbage store min-freed))
+             (let-values (((paths freed) (collect-garbage store min-freed)))
+              (info (_ "freed ~h bytes~%") freed)))
-             (collect-garbage store)))))
+             (let-values (((paths freed) (collect-garbage store)))
+              (info (_ "freed ~h bytes~%") freed))))))
          (delete-paths store (map direct-store-path paths)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]