aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--clpmfile.lock4
-rw-r--r--src/main.lisp6
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" () ()