impossible condition

2016-12-03 18:50:58 +01:00 · 2016-12-03 18:50:58 +01:00 · 04176a3e42
commit 04176a3e42
parent 8323c044e1
1 changed files with 1 additions and 2 deletions
--- 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