From 9e976575e8b8084e99da6debc22bb1d74b76cbaf Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Sat, 29 Feb 2020 04:26:49 +0100
Subject: [PATCH] Only use threadDelay when delay is greater than zero
---
src/QBar/Host.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/QBar/Host.hs b/src/QBar/Host.hs
index cfedd29..ffacd1c 100644
--- a/src/QBar/Host.hs
+++ b/src/QBar/Host.hs
@@ -64,7 +64,7 @@ runBlocks bar HostHandle{barUpdateEvent, followupEventWaitTimeMVar, newBlockChan
followupEventWaitTime' <- liftIO $ swapMVar followupEventWaitTimeMVar followupEventWaitTimeDefault
-- Wait for a moment (determined by block update reason) after the first event to catch (almost-)simultaneous block updates
- liftIO $ threadDelay followupEventWaitTime'
+ when (followupEventWaitTime' > 0) $ liftIO $ threadDelay followupEventWaitTime'
liftIO $ Event.clear barUpdateEvent
blocks' <- runBarIO bar $ addNewBlocks blocks
--
GitLab