about summary refs log tree commit diff
path: root/web
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2020-07-28T22·39-0400
committerglittershark <grfn@gws.fyi>2020-07-31T02·05+0000
commit14a8142f7611378195234895aaa172983b6d5a10 (patch)
treebf1ae1bc0f679e3e75fd5b0d39b8a2ad0871ef9c /web
parentf46aa2a20c9e1e3c3b89748af0ce8c950e13c14f (diff)
feat(web/panettone): persist original-uri through failed auth r/1508
Even if the user fails to log in, maintain the original-uri param if
present, so that if they eventually succeed at logging in they still get
where they were originally trying to get.

Change-Id: I2faa5eced002ab899c803cf19095cea76897d92d
Reviewed-on: https://cl.tvl.fyi/c/depot/+/1499
Tested-by: BuildkiteCI
Reviewed-by: tazjin <mail@tazj.in>
Diffstat (limited to 'web')
-rw-r--r--web/panettone/src/panettone.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index 3d1bf41b4a5c..15d3ba7577fc 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -365,7 +365,8 @@ successful, `nil' otherwise"
     (progn
       (setf (hunchentoot:session-value 'user) user)
       (hunchentoot:redirect (or original-uri "/")))
-    (render/login :message "Invalid credentials")))
+    (render/login :message "Invalid credentials"
+                  :original-uri original-uri)))
 
 (defroute logout ("/logout" :method :post) ()
   (hunchentoot:delete-session-value 'user)