diff options
-rw-r--r-- | site/session.lisp | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/site/session.lisp b/site/session.lisp index af02947..7a2d105 100644 --- a/site/session.lisp +++ b/site/session.lisp @@ -13,11 +13,9 @@ (defun authenticate-user-login (name password) (do> found-user :when= (user-with-name name) - (print found-user) :when (equal (user-pwhash found-user) (hash-string password (user-pwsalt found-user))) session := (db:with-transaction () (make-instance 'session :user found-user)) - (print session) (wknd:set-cookie +session-cookie+ :value (key session)))) (wknd:defendpoint destroy.session |