diff options
| -rw-r--r-- | scripts/mumi.in | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/scripts/mumi.in b/scripts/mumi.in index e20fc4e..67dad78 100644 --- a/scripts/mumi.in +++ b/scripts/mumi.in @@ -27,6 +27,8 @@ (ice-9 match) (ice-9 format) (mumi config) + ((mumi debbugs) + #:select (extract-bug-numbers)) ((mumi bugs) #:select (db-create! update-bug-database!)) ((mumi jobs) @@ -34,11 +36,7 @@ ((mumi web server) #:select (start-mumi-web-server)) ((mumi xapian) - #:select (index!)) - ((debbugs soap) - #:select (soap-invoke*)) - ((debbugs operations) - #:select (get-bugs))) + #:select (index!))) (db-create!) @@ -60,11 +58,9 @@ (display "Starting full indexing." (current-error-port)) (newline (current-error-port))) (index! #:full? (zero? count)) - (let ((nums (sort (append-map (lambda (package) - (soap-invoke* (%config 'debbugs) - get-bugs - `((package . ,package)))) - (%config 'packages)) >))) + (let* ((packages (%config 'packages)) + (nums (append (extract-bug-numbers packages) + (extract-bug-numbers packages #:archived? #t)))) (update-bug-database! nums)) (and loop? (begin |