02/03: Add more granular logging for computing system test derivations

[Christopher Baines]

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

commit 1e2826e09547fdb9c52ddfae3f4f5617fd178099
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Nov 6 08:47:58 2022 +0100

    Add more granular logging for computing system test derivations
---
 guix-data-service/jobs/load-new-guix-revision.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index 22e8270..2eba411 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -382,14 +382,15 @@ WHERE job_id = $1")
     `(lambda (store)
        (map
         (lambda (system-test)
-          (simple-format
-           (current-error-port)
-           "guix-data-service: computing derivation for ~A system test\n"
-           (system-test-name system-test))
           (list (system-test-name system-test)
                 (system-test-description system-test)
                 (filter-map
                  (lambda (system)
+                   (simple-format
+                    (current-error-port)
+                    "guix-data-service: computing derivation for ~A system 
test (on ~A)\n"
+                    (system-test-name system-test)
+                    system)
                    (catch
                      #t
                      (lambda ()