From 74d56b1295ab3c7c180e11f9e91c96fb1ec281be Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 22 Jul 2015 07:08:59 +0200
Subject: [PATCH] correction for old users

---
 Handler/Home.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Home.hs b/Handler/Home.hs
index 61aba57..efbd2f6 100644
--- 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")