From 9810b49abd6511263a63ebf9e60222628e6533ae Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Thu, 14 May 2020 08:05:16 +0200 Subject: messages: Remove fetch-bug. --- mumi/messages.scm | 3 --- mumi/web/controller.scm | 7 ++++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/mumi/messages.scm b/mumi/messages.scm index 538c0de..7dcbf18 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -33,7 +33,6 @@ #:use-module (mumi xapian) #:use-module (web client) #:export (search-bugs - fetch-bug recent-bugs forgotten-issues easy-bugs @@ -199,8 +198,6 @@ Intersect the result with the id sets in the list SETS." (status-with-cache (if (> (length filtered) max) (take filtered max) filtered)))) -(define fetch-bug bug-status) - (define (recent-bugs amount) "Return up to AMOUNT bugs with most recent activity." (let* ((recent-ids diff --git a/mumi/web/controller.scm b/mumi/web/controller.scm index 9761b48..efa5c74 100644 --- a/mumi/web/controller.scm +++ b/mumi/web/controller.scm @@ -26,7 +26,8 @@ #:use-module (gcrypt base64) #:use-module (gcrypt mac) #:use-module (mumi config) - #:use-module ((mumi debbugs) #:select (bug-archived bug-subject bug-done)) + #:use-module ((mumi debbugs) + #:select (bug-status bug-archived bug-subject bug-done)) #:use-module (mumi jobs) #:use-module (mumi messages) #:use-module (mumi web render) @@ -95,7 +96,7 @@ (process-query query))))))))) ((or ('GET "issue" (? string->number id)) ('GET (? string->number id))) - (let ((bug (fetch-bug id)) + (let ((bug (bug-status id)) (message (match (uri-query (request-uri request)) ("comment-ok" '(info . "Your comment has been submitted!")) @@ -129,7 +130,7 @@ (form-data (parse-form-submission request body)) (cookie (or (session-data (%session-manager) request) '())) - (bug (fetch-bug id))) + (bug (bug-status id))) (if (and bug ;; The encrypted cookie must be fresh and contain the -- cgit v1.2.3