diff options
Diffstat (limited to 'web/panettone/src/panettone.lisp')
| -rw-r--r-- | web/panettone/src/panettone.lisp | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index 9135bcf8dd..cef3572214 100644 --- a/web/panettone/src/panettone.lisp +++ b/web/panettone/src/panettone.lisp @@ -450,14 +450,10 @@ (render/issue-form (make-instance 'model:issue :subject subject :body body) "Subject is required") - (let ((issue - (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" - (issue-id issue) subject (dn *user*) - (issue-id issue)) - :channel (uiop:getenvp "ISSUECHANNEL")) + (progn + (model:create-issue :subject subject + :body body + :author-dn (dn *user*)) (hunchentoot:redirect "/")))) (defroute show-issue |