From 75926d0ed50473efc106fa83231c862063d0f0c3 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 27 Oct 2022 13:13:21 -0500 Subject: Add: logging in with pw --- model.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'model.lisp') diff --git a/model.lisp b/model.lisp index cc87453..fc8d93f 100644 --- a/model.lisp +++ b/model.lisp @@ -88,11 +88,11 @@ (when (uses-remaining invite) (decf (uses-remaining invite)) (unless (plusp (uses-remaining invite)) - (bknr.datastore:delete-object invite)) - (let ((user (make-instance 'user :name username))) - (setf (user-pwhash user) - (hash-string pw (user-pwsalt user))) - user))))) + (bknr.datastore:delete-object invite))) + (let ((user (make-instance 'user :name username))) + (setf (user-pwhash user) + (hash-string pw (user-pwsalt user))) + user)))) (defun append-track (pl tr) (with-transaction () -- cgit v1.2.3