diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-15 09:54:10 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-15 10:06:56 -0700 |
| commit | f4b8c0df041b063c0b47d2ec6c818a9c202fd833 (patch) | |
| tree | 01ad246a83fda29c079847b3397ca6509a7f6106 /Control/Concurrent/Sema.hs | |
| parent | 6ed475ca94209ce92e75f48764cb9d361029ea26 (diff) | |
Re-namespacing
Moving away from the DNS-driven namespacing toward more condensed names,
mostly because I don't like typing so much.
Diffstat (limited to 'Control/Concurrent/Sema.hs')
| -rw-r--r-- | Control/Concurrent/Sema.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Control/Concurrent/Sema.hs b/Control/Concurrent/Sema.hs new file mode 100644 index 0000000..e804cc3 --- /dev/null +++ b/Control/Concurrent/Sema.hs @@ -0,0 +1,12 @@ +module Control.Concurrent.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 |