Remove unused datatype
This commit is contained in:
@@ -35,21 +35,6 @@ data CrMvType
|
||||
}
|
||||
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
||||
|
||||
data HumanoidAI
|
||||
= ChaseAI
|
||||
| InanimateAI
|
||||
| SpreadGunAI
|
||||
| PistolAI
|
||||
| LtAutoAI
|
||||
| LauncherAI
|
||||
| SwarmAI
|
||||
| AutoAI
|
||||
| FlockArmourChaseAI
|
||||
| MiniGunAI
|
||||
| LongAI
|
||||
| MultGunAI
|
||||
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
||||
|
||||
data Pulse = PulseStatus
|
||||
{ _pulseRate :: Int
|
||||
, _pulseProgress :: Int
|
||||
@@ -67,6 +52,7 @@ data CreatureType
|
||||
, _avPosture :: AvatarPosture
|
||||
}
|
||||
| ChaseCrit {_meleeCooldown :: Int}
|
||||
| HoverCrit
|
||||
| SwarmCrit
|
||||
| AutoCrit
|
||||
| BarrelCrit {_barrelType :: BarrelType}
|
||||
@@ -79,7 +65,6 @@ data CreatureShape
|
||||
{ _skinHead :: Color
|
||||
, _skinUpper :: Color
|
||||
, _skinLower :: Color
|
||||
, _humanoidAI :: HumanoidAI
|
||||
}
|
||||
| Barreloid
|
||||
| NonDrawnCreature
|
||||
@@ -99,12 +84,7 @@ makeLenses ''CrMvType
|
||||
makeLenses ''CreatureType
|
||||
makeLenses ''CreatureShape
|
||||
deriveJSON defaultOptions ''Pulse
|
||||
|
||||
--deriveJSON defaultOptions ''CreatureStatistics
|
||||
deriveJSON defaultOptions ''Vocalization
|
||||
|
||||
--deriveJSON defaultOptions ''CrMvType
|
||||
deriveJSON defaultOptions ''HumanoidAI
|
||||
deriveJSON defaultOptions ''BarrelType
|
||||
deriveJSON defaultOptions ''AvatarPosture
|
||||
deriveJSON defaultOptions ''CreatureType
|
||||
|
||||
Reference in New Issue
Block a user