diff options
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 |