messages: Remove fetch-bug.
authorRicardo Wurmus <rekado@elephly.net>
Thu, 14 May 2020 06:05:16 +0000 (08:05 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Thu, 14 May 2020 06:05:16 +0000 (08:05 +0200)
mumi/messages.scm
mumi/web/controller.scm

index 538c0debbd65d9c01a44bfe993ffa4b97c4c4355..7dcbf188b772337be7364d52226d2903147fdded 100644 (file)
@@ -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
index 9761b48d191c69ee7bcbfb5fcd9cbf44c5cf469f..efa5c747a4e2db919cd17165233867009c1aee32 100644 (file)
@@ -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!"))
                (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