diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-11-29 10:09:59 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-11-29 10:37:56 +0000 |
| commit | cb1bc060c808f142bbdc18c4ec4bb8d996d668c8 (patch) | |
| tree | 0ed11dd5bfabfdfe8cb851a81cba58047cb0e103 /guix-data-service/jobs | |
| parent | e14fd88d8f6a52bf9e0501e4a016259e75c2f9f2 (diff) | |
| download | data-service-cb1bc060c808f142bbdc18c4ec4bb8d996d668c8.tar data-service-cb1bc060c808f142bbdc18c4ec4bb8d996d668c8.tar.gz | |
Move log message
Diffstat (limited to 'guix-data-service/jobs')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 85e7edd..d5bd431 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -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) |