Add more logging to backfilling guix_revision_package_derivation_distribution_counts

guix-data-service/model/guix-revision-package-derivation.scm

@@ -20,6 +20,7 @@
   #:use-module (ice-9 threads)
   #:use-module (squee)
   #:use-module (guix-data-service database)
+  #:use-module (guix-data-service utils)
   #:use-module (guix-data-service model system)
   #:export (insert-guix-revision-package-derivations
 
@@ -174,7 +175,16 @@ ORDER BY id DESC")))
 
   (for-each
    (lambda (revision-id)
-     (simple-format #t "backfilling guix_revision_package_derivation_distribution_counts for revision ~A\n" revision-id)
+     (with-exception-handler
+         (lambda (exn)
+           (simple-format
+            #t "exception backfilling guix_revision_package_derivation_distribution_counts for revision ~A: ~A\n"
+            revision-id exn))
+       (lambda ()
+         (with-time-logging
+             (simple-format
+              #f "backfilling guix_revision_package_derivation_distribution_counts for revision ~A"
+              revision-id)
            (let ((system-ids-and-targets
                   (exec-query
                    conn
@@ -197,7 +207,8 @@ WHERE revision_id = $1"
                      revision-id
                      system-id
                      target)))
-           system-ids-and-targets)))))
+                 system-ids-and-targets))))))
+       #:unwind? #t))
    revision-ids))
 
 (define* (get-sql-to-select-package-and-related-derivations-for-revision