diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/main.lisp b/src/main.lisp index 261d722..a700796 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -439,9 +439,9 @@ (with-plist (password1 password2 handle) (lzb:request-body) (unless (equal password1 password2) (http-err 400 "Passwords dont match")) - (when (contributor-by-handle username) - (http-err 403 (format nil "The name ~a is already taken." username))) - (redeem-invite code username password1) + (when (contributor-by-handle handle) + (http-err 403 (format nil "The name ~a is already taken." handle))) + (redeem-invite code handle password1) "true")) (defendpoint* :post "/access" () () |