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

Add more time logging in to insert-missing-derivations

Browse source
This commit is contained in:
Christopher Baines 2024-07-16 16:13:17 +01:00
parent 7da355b034
commit bbbcea8ff6
1 changed files with 58 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

30
guix-data-service/model/derivation.scm
View file

@ -1623,8 +1623,9 @@ LIMIT $1"
" RETURNING id"
";"))
(with-time-logging
(simple-format
#t "debug: insert-missing-derivations: inserting ~A derivations\n"
#f "insert-missing-derivations: inserting ~A derivations"
(length derivations))
(let ((derivation-ids
(append-map
@ -1634,26 +1635,26 @@ LIMIT $1"
(exec-query conn (insert-into-derivations chunk))))
(chunk derivations 500))))
(simple-format
#t "debug: insert-missing-derivations: updating hash table\n")
(with-time-logging
"insert-missing-derivations: updating hash table"
(for-each (lambda (derivation derivation-id)
(hash-set! derivation-ids-hash-table
(derivation-file-name derivation)
derivation-id))
derivations
derivation-ids)
derivation-ids))
(simple-format
#t "debug: insert-missing-derivations: inserting outputs\n")
(with-time-logging
"insert-missing-derivations: inserting outputs"
(for-each (lambda (derivation-id derivation)
(insert-derivation-outputs conn
derivation-id
(derivation-outputs derivation)))
derivation-ids
derivations)
derivations))
(simple-format
#t "debug: insert-missing-derivations: inserting sources\n")
(with-time-logging
"insert-missing-derivations: inserting sources"
(for-each (lambda (derivation-id derivation)
(let ((sources (derivation-sources derivation)))
(unless (null? sources)
@ -1668,15 +1669,14 @@ LIMIT $1"
sources-ids
sources)))))
derivation-ids
derivations)
(simple-format
#t "debug: insert-missing-derivations: ensure-input-derivations-exist\n")
derivations))
(with-time-logging
"insert-missing-derivations: ensure-input-derivations-exist"
(ensure-input-derivations-exist (deduplicate-strings
(map derivation-input-path
(append-map derivation-inputs
derivations))))
derivations)))))
(with-time-logging
(simple-format
@ -1686,7 +1686,7 @@ LIMIT $1"
derivation-ids
derivations))
derivation-ids))
derivation-ids)))
(define (select-derivations-by-id conn ids)
(define query