From 04176a3e42e90aa6377c6ba2dbed8466692bee98 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 3 Dec 2016 18:50:58 +0100 Subject: [PATCH] impossible condition --- Handler/Reactivate.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Handler/Reactivate.hs b/Handler/Reactivate.hs index a24da32..cdda1e8 100755 --- a/Handler/Reactivate.hs +++ b/Handler/Reactivate.hs @@ -33,8 +33,7 @@ postReactivateR = do case result of FormSuccess temp -> do users <- runDB $ selectList [UserEmail ==. temp] [] - if - null users + if not $ null users then do userTokens <- foldM (\userTokens (Entity userId user) -> do token <- liftIO $ generateString