aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--site/session.lisp2
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