Add file

2022-04-07 19:40:32 +01:00
parent ac74ae0ed1
commit 591cff68ff
1 changed files with 9 additions and 0 deletions
@@ -0,0 +1,9 @@
+module Dodge.Creature.Update where
+import Dodge.Data
+import Dodge.Creature.State
+import Dodge.Creature.Impulse
+import Dodge.Creature.ChainUpdates
+
+defaultImpulsive :: [World -> Creature -> Creature]
+    -> Creature -> World -> World
+defaultImpulsive = stateUpdate' . impulsiveAI' . chainCreatureUpdates