From f36371f324ca85100590438e45d186c9704b8140 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sun, 24 Feb 2019 12:36:48 -0800 Subject: Organize/document lore modules a bit --- lore/Control/Concurrent/Sima.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lore/Control/Concurrent/Sima.hs') diff --git a/lore/Control/Concurrent/Sima.hs b/lore/Control/Concurrent/Sima.hs index 3588a2a..b69c0bb 100644 --- a/lore/Control/Concurrent/Sima.hs +++ b/lore/Control/Concurrent/Sima.hs @@ -1,12 +1,12 @@ -module Control.Concurrent.Simaphore +module Control.Concurrent.Sima ( mapPool ) where -import Control.Concurrent.MSem +import qualified Control.Concurrent.MSem as Sem -- | Simaphore-based throttled 'mapConcurrently'. mapPool :: Traversable t => Int -> (a -> IO b) -> t a -> IO (t b) -mapPool lim f xs = do - sima <- new lim - mapConcurrently (with sima . f) xs +mapPool n f xs = do + sima <- Sem.new n + mapConcurrently (Sem.with sima . f) xs -- cgit v1.2.3