diff --git a/src/QBar/Host.hs b/src/QBar/Host.hs index 748ae734827e39e8948837615ac45210901052b2..22bb7f0d756f7b97c774db83326183be8544349d 100644 --- a/src/QBar/Host.hs +++ b/src/QBar/Host.hs @@ -81,8 +81,8 @@ runBlocks bar HostHandle{barUpdateEvent, barUpdatedEvent, followupEventWaitTimeM liftIO $ Event.signal barUpdatedEvent - -- Wait for 50ms after rendering a line to limit cpu load of rapid events - liftIO $ threadDelay 50000 + -- Wait for 20ms after rendering a line to limit cpu load of rapid events + liftIO $ threadDelay 20000 -- Loop runBlocks' blocks''