From 0b48a9147cac8e8d885f909aeec60aee753c0198 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 7 Apr 2020 11:51:31 +0200 Subject: bugs: update-bug-database!: Accept optional bug-nums argument. --- mumi/bugs.scm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/mumi/bugs.scm b/mumi/bugs.scm index 69911fc..d371dbb 100644 --- a/mumi/bugs.scm +++ b/mumi/bugs.scm @@ -210,7 +210,7 @@ tags=excluded.tags;") (lambda (db) (sqlite-exec db "SELECT id FROM bugs;"))))) -(define (update-bug-database!) +(define* (update-bug-database! #:optional bug-nums) (define chunk-size 400) (define (safe-split lst n) (catch #t @@ -218,13 +218,14 @@ tags=excluded.tags;") (split-at lst n)) (lambda _ (values lst '())))) - (let* ((bug-nums (apply lset-adjoin = - (append-map (lambda (package) - (soap-invoke (%config 'debbugs) - get-bugs - `((package . ,package)))) - (%config 'packages)) - (bug-ids))) + (let* ((bug-nums (or bug-nums + (apply lset-adjoin = + (append-map (lambda (package) + (soap-invoke (%config 'debbugs) + get-bugs + `((package . ,package)))) + (%config 'packages)) + (bug-ids)))) (total (length bug-nums))) (display "updating bug database...") ;; Process bugs in chunks -- cgit v1.2.3