diff options
author | colin <colin@cicadas.surf> | 2023-01-25 21:17:11 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-01-25 21:17:11 -0800 |
commit | fffea1715cfb51837cd990adf881443df9ccb74b (patch) | |
tree | 1025c95395f62c3de418709e2d1f3abf2faac8ad /endpoints.lisp | |
parent | b4cd3bb5cba1551ee85b66716deb2f26722b1ef8 (diff) |
Modify: flash feature to be more robust; add labels
Diffstat (limited to 'endpoints.lisp')
-rw-r--r-- | endpoints.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/endpoints.lisp b/endpoints.lisp index ff6f97c..06a521f 100644 --- a/endpoints.lisp +++ b/endpoints.lisp @@ -39,7 +39,7 @@ I.e. It should be called within the scope of a request handler." (redirect-to "/tavern-door")) (defendpoint* :get "/tavern-door" () () - (a:if-let (name (flashed-value)) + (a:if-let (name (flashed-value :tavern-door)) (doorkeeper :message (format nil "M'fraid I've n'er 'eard o' ~a." name)) (doorkeeper))) @@ -51,7 +51,7 @@ I.e. It should be called within the scope of a request handler." :path "/" :domain "localhost") ; TODO: generalize domain (redirect-to "/tavern")) (progn - (flash name) + (flash :tavern-door name) (redirect-to (format nil "/tavern-door")))))) (defendpoint* :get "/godess-shrine" () () |