aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-01-27 18:39:41 +0000
committerChristopher Baines <mail@cbaines.net>2024-01-27 18:39:41 +0000
commite51d2f893231727aca77b0654246ee8631f4c869 (patch)
treef091ab329626b30779863111509c9d68f482513b
parente0a6c845e536db88b990e3ee1f0f88b0c05740ba (diff)
downloaddata-service-e51d2f893231727aca77b0654246ee8631f4c869.tar
data-service-e51d2f893231727aca77b0654246ee8631f4c869.tar.gz
Remove some time logging
As this is a bit noisy.
-rw-r--r--guix-data-service/model/derivation.scm9
1 files changed, 2 insertions, 7 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm
index c516e58..3b35a0a 100644
--- a/guix-data-service/model/derivation.scm
+++ b/guix-data-service/model/derivation.scm
@@ -1834,11 +1834,7 @@ WHERE derivation_inputs.derivation_id IN ("
(hash-set! seen-ids number #t)
number))))
- (with-time-logging
- (simple-format
- #f "querying for batch of ~A related derivation ids"
- (length ids-chunk))
- (exec-query conn query)))))
+ (exec-query conn query))))
(chunk! ids 500))
<
=))
@@ -1863,8 +1859,7 @@ INNER JOIN derivation_source_files
(map (lambda (row)
(list (string->number (first row))
(second row)))
- (with-time-logging "finding batch of missing sources"
- (exec-query conn query))))
+ (exec-query conn query)))
(let ((seen-ids (make-hash-table)))
(let loop ((next-related-derivation-ids