diff options
Diffstat (limited to 'guix-qa-frontpage/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 25f550a..f770574 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -324,7 +324,7 @@ #:args (list (string->number number)) #:ttl 1200 #:store-computed-value? list?)) - (derivation-changes + (derivation-changes-data change-details (call-with-values (lambda () @@ -342,7 +342,7 @@ (with-sqlite-cache database 'derivation-changes - patch-series-derivation-changes + derivation-changes #:args (list (patch-series-derivation-changes-url @@ -382,7 +382,7 @@ (patch-series-compare-url base-and-target-refs #:json? #f)) - derivation-changes + derivation-changes-data change-details comparison-details))) (render-html @@ -446,16 +446,16 @@ port. Also, the port used can be changed by passing the --port option.\n" port))))))) (define* (branch-data branch-name) - (let* ((derivation-changes + (let* ((derivation-changes-data change-details - (branch-derivation-changes + (derivation-changes (branch-derivation-changes-url branch-name #:systems %systems-to-submit-builds-for))) (derivation-changes-counts (derivation-changes-counts - derivation-changes + derivation-changes-data %systems-to-submit-builds-for))) (values @@ -489,7 +489,7 @@ port. Also, the port used can be changed by passing the --port option.\n" (n-par-for-each 4 (lambda (series) - (let ((derivation-changes + (let ((derivation-changes-data (with-exception-handler (lambda (exn) (unless @@ -524,7 +524,7 @@ port. Also, the port used can be changed by passing the --port option.\n" (with-sqlite-cache database 'derivation-changes - patch-series-derivation-changes + derivation-changes #:args (list (patch-series-derivation-changes-url base-and-target-refs @@ -532,13 +532,13 @@ port. Also, the port used can be changed by passing the --port option.\n" #:ttl (/ frequency 2))))) #:unwind? #t))) - (and derivation-changes + (and derivation-changes-data (with-sqlite-cache database 'issue-patches-overall-status (lambda (id) (issue-patches-overall-status - derivation-changes + derivation-changes-data (assq-ref (assq-ref series 'mumi) 'tags))) #:args (list (car series)) |