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

Move log message

Browse source
This commit is contained in:
Christopher Baines 2024-11-29 10:09:59 +00:00
parent e14fd88d8f
commit cb1bc060c8
1 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

36
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1205,29 +1205,29 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
(if (= 0 derivations-count) (if (= 0 derivations-count)
#() #()
(begin (begin
(simple-format
#t "debug: derivation-file-names->derivation-ids: processing ~A derivations (~A)\n"
derivations-count
log-tag)
(with-resource-from-pool postgresql-connection-pool conn (with-resource-from-pool postgresql-connection-pool conn
(update-derivation-ids-hash-table! (update-derivation-ids-hash-table!
conn conn
derivation-ids-hash-table derivation-ids-hash-table
derivation-file-names)) derivation-file-names))
(let* ((missing-derivation-filenames (let ((missing-derivation-filenames
(deduplicate-strings (deduplicate-strings
(vector-fold (vector-fold
(lambda (_ result derivation-file-name) (lambda (_ result derivation-file-name)
(if (not derivation-file-name) (if (not derivation-file-name)
result result
(if (hash-ref derivation-ids-hash-table (if (hash-ref derivation-ids-hash-table
derivation-file-name) derivation-file-name)
result result
(cons derivation-file-name result)))) (cons derivation-file-name result))))
'() '()
derivation-file-names)))) derivation-file-names))))
(simple-format
#t "debug: derivation-file-names->derivation-ids: processing ~A missing derivations (~A)\n"
(length missing-derivation-filenames)
log-tag)
(let ((chunks (chunk! missing-derivation-filenames 1000))) (let ((chunks (chunk! missing-derivation-filenames 1000)))
(for-each (for-each
(lambda (i missing-derivation-file-names-chunk) (lambda (i missing-derivation-file-names-chunk)