cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Log more timing infromation about inserting derivations

Browse source
This commit is contained in:
Christopher Baines 2024-07-16 16:07:47 +01:00
parent 1754d1a321
commit 7da355b034
1 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

22
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -905,15 +905,21 @@
(let* ((system-and-target (car data)) (let* ((system-and-target (car data))
(derivations-vector (cdr data)) (derivations-vector (cdr data))
(derivation-ids (derivation-ids
(derivation-file-names->derivation-ids (with-time-logging
conn (simple-format #f "derivation-file-names->derivation-ids (~A)"
derivations-vector))) system-and-target)
(derivation-file-names->derivation-ids
conn
derivations-vector))))
(insert-package-derivations conn (with-time-logging
(car system-and-target) (simple-format #f "insert-package-derivations (~A)"
(or (cdr system-and-target) "") system-and-target)
package-ids (insert-package-derivations conn
derivation-ids))) (car system-and-target)
(or (cdr system-and-target) "")
package-ids
derivation-ids))))
inferior-packages-system-and-target-to-derivations-alist)) inferior-packages-system-and-target-to-derivations-alist))
(define guix-store-path (define guix-store-path