Organize/document lore modules a bit

1 files changed, 5 insertions, 5 deletions

diff --git a/lore/Control/Concurrent/Sima.hs b/lore/Control/Concurrent/Sima.hs
index 3588a2a..b69c0bb 100644
--- a/lore/Control/Concurrent/Sima.hs
+++ b/lore/Control/Concurrent/Sima.hs
@@ -1,12 +1,12 @@
-module Control.Concurrent.Simaphore
+module Control.Concurrent.Sima
     ( mapPool
     )
 where
 
-import           Control.Concurrent.MSem
+import qualified Control.Concurrent.MSem as Sem
 
 -- | Simaphore-based throttled 'mapConcurrently'.
 mapPool :: Traversable t => Int -> (a -> IO b) -> t a -> IO (t b)
-mapPool lim f xs = do
-    sima <- new lim
-    mapConcurrently (with sima . f) xs
+mapPool n f xs = do
+    sima <- Sem.new n
+    mapConcurrently (Sem.with sima . f) xs