summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjonascarpay <>2017-12-07 00:30:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-12-07 00:30:00 (GMT)
commit4ba45e57fb705f10bb180bc63582915f3fb13f82 (patch)
treefbcb58973ad0764ae6225d2cef486c1f19819961
parent084689cbb8e11d95307c2b820d26188547290d68 (diff)
version 0.2.4.7HEAD0.2.4.7master
-rw-r--r--apecs.cabal2
-rw-r--r--src/Apecs/System.hs8
2 files changed, 5 insertions, 5 deletions
diff --git a/apecs.cabal b/apecs.cabal
index 7113f7a..d42f38c 100644
--- a/apecs.cabal
+++ b/apecs.cabal
@@ -1,5 +1,5 @@
name: apecs
-version: 0.2.4.6
+version: 0.2.4.7
homepage: https://github.com/jonascarpay/apecs#readme
license: BSD3
license-file: LICENSE
diff --git a/src/Apecs/System.hs b/src/Apecs/System.hs
index 3f6e041..6ca06ad 100644
--- a/src/Apecs/System.hs
+++ b/src/Apecs/System.hs
@@ -23,7 +23,7 @@ runWith = flip runSystem
-- | A slice containing all entities with component @c@
{-# INLINE owners #-}
-owners :: forall w c. Has w c => System w (Slice c)
+owners :: forall c w. Has w c => System w (Slice c)
owners = do s :: Storage c <- getStore
liftIO$ Slice <$> explMembers s
@@ -152,7 +152,7 @@ rmap f = do sr :: Storage r <- getStore
-- | Maps a function over all entities with a @r@, and writes or deletes their @w@
{-# INLINE rmap' #-}
-rmap' :: forall world r w. (Has world w, Has world r, Store (Storage r), Store (Storage w))
+rmap' :: forall world r w. (Has world w, Has world r)
=> (r -> Safe w) -> System world ()
rmap' f = do sr :: Storage r <- getStore
sw :: Storage w <- getStore
@@ -163,7 +163,7 @@ rmap' f = do sr :: Storage r <- getStore
-- | For all entities with a @w@, this map reads their @r@ and writes their @w@
{-# INLINE wmap #-}
-wmap :: forall world r w. (Has world w, Has world r, Store (Storage r), Store (Storage w))
+wmap :: forall world r w. (Has world w, Has world r)
=> (Safe r -> w) -> System world ()
wmap f = do sr :: Storage r <- getStore
sw :: Storage w <- getStore
@@ -174,7 +174,7 @@ wmap f = do sr :: Storage r <- getStore
-- | For all entities with a @w@, this map reads their @r@ and writes or deletes their @w@
{-# INLINE wmap' #-}
-wmap' :: forall world r w. (Has world w, Has world r, Store (Storage r), Store (Storage w))
+wmap' :: forall world r w. (Has world w, Has world r)
=> (Safe r -> Safe w) -> System world ()
wmap' f = do sr :: Storage r <- getStore
sw :: Storage w <- getStore