Cleanup

src/Dodge/Data/ActionPlan.hs

@@ -46,9 +46,9 @@ data Impulse
     | ArbitraryImpulseFunction WdCrCr
     | ArbitraryImpulse CrWdImp
     | ArbitraryImpulseEffect CrWdWd
-    | ImpulseUseTargetCID
-        { _impulseUseTargetCID :: IntImp
-        }
+--    | ImpulseUseTargetCID
+--        { _impulseUseTargetCID :: IntImp
+--        }
     | ImpulseUseTarget
         { _impulseUseTarget :: CrImp
         }

src/Dodge/Data/CreatureEffect.hs

@@ -17,8 +17,8 @@ data CrWdImp = NoCrWdImp
 data CrWdWd = CrWdWdId
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data IntImp = NoIntImp
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--data IntImp = NoIntImp
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data CrImp
     = NoCrImp
@@ -42,9 +42,7 @@ data CrBl
     | CrIsAnimate
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data CrAc
-    = CrTurnAround
---    | CrFleeFromTarget
+data CrAc = CrTurnAround
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data P2Ac = P2NoAction
@@ -62,7 +60,7 @@ data CrWdAc
 deriveJSON defaultOptions ''WdCrCr
 deriveJSON defaultOptions ''CrWdImp
 deriveJSON defaultOptions ''CrWdWd
-deriveJSON defaultOptions ''IntImp
+--deriveJSON defaultOptions ''IntImp
 deriveJSON defaultOptions ''CrImp
 deriveJSON defaultOptions ''P2Imp
 deriveJSON defaultOptions ''CrBl