diff options
Diffstat (limited to 'Control/Concurrent/Sema.hs')
| -rw-r--r-- | Control/Concurrent/Sema.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Control/Concurrent/Sema.hs b/Control/Concurrent/Sema.hs index 21d4709..7f43bcf 100644 --- a/Control/Concurrent/Sema.hs +++ b/Control/Concurrent/Sema.hs @@ -9,7 +9,7 @@ import Control.Concurrent.Async (mapConcurrently) import qualified Control.Concurrent.MSem as Sem -- | Simaphore-based throttled 'mapConcurrently'. -mapPool :: Traversable t => Int -> (a -> IO b) -> t a -> IO (t b) +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 |