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

Remove even more time logging

Browse source
This commit is contained in:
Christopher Baines 2024-01-28 08:18:13 +00:00
parent 75f27264a6
commit 39f626aa45
1 changed files with 9 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1863,16 +1863,14 @@ INNER JOIN derivation_source_files
(let ((seen-ids (make-hash-table))) (let ((seen-ids (make-hash-table)))
(let loop ((next-related-derivation-ids (let loop ((next-related-derivation-ids
(with-time-logging "querying for next related dervation ids" (derivation-ids->next-related-derivation-ids!
(derivation-ids->next-related-derivation-ids! (list-copy derivation-ids)
(list-copy derivation-ids) seen-ids)))
seen-ids))))
(unless (null? next-related-derivation-ids) (unless (null? next-related-derivation-ids)
(let ((missing-sources (let ((missing-sources
(with-time-logging "querying for missing sources" (append-map! derivation-ids->missing-sources
(append-map! derivation-ids->missing-sources (chunk next-related-derivation-ids
(chunk next-related-derivation-ids 10000))))
10000)))))
(unless (null? missing-sources) (unless (null? missing-sources)
(with-time-logging (with-time-logging
@ -1887,10 +1885,9 @@ INNER JOIN derivation_source_files
missing-sources)))) missing-sources))))
(loop (loop
(with-time-logging "querying for next related dervation ids" (derivation-ids->next-related-derivation-ids!
(derivation-ids->next-related-derivation-ids! next-related-derivation-ids
next-related-derivation-ids seen-ids))))))
seen-ids)))))))
(if (= 0 derivations-count) (if (= 0 derivations-count)
#() #()