Sleep one hour instead of one day for monthly payment job

1 files changed, 3 insertions, 3 deletions

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)