From 9d114cfc773171b0a95bd4d2c39f1bb0eb783c8d Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 2 Nov 2019 15:33:13 -0700 Subject: rename everything back to caps to appease ghc --- com/simatime/sema.hs | 12 ------------ 1 file changed, 12 deletions(-) delete mode 100644 com/simatime/sema.hs (limited to 'com/simatime/sema.hs') 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 -- cgit v1.2.3