From dd8078c045995094ee0cc2e3690917d426b73f56 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <grant@unabridgedsoftware.com>
Date: Sun, 23 Jun 2024 17:49:18 -0500
Subject: [109] Clean: debug prints

---
 site/session.lisp | 2 --
 1 file changed, 2 deletions(-)

(limited to 'site')

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
-- 
cgit v1.2.3