From 8ae5c7a78178488b332b7c8542051aa584f74fa6 Mon Sep 17 00:00:00 2001
From: Griffin Smith <grfn@gws.fyi>
Date: Sat, 28 May 2022 14:44:45 -0400
Subject: [PATCH] feat(web/panettone): Redirect to created issue after
 creation.

Fixes: b/54
Change-Id: I5ae6c8aa2a4448554a8ba4cb41185ada1ecf8cb0
Reviewed-on: https://cl.tvl.fyi/c/depot/+/5784
Autosubmit: grfn <grfn@gws.fyi>
Tested-by: BuildkiteCI
Reviewed-by: tazjin <tazjin@tvl.su>
---
 web/panettone/src/panettone.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index f9ed979ad..d87ac5ed4 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -485,7 +485,8 @@ given subject an body (in a thread, to avoid blocking)"
                  (id issue))
          :channel (or (uiop:getenvp "ISSUECHANNEL")
                       "#tvl"))
-        (hunchentoot:redirect "/"))))
+        (hunchentoot:redirect
+         (format nil "/issues/~A" (id issue))))))
 
 (defroute show-issue
     ("/issues/:id" :decorators (@auth-optional @handle-issue-not-found @db))