diff --git a/src/web.lisp b/src/web.lisp index 814d3c3..a29ceed 100644 --- a/src/web.lisp +++ b/src/web.lisp @@ -84,6 +84,9 @@ (lack.request:request-body-parameters ningle:*request*)) (cond ((not (string= authenticity-token (auth:csrf-token))) `(,+forbidden+ (:content-type "text/plain") ("Denied"))) + ((not (null (nera:get-user username))) + (utils:set-alert "Username already taken.") + (redirect "/sign-up")) ((not (string= password password-check)) (utils:set-alert "Passwords don't match.") (redirect "/sign-up"))