From 9d114cfc773171b0a95bd4d2c39f1bb0eb783c8d Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 2 Nov 2019 15:33:13 -0700 Subject: rename everything back to caps to appease ghc --- Com/Simatime/Sema.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 Com/Simatime/Sema.hs (limited to 'Com/Simatime/Sema.hs') diff --git a/Com/Simatime/Sema.hs b/Com/Simatime/Sema.hs new file mode 100644 index 0000000..f0f75da --- /dev/null +++ b/Com/Simatime/Sema.hs @@ -0,0 +1,12 @@ +module Com.Simatime.Sema + ( mapPool + ) +where + +import qualified Control.Concurrent.MSem as Sem + +-- | Simaphore-based throttled 'mapConcurrently'. +mapPool :: Traversable t => Int -> (a -> IO b) -> t a -> IO (t b) +mapPool n f xs = do + sima <- Sem.new n + mapConcurrently (Sem.with sima . f) xs -- cgit v1.2.3