diff options
| -rw-r--r-- | mumi/bugs.scm | 17 |
1 files 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 |