From fda05f8ce638987d332c8aff4043afa74e52523f Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 27 Oct 2022 10:40:58 -0500
Subject: Add: invite code redeeming logic

---
 new-account.lisp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'new-account.lisp')

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
-- 
cgit v1.2.3