02/18: Move log message

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit cb1bc060c808f142bbdc18c4ec4bb8d996d668c8
Author: Christopher Baines <mail@cbaines.net>
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)