From 7da355b034eaa33cfdc6008290c9574439d07eba Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 16 Jul 2024 16:07:47 +0100 Subject: [PATCH] Log more timing infromation about inserting derivations --- .../jobs/load-new-guix-revision.scm | 22 ++++++++++++------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index d5170b8..2ac5ede 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -905,15 +905,21 @@ (let* ((system-and-target (car data)) (derivations-vector (cdr data)) (derivation-ids - (derivation-file-names->derivation-ids - conn - derivations-vector))) + (with-time-logging + (simple-format #f "derivation-file-names->derivation-ids (~A)" + system-and-target) + (derivation-file-names->derivation-ids + conn + derivations-vector)))) - (insert-package-derivations conn - (car system-and-target) - (or (cdr system-and-target) "") - package-ids - derivation-ids))) + (with-time-logging + (simple-format #f "insert-package-derivations (~A)" + system-and-target) + (insert-package-derivations conn + (car system-and-target) + (or (cdr system-and-target) "") + package-ids + derivation-ids)))) inferior-packages-system-and-target-to-derivations-alist)) (define guix-store-path