From dcc9090d121df770e9e1289064b2ef3ecb7a6463 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 10 May 2020 12:45:24 +0200 Subject: bugs: update-bug-database!: Do not use get-bugs. * mumi/bugs.scm (update-bug-database!): Use extract-bug-numbers instead of connecting to Debbugs. --- mumi/bugs.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/mumi/bugs.scm b/mumi/bugs.scm index d371dbb..fc9601c 100644 --- a/mumi/bugs.scm +++ b/mumi/bugs.scm @@ -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...") -- cgit v1.2.3