Add: logging in with pw

1 files changed, 6 insertions, 6 deletions

diff --git a/new-account.lisp b/new-account.lisp
index 93cf122..b0ccae7 100644
--- a/new-account.lisp
+++ b/new-account.lisp
@@ -52,9 +52,9 @@
     (set-on-click
      submit
      (thunk*
-      (if (loop for status in (list pw-confirm-status name-status invite-status)
-                always (string-equal "✔" (value status)))
-          (if (use-invite-with-code (value invite) (value name) (value pw))
-              (setf (url (location body)) "/login")
-              (alert (window body) "An error occurred while making your account."))
-          (alert (window body) "Plase double check your inputs."))))))
+       (if (loop for status in (list pw-confirm-status name-status invite-status)
+                 always (string-equal "✔" (text status)))
+           (if (use-invite-with-code (value invite) (value name) (value pw))
+               (setf (url (location body)) "/login")
+               (alert (window body) "An error occurred while making your account."))
+           (alert (window body) "Plase double check your inputs."))))))