diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-27 10:40:58 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-27 10:40:58 -0500 |
| commit | fda05f8ce638987d332c8aff4043afa74e52523f (patch) | |
| tree | 716cb835372c7f35b8239e57273e73bdfb4a53ea /new-account.lisp | |
| parent | 6f729e2d0e44252460e5b287776f7ad82ed8da06 (diff) | |
Add: invite code redeeming logic
Diffstat (limited to 'new-account.lisp')
| -rw-r--r-- | new-account.lisp | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/new-account.lisp b/new-account.lisp index 10311af..93cf122 100644 --- a/new-account.lisp +++ b/new-account.lisp @@ -2,9 +2,6 @@ (in-package :vampire) -(defun valid-invite-code-p (arg) arg) -(defun use-invite-with-code (code username pw)) - (defun new-accout-page (body) (with-clog-create body (div () @@ -32,7 +29,7 @@ invite (thunk* (setf (inner-html invite-status) - (if (valid-invite-code-p (value invite)) + (if (invite-by-code (value invite)) "✔" "Bad Invite Code")))) (set-on-blur |