Refactor, try to limit dependencies

src/Dodge/Creature.hs

@@ -8,18 +8,42 @@ module Dodge.Creature (
     spreadGunCrit,
     autoCrit,
     armourChaseCrit,
+    module Dodge.Creature.Action,
+    module Dodge.Creature.Boid,
+    module Dodge.Creature.ChainUpdates,
+    module Dodge.Creature.Impulse,
+    module Dodge.Creature.Perception,
+    module Dodge.Creature.ReaderUpdate,
+    module Dodge.Creature.SentinelAI,
+    module Dodge.Creature.State,
+    module Dodge.Creature.Strategy,
+    module Dodge.Creature.Test,
+    module Dodge.Creature.Volition,
+    module Dodge.Creature.YourControl,
 ) where
 
 import Control.Lens
+import Dodge.Creature.Action
 import Dodge.Creature.ArmourChase
 import Dodge.Creature.AutoCrit
+import Dodge.Creature.Boid
+import Dodge.Creature.ChainUpdates
 import Dodge.Creature.ChaseCrit
+import Dodge.Creature.Impulse
 import Dodge.Creature.Inanimate
 import Dodge.Creature.LauncherCrit
 import Dodge.Creature.LtAutoCrit
+import Dodge.Creature.Perception
 import Dodge.Creature.PistolCrit
+import Dodge.Creature.ReaderUpdate
+import Dodge.Creature.SentinelAI
 import Dodge.Creature.SpreadGunCrit
-import Dodge.Data
+import Dodge.Creature.State
+import Dodge.Creature.Strategy
+import Dodge.Creature.Test
+import Dodge.Creature.Volition
+import Dodge.Creature.YourControl
+import Dodge.Data.Creature
 import Dodge.Default
 import Dodge.Item
 import Geometry.Data
@@ -43,8 +67,8 @@ miniGunCrit =
 longCrit :: Creature
 longCrit =
     defaultCreature
-        & crActionPlan .~
-            ActionPlan
+        & crActionPlan
+            .~ ActionPlan
                 { _apImpulse = []
                 , _apAction = []
                 , _apStrategy = StrategyActions WatchAndWait [StartSentinelPost]