diff options
| -rw-r--r-- | clpmfile.lock | 4 | ||||
| -rw-r--r-- | src/main.lisp | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/clpmfile.lock b/clpmfile.lock index a47fc2c..f1fb257 100644 --- a/clpmfile.lock +++ b/clpmfile.lock @@ -76,9 +76,9 @@ ("hunchentoot")) ("ironclad" :version "2022-02-20" :source "quicklisp" :systems ("ironclad")) ("jonathan" :version "2020-09-25" :source "quicklisp" :systems ("jonathan")) -("lambda-riffs" :version (:commit "f7b3c081f2361f7370c80e7ff4a432241f34ce55") +("lambda-riffs" :version (:commit "83b4f38ffb34dc39164024592e6a6a9743ae53f1") :source :implicit-vcs :systems ("lambda-riffs")) -("lazybones" :version (:commit "70def00400c88f4d872a58b2f76449077ece22ca") +("lazybones" :version (:commit "6f05e6beaecf5bf3d91ad883f00ae2d0c397b895") :source :implicit-vcs :systems ("lazybones" "lazybones-hunchentoot")) ("lazybones-client" :version (:commit "92fe387b39d56f94e19d412c24a0c19a792f1ad1") :source :implicit-vcs 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" () () |