correction for old users

2015-07-22 07:08:59 +02:00 · 2015-07-22 07:08:59 +02:00 · 74d56b1295
parent ddfa7957c4
commit 74d56b1295
1 changed files with 1 additions and 1 deletions
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@ -15,7 +15,7 @@ getHomeR :: Handler Html
 getHomeR = do
  beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
  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 "home")