04/04: Print out the system tests as the derivations are being computed

[Christopher Baines]

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

commit 1b197884d01bb1f6e2ccef60cb39280f7ed259f0
Author: Christopher Baines <address@hidden>
AuthorDate: Tue Apr 7 20:08:26 2020 +0100

    Print out the system tests as the derivations are being computed
    
    This might help with debugging failures in the load jobs around this point.
---
 guix-data-service/jobs/load-new-guix-revision.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index ceb4e89..f716950 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -315,6 +315,10 @@ 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)
                 (map (lambda (system)