bugs: update-bug-database!: Do not use get-bugs.
authorRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 10:45:24 +0000 (12:45 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 10:45:24 +0000 (12:45 +0200)
* mumi/bugs.scm (update-bug-database!): Use extract-bug-numbers
instead of connecting to Debbugs.

mumi/bugs.scm

index d371dbb8a129ba5dbba956ae9c8a8e6a24c6c027..fc9601c152770a0fc80d93730b82469ad736eb52 100644 (file)
@@ -17,6 +17,7 @@
 
 (define-module (mumi bugs)
   #:use-module (mumi config)
+  #:use-module (mumi debbugs)
   #:use-module (debbugs)
   #:use-module (sqlite3)
   #:use-module (srfi srfi-1)
@@ -218,13 +219,11 @@ tags=excluded.tags;")
         (split-at lst n))
       (lambda _
         (values lst '()))))
-  (let* ((bug-nums (or bug-nums
+  (let* ((packages (%config 'packages))
+         (bug-nums (or bug-nums
                        (apply lset-adjoin =
-                              (append-map (lambda (package)
-                                            (soap-invoke (%config 'debbugs)
-                                                         get-bugs
-                                                         `((package . ,package))))
-                                          (%config 'packages))
+                              (append (extract-bug-numbers packages)
+                                      (extract-bug-numbers packages #:archived? #t))
                               (bug-ids))))
          (total (length bug-nums)))
     (display "updating bug database...")