diff options
| -rw-r--r-- | mumi/bugs.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/mumi/bugs.scm b/mumi/bugs.scm index d371dbb..fc9601c 100644 --- a/mumi/bugs.scm +++ b/mumi/bugs.scm @@ -17,6 +17,7 @@ (define-module (mumi bugs) #:use-module (mumi config) + #:use-module (mumi debbugs) #:use-module (debbugs) #:use-module (sqlite3) #:use-module (srfi srfi-1) @@ -218,13 +219,11 @@ tags=excluded.tags;") (split-at lst n)) (lambda _ (values lst '())))) - (let* ((bug-nums (or bug-nums + (let* ((packages (%config 'packages)) + (bug-nums (or bug-nums (apply lset-adjoin = - (append-map (lambda (package) - (soap-invoke (%config 'debbugs) - get-bugs - `((package . ,package)))) - (%config 'packages)) + (append (extract-bug-numbers packages) + (extract-bug-numbers packages #:archived? #t)) (bug-ids)))) (total (length bug-nums))) (display "updating bug database...") |