diff options
| -rw-r--r-- | src/server/MonthlyPaymentJob.hs | 6 |
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) |