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)
#()
(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
(update-derivation-ids-hash-table!
(update-derivation-ids-hash-table!
conn
derivation-ids-hash-table
derivation-file-names))
(let* ((missing-derivation-filenames
(deduplicate-strings
(vector-fold
(lambda (_ result derivation-file-name)
(if (not derivation-file-name)
result
(if (hash-ref derivation-ids-hash-table
derivation-file-name)
result
(cons derivation-file-name result))))
'()
derivation-file-names))))
(let ((missing-derivation-filenames
(deduplicate-strings
(vector-fold
(lambda (_ result derivation-file-name)
(if (not derivation-file-name)
result
(if (hash-ref derivation-ids-hash-table
derivation-file-name)
result
(cons derivation-file-name result))))
'()
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)))
(for-each
(lambda (i missing-derivation-file-names-chunk)