04/14: Remove even more time logging

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 39f626aa456b7573b54cc63d519b25c30af6a1e1
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Jan 28 08:18:13 2024 +0000

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