cbaines pushed a commit to branch master
in repository data-service.
commit 7da355b034eaa33cfdc6008290c9574439d07eba
Author: Christopher Baines <[email protected]>
AuthorDate: Tue Jul 16 16:07:47 2024 +0100
Log more timing infromation about inserting derivations
---
guix-data-service/jobs/load-new-guix-revision.scm | 24 ++++++++++++++---------
1 file changed, 15 insertions(+), 9 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)))
-
- (insert-package-derivations conn
- (car system-and-target)
- (or (cdr system-and-target) "")
- package-ids
- derivation-ids)))
+ (with-time-logging
+ (simple-format #f "derivation-file-names->derivation-ids (~A)"
+ system-and-target)
+ (derivation-file-names->derivation-ids
+ conn
+ derivations-vector))))
+
+ (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
