diff options
| -rw-r--r-- | guix-qa-frontpage/patchwork.scm | 6 | ||||
| -rw-r--r-- | guix-qa-frontpage/server.scm | 2 |
2 files changed, 7 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 diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index ac3a98b..fe3ab71 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -833,6 +833,8 @@ has no patches or has been closed.") (when generate-reproducible.json (start-generate-reproducible.json-thread)) + (%patchwork-series-default-count patch-issues-to-show) + (let ((finished? (make-condition))) (call-with-new-thread (lambda () |