Improve chase crit searching

2022-07-09 11:25:10 +01:00
parent f57bcebb7a
commit 9c352e4a83
8 changed files with 58 additions and 22 deletions
@@ -1142,8 +1142,8 @@ data Action
    | PathTo 
        {_pathToPoint   :: Point2
        }
-    | TurnToA
-        {_turnToAPoint :: Point2
+    | TurnToPoint
+        {_turnToPoint   :: Point2
        }
 --    | PickupItem 
 --        {_pickupItemID :: Int
@@ -1238,9 +1238,9 @@ instance Show Action where
        PathTo 
          {_pathToPoint = p
          } -> "PathTo:"++shortPoint2 p
-        TurnToA
-          {_turnToAPoint = p
-          } -> "TurnToA:"++shortPoint2 p
+        TurnToPoint
+          {_turnToPoint = p
+          } -> "TurnToPoint:"++shortPoint2 p
 ----      | PickupItem 
 ----          {_pickupItemID :: Int
 ----          }