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

shortening user timeout to 30 days

Browse source
This commit is contained in:
nek0 2015-07-21 09:15:09 +02:00
parent 68213ea8df
commit 838ba30a8a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Home.hs
View file

@ -27,7 +27,7 @@ postHomeR = do
getReactivateR :: Handler Html getReactivateR :: Handler Html
getReactivateR = do getReactivateR = do
time <- liftIO getCurrentTime 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] users <- runDB $ selectList [UserTimestamp <. secs] [Asc UserIdent]
defaultLayout $ do defaultLayout $ do
$(widgetFile "reactivate") $(widgetFile "reactivate")