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 loop ((next-related-derivation-ids
(with-time-logging "querying for next related dervation ids"
(derivation-ids->next-related-derivation-ids!
(list-copy derivation-ids)
seen-ids))))
(derivation-ids->next-related-derivation-ids!
(list-copy derivation-ids)
seen-ids)))
(unless (null? next-related-derivation-ids)
(let ((missing-sources
(with-time-logging "querying for missing sources"
(append-map! derivation-ids->missing-sources
(chunk next-related-derivation-ids
10000)))))
(append-map! derivation-ids->missing-sources
(chunk next-related-derivation-ids
10000))))
(unless (null? missing-sources)
(with-time-logging
@ -1887,10 +1885,9 @@ INNER JOIN derivation_source_files
missing-sources))))
(loop
(with-time-logging "querying for next related dervation ids"
(derivation-ids->next-related-derivation-ids!
next-related-derivation-ids
seen-ids)))))))
(derivation-ids->next-related-derivation-ids!
next-related-derivation-ids
seen-ids))))))
(if (= 0 derivations-count)
#()