Modify: flash feature to be more robust; add labels

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" () ()