From 008877330b5a638442ea6fa52550e766b1cbbeda Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Sat, 29 Feb 2020 04:15:05 +0100
Subject: [PATCH] Reduce delay after update to compensate for variable delay
before update
---
src/QBar/Host.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/QBar/Host.hs b/src/QBar/Host.hs
index 38a0b71..cfedd29 100644
--- a/src/QBar/Host.hs
+++ b/src/QBar/Host.hs
@@ -63,7 +63,7 @@ runBlocks bar HostHandle{barUpdateEvent, followupEventWaitTimeMVar, newBlockChan
-- Get current value and reset to default value
followupEventWaitTime' <- liftIO $ swapMVar followupEventWaitTimeMVar followupEventWaitTimeDefault
- -- Wait for 10ms after first events to catch (almost-)simultaneous event updates
+ -- Wait for a moment (determined by block update reason) after the first event to catch (almost-)simultaneous block updates
liftIO $ threadDelay followupEventWaitTime'
liftIO $ Event.clear barUpdateEvent
@@ -77,8 +77,8 @@ runBlocks bar HostHandle{barUpdateEvent, followupEventWaitTimeMVar, newBlockChan
-- Register new event handlers immediately after rendering
liftIO $ updateEventHandlers blockStates
- -- Wait for 100ms after rendering a line to limit cpu load of rapid events
- liftIO $ threadDelay 100000
+ -- Wait for 50ms after rendering a line to limit cpu load of rapid events
+ liftIO $ threadDelay 50000
-- Loop
runBlocks' blocks''
--
GitLab