Refactor, try to limit dependencies

src/Dodge/Creature/Strategy.hs

@@ -1,25 +1,27 @@
-module Dodge.Creature.Strategy
-    ( goToPostStrat
-    )
-    where
-import Dodge.Data
-import Dodge.Creature.Test
-import Dodge.Creature.Volition
+module Dodge.Creature.Strategy (
+    goToPostStrat,
+) where
 
 import Data.List
+import Dodge.Creature.Test
+import Dodge.Creature.Volition
+import Dodge.Data.Creature
 
 goToPostStrat :: Creature -> Strategy
 goToPostStrat cr = case find sentinelGoal $ _apGoal $ _crActionPlan cr of
-    Just (SentinelAt p _) -> StrategyActions (GetTo p)
-        [DoActionThen (WaitThen 150 holsterIfAiming)
-            $ DoActionThen (PathTo p) 
-            NoAction
-       --     $ DoImpulses [ChangeStrategy WatchAndWait]
-        ]
+    Just (SentinelAt p _) ->
+        StrategyActions
+            (GetTo p)
+            [ DoActionThen (WaitThen 150 holsterIfAiming) $
+                DoActionThen
+                    (PathTo p)
+                    NoAction
+                    --     $ DoImpulses [ChangeStrategy WatchAndWait]
+            ]
     _ -> WatchAndWait
   where
     sentinelGoal (SentinelAt _ _) = True
     sentinelGoal _ = False
-    holsterIfAiming 
+    holsterIfAiming
         | crIsAiming cr = holsterWeapon
-        | otherwise     = NoAction
+        | otherwise = NoAction