refactor: clean up

aztecs-hs · Mar 5, 2025 · 021265a · 021265a
1 parent 7717b71
commit 021265a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/bench/Bench.hs b/bench/Bench.hs
@@ -8,6 +8,7 @@ import Aztecs.ECS.World
 import qualified Aztecs.ECS.World as W
 import Control.DeepSeq
 import Criterion.Main
+import Data.Function
 import Data.Functor.Identity
 import GHC.Generics
 
@@ -20,7 +21,7 @@ newtype Velocity = Velocity Int deriving (Show, Generic, NFData)
 instance Component Velocity
 
 query :: Query Position
-query = Q.adjust (\(Velocity v) (Position p) -> Position $ p + v) Q.fetch
+query = Q.fetch & Q.adjust (\(Velocity v) (Position p) -> Position $ p + v)
 
 run :: Query Position -> World -> [Position]
 run q = fst . runIdentity . Q.map q . entities

diff --git a/src/Aztecs/Camera.hs b/src/Aztecs/Camera.hs
@@ -22,7 +22,6 @@ import qualified Aztecs.ECS.Access as A
 import qualified Aztecs.ECS.Query.Reader as Q
 import qualified Aztecs.ECS.System as S
 import Aztecs.Window
-import Control.Arrow
 import Control.DeepSeq
 import GHC.Generics
 import Linear

diff --git a/src/Aztecs/ECS/System.hs b/src/Aztecs/ECS/System.hs
@@ -59,7 +59,7 @@ newtype SystemT m a = SystemT
     -- @since 0.9
     runSystemT :: ReaderT (TVar Entities) m a
   }
-  deriving (Functor, Applicative, Monad, MonadFix)
+  deriving (Functor, Applicative, Monad)
 
 -- | @since 0.9
 instance MonadDynamicSystem (DynamicQueryT STM) System where