diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 12:45:24 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 12:45:24 +0200 |
| commit | dcc9090d121df770e9e1289064b2ef3ecb7a6463 (patch) | |
| tree | 6c2a9dc0f78ca673b2f341285b59d82e21e2aae4 | |
| parent | a1aac14c45bc9bf3d57a32fbf267b8df68887a80 (diff) | |
bugs: update-bug-database!: Do not use get-bugs.
* mumi/bugs.scm (update-bug-database!): Use extract-bug-numbers
instead of connecting to Debbugs.
| -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...") |