From df9dc9e8ce6daad61b6854a1bc467efa1328675e Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 22 May 2024 16:31:54 +0100 Subject: Fix not passing #:count to latest-patchwork-series-by-issue --- guix-qa-frontpage/patchwork.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'guix-qa-frontpage/patchwork.scm') diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index 7e10e28..855e6a7 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -19,6 +19,7 @@ #:use-module (guix-qa-frontpage debbugs) #:export (%patchwork-instance + %patchwork-series-default-count latest-patchwork-series-by-issue latest-patchwork-series-for-issue)) @@ -168,9 +169,12 @@ (assoc-ref first-patch "name")))) (assq-ref details 'branch))))) +(define %patchwork-series-default-count + (make-parameter #f)) + (define* (latest-patchwork-series-by-issue #:key patchwork - count) + (count (%patchwork-series-default-count))) (define (string->issue-number str) (string->number (match:substring -- cgit v1.2.3