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))
(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