Constrain cmapM_ type

jonascarpay · Aug 11, 2019 · 103daa1 · 103daa1
1 parent 9a36e27
commit 103daa1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/apecs/src/Apecs/System.hs b/apecs/src/Apecs/System.hs
@@ -120,8 +120,8 @@ cmapM sys = do
 
 -- | Monadically iterates over all entites with a @cx@
 {-# INLINE cmapM_ #-}
-cmapM_ :: forall w m c a. (Get w m c, Members w m c)
-       => (c -> SystemT w m a) -> SystemT w m ()
+cmapM_ :: forall w m c. (Get w m c, Members w m c)
+       => (c -> SystemT w m ()) -> SystemT w m ()
 cmapM_ sys = do
   s :: Storage c <- getStore
   sl <- lift$ explMembers s