From d7f737db7329acfedb87c5ad02a56023a9670fe4 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 1 Oct 2015 12:31:17 +0200
Subject: Sleep one hour instead of one day for monthly payment job

---
 src/server/MonthlyPaymentJob.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/server')

diff --git a/src/server/MonthlyPaymentJob.hs b/src/server/MonthlyPaymentJob.hs
index f9d89c0..f754b81 100644
--- a/src/server/MonthlyPaymentJob.hs
+++ b/src/server/MonthlyPaymentJob.hs
@@ -25,7 +25,7 @@ monthlyPaymentJobListener = do
   if not runThisMonth
     then runDb (monthlyJob >> actualizeLastExecution MonthlyPaymentJob)
     else return ()
-  sleepOneDay
+  sleepOneHour
   monthlyPaymentJobListener
 
 monthlyJob :: Persist ()
@@ -46,5 +46,5 @@ getLocalMonth time = do
   let (_, month, _) = toGregorian . localDay $ utcToLocalTime timeZone time
   return month
 
-sleepOneDay :: IO ()
-sleepOneDay = threadDelay (1000000 * 60 * 60 * 24)
+sleepOneHour :: IO ()
+sleepOneHour = threadDelay (1000000 * 60 * 60)
-- 
cgit v1.2.3