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

removed active users from list of inactive users

Browse source
This commit is contained in:
nek0 2015-04-08 18:02:33 +02:00
parent 83210db718
commit 83485074b0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/Home.hs
View file

@ -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")