Modify: hero creation endpoint and transaction

1 files changed, 6 insertions, 5 deletions

diff --git a/endpoints.lisp b/endpoints.lisp
index 4bbc4f7..f734e37 100644
--- a/endpoints.lisp
+++ b/endpoints.lisp
@@ -74,13 +74,14 @@ I.e. It should be called within the scope of a request handler."
   (godess-shrine))
 
 
-(defendpoint* :post "/godess-shrine" () ()
-  (with-plist ((name :name)) (lzb:request-body)
-    (birth-from-the-goddess-loins name)
-    (redirect-to "/tavern-door")))
-
 ;;; SESSION ENDPOINTS
 
 (defendpoint* :get "/tavern" () ()
   (with-session (player)
     (tavern player)))
+
+(defendpoint* :post "/godess-shrine" () ()
+  (with-session (player)
+    (with-plist ((name :name)) (lzb:request-body)
+      (birth-from-the-goddess-loins player name)
+      (redirect-to "/tavern"))))