diff options
| author | Ben Sima <ben@bsima.me> | 2020-12-24 14:24:16 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-12-24 14:24:16 -0500 |
| commit | 6eaaf3d8ce6025932990de6fa697d14c9651be76 (patch) | |
| tree | 65ca4a0dd0393db98d9a6067bbbef789469e8122 /Control/Concurrent/Sema.hs | |
| parent | 6a4a8aa37044d578c95dea145b9605908b8dc28d (diff) | |
linting fixes and cleanup
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 5b32bab..c105cf8 100644 --- a/Control/Concurrent/Sema.hs +++ b/Control/Concurrent/Sema.hs @@ -9,4 +9,4 @@ import qualified Control.Concurrent.MSem as Sem 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 + mapConcurrently (Sem.with sima <. f) xs |