cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove some time logging

Browse source 
As this is a bit noisy.
This commit is contained in:
Christopher Baines 2024-01-27 18:39:41 +00:00
parent e0a6c845e5
commit e51d2f8932
1 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/model/derivation.scm
View file

@ -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