diff options
-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) #() |