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) (hash-set! seen-ids number #t)
number)))) number))))
(with-time-logging (exec-query conn query))))
(simple-format
#f "querying for batch of ~A related derivation ids"
(length ids-chunk))
(exec-query conn query)))))
(chunk! ids 500)) (chunk! ids 500))
< <
=)) =))
@ -1863,8 +1859,7 @@ INNER JOIN derivation_source_files
(map (lambda (row) (map (lambda (row)
(list (string->number (first row)) (list (string->number (first row))
(second 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 ((seen-ids (make-hash-table)))
(let loop ((next-related-derivation-ids (let loop ((next-related-derivation-ids