cbaines pushed a commit to branch master
in repository data-service.
commit cb1bc060c808f142bbdc18c4ec4bb8d996d668c8
Author: Christopher Baines <[email protected]>
AuthorDate: Fri Nov 29 10:09:59 2024 +0000
Move log message
---
guix-data-service/jobs/load-new-guix-revision.scm | 36 +++++++++++------------
1 file 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)
