git.iko.soy/streamly
on master help sign in
Reduce CAS retry to 25 from 30
ff475e7Harendra Kumar
src/Streamly/Core.hs+1−1
compare with master
unifiedsplit
@@ -281,7 +281,7 @@ atomicModifyIORefCAS ref fn = do
281
281
282 where
282 where
283
283
284− retries = 30 :: Int
284+ retries = 25 :: Int
285 loop _ 0 = atomicModifyIORef ref fn
285 loop _ 0 = atomicModifyIORef ref fn
286 loop old tries = do
286 loop old tries = do
287 let (new, result) = fn $ peekTicket old
287 let (new, result) = fn $ peekTicket old