Add: logging in with pw

1 files changed, 5 insertions, 5 deletions

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 ()