diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-18 10:26:37 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-18 10:26:37 +0100 |
| commit | 999c2e834c189eb685b9e586a9c37e77b69a335d (patch) | |
| tree | 86ccf91649a5378a8d2d3ab19d40adeafe991d52 /guix-qa-frontpage | |
| parent | 1b5630ec7f37f0b828317b0eac1b69a796726068 (diff) | |
| download | qa-frontpage-999c2e834c189eb685b9e586a9c37e77b69a335d.tar qa-frontpage-999c2e834c189eb685b9e586a9c37e77b69a335d.tar.gz | |
Use the individual issue series data cache for the issue page
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 13 |
1 files changed, 6 insertions, 7 deletions
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 @@ </svg>")) 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 |