diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-22 16:31:54 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-22 16:31:54 +0100 |
| commit | df9dc9e8ce6daad61b6854a1bc467efa1328675e (patch) | |
| tree | bbf6d16bba2b469a564d65f7568f78fcd0c4a7c7 /guix-qa-frontpage/patchwork.scm | |
| parent | ebf50945dd8fa7dfffe851a77ce85706c25931e2 (diff) | |
| download | qa-frontpage-df9dc9e8ce6daad61b6854a1bc467efa1328675e.tar qa-frontpage-df9dc9e8ce6daad61b6854a1bc467efa1328675e.tar.gz | |
Fix not passing #:count to latest-patchwork-series-by-issue
Diffstat (limited to 'guix-qa-frontpage/patchwork.scm')
| -rw-r--r-- | guix-qa-frontpage/patchwork.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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 |