From 6115b83bb32d767ef54f2a2ae210ad1c7415e69c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Wed, 24 Feb 2021 12:46:06 +0100
Subject: [PATCH] fix(jobs): wake more often during waitUntil

---
 src/Jobs.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Jobs.hs b/src/Jobs.hs
index b61556caa..02f207bf6 100644
--- a/src/Jobs.hs
+++ b/src/Jobs.hs
@@ -449,7 +449,7 @@ execCrontab = do
       if
         | diffT < acc -> return True
         | otherwise   -> do
-            delay <- liftIO . newDelay . round $ waitTime * 1e6
+            delay <- liftIO . newDelay . round $ waitTime / 2 * 1e6
             let
               awaitDelayThread = False <$ waitDelay delay
               awaitCrontabChange = do