aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/server/MonthlyPaymentJob.hs6
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)