diff options
| author | Joris | 2015-10-01 12:31:17 +0200 |
|---|---|---|
| committer | Joris | 2015-10-01 12:31:17 +0200 |
| commit | d7f737db7329acfedb87c5ad02a56023a9670fe4 (patch) | |
| tree | 10e158d2080c30b4ab3667f6c077188dab4aed7f /src | |
| parent | 57cb2f33a78a2b30e7bdb60d82aaa54842da431b (diff) | |
| download | budget-d7f737db7329acfedb87c5ad02a56023a9670fe4.tar.gz budget-d7f737db7329acfedb87c5ad02a56023a9670fe4.tar.bz2 budget-d7f737db7329acfedb87c5ad02a56023a9670fe4.zip | |
Sleep one hour instead of one day for monthly payment job
Diffstat (limited to 'src')
| -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) |