summaryrefslogtreecommitdiff
path: root/endpoints.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'endpoints.lisp')
-rw-r--r--endpoints.lisp11
1 files changed, 6 insertions, 5 deletions
diff --git a/endpoints.lisp b/endpoints.lisp
index f734e37..788dc2d 100644
--- a/endpoints.lisp
+++ b/endpoints.lisp
@@ -29,6 +29,7 @@ I.e. It should be called within the scope of a request handler."
(let ((session (or session (gensym "SESSION"))))
`(a:if-let (,session (current-session))
(let ((,player (session-player ,session)))
+ (declare (ignorable ,player))
,@body)
(redirect-to ,redirect))))
@@ -37,7 +38,7 @@ I.e. It should be called within the scope of a request handler."
(defendpoint* :get "/" () ()
- (redirect-to "/tavern-door"))
+ (redirect-to "/tavern"))
(defendpoint* :get "/tavern-door" () ()
"Tavern door is where the player logs into the system."
@@ -70,16 +71,16 @@ I.e. It should be called within the scope of a request handler."
(register-player nick)
(redirect-to "/tavern-door")))
-(defendpoint* :get "/godess-shrine" () ()
- (godess-shrine))
-
-
;;; SESSION ENDPOINTS
(defendpoint* :get "/tavern" () ()
(with-session (player)
(tavern player)))
+(defendpoint* :get "/godess-shrine" () ()
+ (with-session (player)
+ (godess-shrine)))
+
(defendpoint* :post "/godess-shrine" () ()
(with-session (player)
(with-plist ((name :name)) (lzb:request-body)