Comment out DeriveAnyClass extensions

src/Dodge/Data/ActionPlan.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE DeriveAnyClass #-}
+--{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
@@ -32,7 +32,7 @@ data Impulse
     | RandomTurn Float
     | RandomImpulse RandImpulse -- (State StdGen Impulse)
     | TurnToward Point2 Float
-    | MvTurnToward Int Point2 Point2 Point2 -- the Int is just a label
+    | MvTurnToward Point2
     | MvForward
     | TurnTo Point2
     | UseItem
@@ -65,28 +65,14 @@ infixr 9 `DoReplicate`
 infixr 9 `DoImpulsesAlongside`
 
 data Action
-    = LabelAction
-        { _actLabel :: String
-        , _actAction :: Action
-        }
-    | ActionNothing
-    | AimAt
+    = AimAt
         { _targetID :: Int
         , _targetSeenAt :: Point2
         }
     | PathTo { _pathToPoint :: Point2 }
-    | TurnToPoint
-        { _turnToPoint :: Point2
-        }
-    | --    | PickupItem
-      --        {_pickupItemID :: Int
-      --        }
-      ImpulsesList
-        { _impulsesListList :: [[Impulse]]
-        }
-    | DoImpulses
-        { _doImpulsesList :: [Impulse]
-        }
+    | TurnToPoint { _turnToPoint :: Point2 }
+    | ImpulsesList { _impulsesListList :: [[Impulse]] }
+    | DoImpulses { _doImpulsesList :: [Impulse] }
     | WaitThen
         { _waitThenTimer :: Int
         , _waitThenAction :: Action
@@ -114,17 +100,12 @@ data Action
         , _doActionWhileThenCondition :: WdCrBl
         , _doActionWhileThenThen :: Action
         }
-    | DoActions
-        { _doActionsList :: [Action]
-        }
+    | DoActions { _doActionsList :: [Action] }
     | DoActionThen
         { _doActionThenFirst :: Action
         , _doActionThenSecond :: Action
         }
-    | --    | DoGuardActions
-      --        {_doGuardActionsList :: [( (World, Creature) -> Bool, Action, Maybe Action)]
-      --        }
-      DoReplicate
+    | DoReplicate
         { _doReplicateTimes :: Int
         , _doReplicateAction :: Action
         }
@@ -133,9 +114,7 @@ data Action
         , _doReplicateTimes :: Int
         , _doReplicateAction :: Action
         }
-    | LeadTarget
-        { _leadTargetBy :: Point2
-        }
+    | LeadTarget { _leadTargetBy :: Point2 }
     | NoAction
     | StartSentinelPost
     | UseSelf { _useSelf :: CrAc }