diff --git a/src/QBar/Host.hs b/src/QBar/Host.hs index cfedd2955c98e2d8d9ea4d6b2a2adde69d0c1801..ffacd1c0d687ddf6e1010c1f663f802c568a4dbb 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