diff options
| author | Ben Sima <ben@bsima.me> | 2019-11-02 15:33:13 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-11-02 15:33:13 -0700 |
| commit | 9d114cfc773171b0a95bd4d2c39f1bb0eb783c8d (patch) | |
| tree | 20766a760ed0141cf39153565e8552f6739c632d /com/simatime/sema.hs | |
| parent | d2a37f5de160160eadbacd7b8dc2567f78a0543d (diff) | |
rename everything back to caps to appease ghc
Diffstat (limited to 'com/simatime/sema.hs')
| -rw-r--r-- | com/simatime/sema.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/com/simatime/sema.hs b/com/simatime/sema.hs deleted file mode 100644 index f0f75da..0000000 --- a/com/simatime/sema.hs +++ /dev/null @@ -1,12 +0,0 @@ -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 |