Refector

src/Dodge/Data.hs.orig

@@ -144,7 +144,7 @@ data Creature = Creature
     }
 
 data CreatureState = CrSt 
-    { _goals    :: [[Goal]]
+    { _goals    :: [[Impulse]]
     , _stance  :: Stance
     , _faction :: Faction
     , _crDamage  :: [DamageType]
@@ -157,7 +157,7 @@ data CrSpState
     = Barrel { _piercedPoints :: [Point2]}
     | GenCr
   deriving (Eq,Show,Ord)
-data Goal 
+data Impulse 
     = MoveTo Point2
     | MoveToFor Point2 Int
     | MoveFire Point2 Point2
@@ -200,10 +200,10 @@ data Goal
     | MoveBackwardFor Int
     | MoveByFor Point2 Int
     | MoveBackwardFire
-    | GoalID Int Goal
+    | ImpulseID Int Impulse
     | AtRange Float
     | AtRanges Float Float
-    | RepeatAction Int Goal
+    | RepeatAction Int Impulse
     | MakeJudgement
     | SetPosture Posture
   deriving (Eq,Show)
@@ -652,7 +652,7 @@ makeLenses ''Cloud
 makeLenses ''Creature
 makeLenses ''CreatureState
 makeLenses ''CrSpState
-makeLenses ''Goal
+makeLenses ''Impulse
 makeLenses ''LightSource
 makeLenses ''TempLightSource
 makeLenses ''Stance