diff --git a/Handler/Home.hs b/Handler/Home.hs index 01489f9..ce3d2eb 100644 --- a/Handler/Home.hs +++ b/Handler/Home.hs @@ -25,7 +25,9 @@ postHomeR = do getReactivateR :: Handler Html getReactivateR = do - users <- runDB $ selectList [] [Asc UserIdent] + time <- liftIO getCurrentTime + secs <- return $ (R.read $ formatTime defaultTimeLocale "%s" time) - 8640000 + users <- runDB $ selectList [UserTimestamp <. secs] [Asc UserIdent] defaultLayout $ do $(widgetFile "reactivate")