diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-05-14 08:05:16 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-05-14 08:05:16 +0200 |
| commit | 9810b49abd6511263a63ebf9e60222628e6533ae (patch) | |
| tree | 127852f36ae59b6d540bcb3f5b405d49285082d2 | |
| parent | fdd0956f964934baae252694fd3fd92c17f85148 (diff) | |
messages: Remove fetch-bug.
| -rw-r--r-- | mumi/messages.scm | 3 | ||||
| -rw-r--r-- | 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 |