diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-07 11:51:31 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-07 11:51:31 +0200 |
commit | 0b48a9147cac8e8d885f909aeec60aee753c0198 (patch) | |
tree | a75cda0a633e1dbc81becaa431165dd00026629c | |
parent | 88a6f6362ce6e3ca41cf5f65e4285c9a45f3f192 (diff) |
bugs: update-bug-database!: Accept optional bug-nums argument.
-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 |