diff options
-rw-r--r-- | mumi/messages.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 89536bf..be3369c 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -233,12 +233,11 @@ result for a while." (define* (bugs-by-severity severity #:optional status) "Return severe bugs." - (let* ((ids - (soap-invoke* (%config 'debbugs) - get-bugs - `((package . "guix") - (severity . ,severity) - ,@(if status `((status . ,status)) '()))))) + (let* ((severity-ids (db:bugs-by-severity severity)) + (ids (if status + (let ((status-ids (db:bugs-by-status status))) + (lset-intersection eq? severity-ids status-ids)) + severity-ids))) (status-with-cache ids))) (define (ago unit amount) |