diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-08-22 17:56:08 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-09-03 09:30:58 +0100 |
| commit | 52f7af8c2aac411d340a495a027c4ab452a18b39 (patch) | |
| tree | 349705b21910696e006fa65a9146d2cf4d640654 /guix-qa-frontpage/server.scm | |
| parent | 731e13d2a4dbef6b9bafc22a7bd29a77b38a6455 (diff) | |
| download | qa-frontpage-52f7af8c2aac411d340a495a027c4ab452a18b39.tar qa-frontpage-52f7af8c2aac411d340a495a027c4ab452a18b39.tar.gz | |
Start trying to compare builds
Diffstat (limited to 'guix-qa-frontpage/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 1747098..911b90a 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -19,6 +19,7 @@ (define-module (guix-qa-frontpage server) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) + #:use-module (srfi srfi-71) #:use-module (ice-9 match) #:use-module (web http) #:use-module (web request) @@ -64,9 +65,10 @@ database 'latest-patchwork-series-by-issue latest-patchwork-series-by-issue - #:ttl 600) + #:ttl 1200) (string->number number))) (derivation-changes + change-details (with-sqlite-cache database 'derivation-changes @@ -75,8 +77,10 @@ (list (patch-series-derivation-changes-url series)) #:ttl 6000))) (render-html - #:sxml (issue-view series - derivation-changes)))) + #:sxml (issue-view number + series + derivation-changes + change-details)))) ((method path ...) (render-html #:sxml (general-not-found |