From 838ba30a8a3e2eddf8b088b1f752b2c5ace17d69 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 21 Jul 2015 09:15:09 +0200 Subject: [PATCH] shortening user timeout to 30 days --- Handler/Home.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Home.hs b/Handler/Home.hs index f392c12..61aba57 100644 --- a/Handler/Home.hs +++ b/Handler/Home.hs @@ -27,7 +27,7 @@ postHomeR = do getReactivateR :: Handler Html getReactivateR = do time <- liftIO getCurrentTime - secs <- return $ (R.read $ formatTime defaultTimeLocale "%s" time) - 8640000 + secs <- return $ (R.read $ formatTime defaultTimeLocale "%s" time) - 2592000 users <- runDB $ selectList [UserTimestamp <. secs] [Asc UserIdent] defaultLayout $ do $(widgetFile "reactivate")