diff options
Diffstat (limited to 'guix-qa-frontpage/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index f401fe2..1216ed6 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -46,6 +46,7 @@ #:select (run-server/patched call-with-sigint)) #:use-module (guix-qa-frontpage database) #:use-module (guix-qa-frontpage derivation-changes) + #:use-module (guix-qa-frontpage reproducible-builds) #:use-module (guix-qa-frontpage patchwork) #:use-module (guix-qa-frontpage mumi) #:use-module (guix-qa-frontpage debbugs) @@ -766,11 +767,15 @@ has no patches or has been closed.") database metrics-registry #:key (controller-args '()) submit-builds? - patch-issues-to-show) + patch-issues-to-show + generate-reproducible.json) (define controller (apply make-controller assets-directory database metrics-registry controller-args)) + (when generate-reproducible.json + (start-generate-reproducible.json-thread)) + (let ((finished? (make-condition))) (call-with-new-thread (lambda () |