diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-31 18:35:59 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-31 18:35:59 +0000 |
| commit | 074b856b01202c74a86846278adf1a7bbcc41cb9 (patch) | |
| tree | 1b0e3819c3a60f33aa3500eb594ea6424b6435b0 /guix-qa-frontpage/server.scm | |
| parent | 6687339143d58afa0f26a674b24f83fab4a16556 (diff) | |
| download | qa-frontpage-074b856b01202c74a86846278adf1a7bbcc41cb9.tar qa-frontpage-074b856b01202c74a86846278adf1a7bbcc41cb9.tar.gz | |
Generate a reproducible.json file
Which can hopefully be consumed by https://ismypackagereproducibleyet.org/
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 () |