diff --git a/Handler/Signup.hs b/Handler/Signup.hs index 60d2a4b..2cc3448 100644 --- a/Handler/Signup.hs +++ b/Handler/Signup.hs @@ -34,7 +34,6 @@ postSignupR = do _ -> do setMessage "You need to agree to our terms." redirect $ SignupR - -- create user namesakes <- runDB $ selectList [UserName ==. newUserName] [] case namesakes of