diff options
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 |