composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-07-14 23:00:24 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix workerPollingInterval

Browse Source
This commit is contained in:
Harendra Kumar 2024-02-17 02:05:11 +05:30
parent 5e14c82cbe
commit d6ccf9598c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Streamly/Internal/Data/Channel/Dispatcher.hs
View File

@ -70,7 +70,11 @@ minThreadDelay = 1000000
updateWorkerPollingInterval :: YieldRateInfo -> NanoSecond64 -> IO ()
updateWorkerPollingInterval yinfo latency = do
let periodRef = workerPollingInterval yinfo
cnt = max 1 $ minThreadDelay `div` latency
-- This depends on the rate, if the rate is low, latencies are
-- small, by the time we poll it might be too late and we may have
-- yielded too many results.
-- cnt = max 1 $ minThreadDelay `div` latency
cnt = max 1 (latency `div` svarLatencyTarget yinfo)
period = min cnt (fromIntegral magicMaxBuffer)
writeIORef periodRef (fromIntegral period)