Fix reversed impulse pathfinding bug

src/Dodge/Data/ActionPlan.hs

@@ -31,7 +31,7 @@ data Impulse
     | RandomTurn Float
     | RandomImpulse RandImpulse -- (State StdGen Impulse)
     | TurnToward Point2 Float
-    | MvTurnToward Point2
+    | MvTurnToward Int Point2 Point2 Point2 -- the Int is just a label
     | MvForward
     | TurnTo Point2
     | UseItem

src/Dodge/Data/Creature.hs

@@ -78,6 +78,7 @@ data Intention = Intention
     , _mvToPoint :: Maybe Point2
     , _viewPoint :: Maybe Point2
     }
+    deriving (Show)
 
 --deriving (Eq, Show, Read) --Generic, Flat)