From a1aac14c45bc9bf3d57a32fbf267b8df68887a80 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 10 May 2020 12:10:53 +0200 Subject: scripts: Do not use soap-invoke*. * scripts/mumi.in (update-state!): Use extract-bug-numbers instead of connecting to the Debbugs SOAP service. --- scripts/mumi.in | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) (limited to 'scripts') 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 -- cgit v1.2.3