From c790672cc244ac4caba1bda3572829a6c6862891 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sun, 27 Oct 2019 09:48:52 -0700 Subject: move everything to namespace directories --- lore/Control/Concurrent/Sima.hs | 12 ------------ 1 file changed, 12 deletions(-) delete mode 100644 lore/Control/Concurrent/Sima.hs (limited to 'lore/Control/Concurrent/Sima.hs') diff --git a/lore/Control/Concurrent/Sima.hs b/lore/Control/Concurrent/Sima.hs deleted file mode 100644 index b69c0bb..0000000 --- a/lore/Control/Concurrent/Sima.hs +++ /dev/null @@ -1,12 +0,0 @@ -module Control.Concurrent.Sima - ( 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