From 39f626aa456b7573b54cc63d519b25c30af6a1e1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 28 Jan 2024 08:18:13 +0000 Subject: Remove even more time logging --- guix-data-service/model/derivation.scm | 21 +++++++++------------ 1 file 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) #() -- cgit v1.2.3