diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-28 08:18:13 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-28 08:18:13 +0000 |
| commit | 39f626aa456b7573b54cc63d519b25c30af6a1e1 (patch) | |
| tree | 0875160c5109a4485c5f394983b1709cfaec1a18 /guix-data-service | |
| parent | 75f27264a609cede6c7616c18037cf6544c3666f (diff) | |
| download | data-service-39f626aa456b7573b54cc63d519b25c30af6a1e1.tar data-service-39f626aa456b7573b54cc63d519b25c30af6a1e1.tar.gz | |
Remove even more time logging
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/model/derivation.scm | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 3b35a0a..170be49 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -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) #() |