Replace invocation of remote get-status operation with bug-status.
authorRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 14:09:26 +0000 (16:09 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 14:09:26 +0000 (16:09 +0200)
mumi/bugs.scm
mumi/messages.scm

index fc9601c152770a0fc80d93730b82469ad736eb52..ea85ca2b2926fb967993b3c7537ad4e522df8b68 100644 (file)
@@ -18,7 +18,6 @@
 (define-module (mumi bugs)
   #:use-module (mumi config)
   #:use-module (mumi debbugs)
-  #:use-module (debbugs)
   #:use-module (sqlite3)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
@@ -230,7 +229,7 @@ tags=excluded.tags;")
     ;; Process bugs in chunks
     (let loop ((lst bug-nums))
       (let-values (((chunk tail) (safe-split lst chunk-size)))
-        (let ((bugs (soap-invoke* (%config 'debbugs) get-status chunk)))
+        (let ((bugs (map bug-status chunk)))
           (for-each (lambda (bug)
                       (add-bug! (bug-num bug)
                                 (bug-originator bug)
index 92ff6144c157fa6cc208411dbe48ecdcba18881d..f816cae7739823a0b49e95b26783038db98618e7 100644 (file)
@@ -27,8 +27,6 @@
   #:use-module (ice-9 binary-ports)
   #:use-module (ice-9 threads)
   #:use-module (debbugs cache)
-  #:use-module (debbugs soap)
-  #:use-module (debbugs operations)
   #:use-module (email email)
   #:use-module (mumi config)
   #:use-module (mumi debbugs)
@@ -53,7 +51,7 @@ yet.  Return new results alongside cached results."
          (uncached-ids (lset-difference eq?
                                         ids
                                         (map bug-num cached)))
-         (new (soap-invoke* (%config 'debbugs) get-status uncached-ids)))
+         (new (filter-map bug-status uncached-ids )))
     ;; Cache new things
     (map (lambda (bug) (cache! (bug-num bug) bug)) new)
     ;; Return everything from cache
@@ -185,13 +183,7 @@ Intersect the result with the id sets in the list SETS."
     (status-with-cache (if (> (length filtered) max)
                            (take filtered max) filtered))))
 
-;; TODO: This returns *any* matching debbugs bug, even if it is not
-;; part of the default packages.
-(define (fetch-bug id)
-  "Return the bug matching ID or #F."
-  (match (soap-invoke* (%config 'debbugs) get-status (list id))
-    (() #f)
-    ((bug) bug)))
+(define fetch-bug bug-status)
 
 (define (recent-bugs amount)
   "Return up to AMOUNT bugs with most recent activity."