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

impossible condition

Browse source
This commit is contained in:
nek0 2016-12-03 18:50:58 +01:00
parent 8323c044e1
commit 04176a3e42
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Handler/Reactivate.hs
View file

@ -33,8 +33,7 @@ postReactivateR = do
case result of case result of
FormSuccess temp -> do FormSuccess temp -> do
users <- runDB $ selectList [UserEmail ==. temp] [] users <- runDB $ selectList [UserEmail ==. temp] []
if if not $ null users
null users
then do then do
userTokens <- foldM (\userTokens (Entity userId user) -> do userTokens <- foldM (\userTokens (Entity userId user) -> do
token <- liftIO $ generateString token <- liftIO $ generateString