cbaines pushed a commit to branch master
in repository data-service.
commit cdffef2397900f865dff1ce5a47ad716e8dcd6b9
Author: Christopher Baines <[email protected]>
AuthorDate: Sat Dec 21 17:52:59 2024 +0000
Report on the GC when processing revisions
---
guix-data-service/jobs/load-new-guix-revision.scm | 15 ++++++++++++++-
1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm
b/guix-data-service/jobs/load-new-guix-revision.scm
index ad3f1ed..4e2092f 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -22,6 +22,7 @@
#:use-module (srfi srfi-71)
#:use-module (ice-9 match)
#:use-module (ice-9 threads)
+ #:use-module (ice-9 format)
#:use-module (ice-9 exceptions)
#:use-module (ice-9 textual-ports)
#:use-module (ice-9 hash-table)
@@ -2392,7 +2393,14 @@ SELECT 1 FROM derivation_source_file_nars WHERE
derivation_source_file_id = $1"
(with-time-logging "updating
builds.derivation_output_details_set_id"
(update-builds-derivation-output-details-set-id
conn
- (fibers-force guix-revision-id-promise))))
+ (fibers-force guix-revision-id-promise)))
+ (let ((stats (gc-stats)))
+ (format (current-error-port)
+ "gc-stats: time taken: ~3fs, times: ~d~%"
+ (/ (assq-ref stats 'gc-time-taken)
+ internal-time-units-per-second)
+ (assq-ref stats 'gc-times))
+ #t))
(begin
(simple-format #t "Failed to generate store item for ~A\n"
commit)
@@ -2800,6 +2808,11 @@ SKIP LOCKED")
(resource-pool-retry-checkout-timeout 120)
+ (add-hook! after-gc-hook
+ (lambda ()
+ (simple-format (current-error-port)
+ "after gc\n")))
+
(exec-query conn "BEGIN")
;; (spawn-fiber
