From 6eaaf3d8ce6025932990de6fa697d14c9651be76 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 24 Dec 2020 14:24:16 -0500 Subject: linting fixes and cleanup --- Control/Concurrent/Sema.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Control/Concurrent/Sema.hs') 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 -- cgit v1.2.3