diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 12:10:53 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 12:10:53 +0200 |
| commit | a1aac14c45bc9bf3d57a32fbf267b8df68887a80 (patch) | |
| tree | 41432bb360c1cb40f718d58968759f720c466b62 /scripts | |
| parent | 9b3225121a30f10fd250801702f94c345f799b7b (diff) | |
scripts: Do not use soap-invoke*.
* scripts/mumi.in (update-state!): Use extract-bug-numbers instead of
connecting to the Debbugs SOAP service.
Diffstat (limited to 'scripts')
| -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 |