From 999c2e834c189eb685b9e586a9c37e77b69a335d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 18 May 2024 10:26:37 +0100 Subject: Use the individual issue series data cache for the issue page --- guix-qa-frontpage/server.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'guix-qa-frontpage') diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index ccfa985..ac3a98b 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -595,13 +595,12 @@ ")) port))))) (('GET "issue" number) - (let ((series (assq-ref (with-sqlite-cache - database - 'latest-patchwork-series-by-issue - latest-patchwork-series-by-issue - #:args `(#:count ,patch-issues-to-show) - #:ttl 1800) - (string->number number)))) + (let ((series (with-sqlite-cache + database + 'latest-patchwork-series-for-issue + latest-patchwork-series-for-issue + #:args (list (string->number number)) + #:ttl 1800))) (if series (let* ((base-and-target-refs derivation-changes -- cgit v1.2.3