about summary refs log tree commit diff
path: root/web/panettone/src/panettone.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'web/panettone/src/panettone.lisp')
-rw-r--r--web/panettone/src/panettone.lisp19
1 files changed, 14 insertions, 5 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index 49492363ffdf..bcf215d15828 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -454,11 +454,13 @@
               (model:create-issue :subject subject
                                   :body body
                                   :author-dn (dn *user*))))
-        (send-irc-notification (format nil "b/~A: \"~A\" opened by ~A - https://b.tvl.fyi/issues/~A"
-                                       (id issue) subject (cn *user*)
-                                       (id issue))
-                               :channel (or (uiop:getenvp "ISSUECHANNEL")
-                                            "##tvl-dev"))
+        (send-irc-notification
+         (format nil
+                 "b/~A: \"~A\" opened by ~A - https://b.tvl.fyi/issues/~A"
+                 (id issue) subject (cn *user*)
+                 (id issue))
+         :channel (or (uiop:getenvp "ISSUECHANNEL")
+                      "##tvl-dev"))
         (hunchentoot:redirect "/"))))
 
 (defroute show-issue
@@ -515,6 +517,13 @@
                          :method :post)
     (&path (id 'integer))
   (model:set-issue-status id :closed)
+  (let ((issue (model:get-issue id)))
+    (send-irc-notification
+     (format nil
+             "b/~A: \"~A\" closed by ~A - https://b.tvl.fyi/issues/~A"
+             id (subject issue) (cn *user*) id)
+     :channel (or (uiop:getenvp "ISSUECHANNEL")
+                  "##tvl-dev")))
   (hunchentoot:redirect (format nil "/issues/~A" id)))
 
 (defroute open-issue