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

correction for old users

Browse source
This commit is contained in:
nek0 2015-07-22 07:08:59 +02:00
parent ddfa7957c4
commit 74d56b1295
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

@ -15,7 +15,7 @@ getHomeR :: Handler Html
getHomeR = do getHomeR = do
beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent] beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
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 "home") $(widgetFile "home")