diff options
Diffstat (limited to 'site')
| -rw-r--r-- | site/home.lisp | 2 | ||||
| -rw-r--r-- | site/login.lisp | 2 | ||||
| -rw-r--r-- | site/session.lisp | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/site/home.lisp b/site/home.lisp index 5267985..0b02e0c 100644 --- a/site/home.lisp +++ b/site/home.lisp @@ -9,7 +9,7 @@ (:h1 "hey " (user-name user)) (:br) (:div - (:form :method "POST" :action (wknd:route-to 'session.destroy) + (:form :method "POST" :action (wknd:route-to 'destroy.session) (:button :type "submit" "Logout"))) (:br) (:br) diff --git a/site/login.lisp b/site/login.lisp index 7d07bb2..cb1f82f 100644 --- a/site/login.lisp +++ b/site/login.lisp @@ -8,7 +8,7 @@ (defun login-page () (page (:title "V A M P I R E ~ LOGIN") (:div (:h1 "I vant to suck your blood") - (:form :method "POST" :action (wknd:route-to 'session.create) + (:form :method "POST" :action (wknd:route-to 'create.session) (:input :placeholder "Name" :name "name") (:br) (:input :placeholder "Password" :type "password" :name "password") diff --git a/site/session.lisp b/site/session.lisp index 342d6d0..af02947 100644 --- a/site/session.lisp +++ b/site/session.lisp @@ -1,6 +1,6 @@ (in-package #:vampire) -(wknd:defendpoint session.create +(wknd:defendpoint create.session :post :to "login" :parameters (name string) @@ -20,7 +20,7 @@ (print session) (wknd:set-cookie +session-cookie+ :value (key session)))) -(wknd:defendpoint session.destroy +(wknd:defendpoint destroy.session :using user-known :post :to "logout" :handle (do> |