Add more debug info for selected creatures

src/Dodge/Data/ActionPlan.hs

@@ -174,8 +174,8 @@ data Action
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Strategy
-    = Flank Int
-    | Ambush Int
+    = Flank {_flankTarget :: Int}
+    | Ambush {_ambushTarget :: Int}
     | Lure Int Point2
     | Patrol [Point2]
     | ShootAt Int
@@ -183,7 +183,7 @@ data Strategy
     | WatchAndWait
     | WarningCry
     | LookAround
-    | CloseToMelee Int
+    | CloseToMelee {_meleeTarget :: Int}
     | StrategyActions Strategy [Action]
     | GetTo Point2
     | Reload
@@ -194,8 +194,8 @@ data Strategy
 
 data Goal
     = LiveLongAndProsper
-    | Kill Int
-    | SentinelAt Point2 Float
+    | Kill {_killTarget :: Int}
+    | SentinelAt {_sentinelPos :: Point2, _sentinelDir :: Float}
     deriving (Eq, Ord, Show) --Generic, Flat)
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)