summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scripts/mumi.in16
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