diff options
-rw-r--r-- | endpoints.lisp | 11 |
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) |