Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,11 +1,13 @@
 module Dodge.Creature.ChainUpdates where
-import Dodge.Data

 import Data.Foldable
+import Dodge.Data.World

-chainCreatureUpdates
-    :: [World -> Creature -> Creature] 
-    -> World -> Creature -> Creature
+chainCreatureUpdates ::
+    [World -> Creature -> Creature] ->
+    World ->
+    Creature ->
+    Creature
 chainCreatureUpdates ls w cr = foldl' unf cr ls
  where
    unf cr' g = g w cr'