diff options
| author | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-06-23 17:49:18 -0500 |
|---|---|---|
| committer | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-06-23 17:49:18 -0500 |
| commit | dd8078c045995094ee0cc2e3690917d426b73f56 (patch) | |
| tree | e3bd556033d0eb26f86d59f46f69a0b90b365c60 | |
| parent | b0115ef82880db63239c6532bb3b63d86b7658cb (diff) | |
[109] Clean: debug prints
| -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 |