Lines Matching refs:conc
36 runConc $ replicateA_ size $ conc $ atomicModifyIORef' ref $ \i -> (i + 1, ())
41 , bench "Conc" $ whnfIO $ runConc $ replicateA_ size $ conc $ pure ()
49 | i == size = conc (pure i)
50 | otherwise = liftA2 (+) (conc (pure i)) (go (i + 1))
68 foldr (<|>) empty (replicate size (conc (pure ())))
88 | i == size = conc (pure i)
89 | otherwise = liftA2 (+) (conc (pure i)) (go (i + 1))
90 in (conc $ threadDelay maxBound >> return 0) <|> (go 1) <|>
91 (conc $ threadDelay maxBound >> return 0)
96 | i == size = conc (pure i)
98 in (conc $ threadDelay maxBound >> return 0) <|> (go 1) <|>
99 (conc $ threadDelay maxBound >> return 0)
119 | i == size = conc (pure i)
121 (liftA2 (+) (conc (pure i)) (go (i + 1))) <|>
122 (liftA2 (+) (conc (pure i)) (go (i + 2)))
123 | otherwise = liftA2 (+) (conc (pure i)) (go (i + 1))
129 | i == size = conc (pure i)