aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGrant Shangreaux <grant@unabridgedsoftware.com>2024-06-23 17:49:18 -0500
committerGrant Shangreaux <grant@unabridgedsoftware.com>2024-06-23 17:49:18 -0500
commitdd8078c045995094ee0cc2e3690917d426b73f56 (patch)
treee3bd556033d0eb26f86d59f46f69a0b90b365c60
parentb0115ef82880db63239c6532bb3b63d86b7658cb (diff)
[109] Clean: debug printsvampire-weekend
-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