nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

aesthetics

Browse source
This commit is contained in:
nek0 2014-12-06 14:02:49 +01:00
parent 732349a6d1
commit 49e55e7bc7
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Handler/Signup.hs
View file

@ -34,7 +34,6 @@ postSignupR = do
_ -> do _ -> do
setMessage "You need to agree to our terms." setMessage "You need to agree to our terms."
redirect $ SignupR redirect $ SignupR
-- create user -- create user
namesakes <- runDB $ selectList [UserName ==. newUserName] [] namesakes <- runDB $ selectList [UserName ==. newUserName] []
case namesakes of case namesakes of