From 591cff68ff0f1ff17324f7723a90d5003794d6a2 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Thu, 7 Apr 2022 19:40:32 +0100
Subject: [PATCH] Add file

---
 src/Dodge/Creature/Update.hs | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 src/Dodge/Creature/Update.hs

diff --git a/src/Dodge/Creature/Update.hs b/src/Dodge/Creature/Update.hs
new file mode 100644
index 000000000..c7395b035
--- /dev/null
+++ b/src/Dodge/Creature/Update.hs
@@ -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