fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(jobs): wake more often during waitUntil

Browse Source
This commit is contained in:
Gregor Kleen 2021-02-24 12:46:06 +01:00
parent b9cc5b9970
commit 6115b83bb3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Jobs.hs
View File

@ -449,7 +449,7 @@ execCrontab = do
if if
| diffT < acc -> return True | diffT < acc -> return True
| otherwise -> do | otherwise -> do
delay <- liftIO . newDelay . round $ waitTime * 1e6 delay <- liftIO . newDelay . round $ waitTime / 2 * 1e6
let let
awaitDelayThread = False <$ waitDelay delay awaitDelayThread = False <$ waitDelay delay
awaitCrontabChange = do awaitCrontabChange = do