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 --- new-account.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'new-account.lisp') 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.")))))) -- cgit v1.2.3