Remove DamageEffect

src/Dodge/Data/Damage.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
@@ -18,33 +18,14 @@ import Data.Aeson.TH
 import Dodge.Data.Damage.Type
 import Geometry.Data
 
-data DamageEffect
-    = PushDamage
-        { _dePush :: Float
-        , _dePushExp :: Float
-        , _dePushRadius :: Float
-        }
-    | TorqueDamage {_deTorque :: Float}
-    | PushBackDamage {_dePushBack :: Float}
-    | NoDamageEffect
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data Damage = Damage
     { _dmType :: DamageType
     , _dmAmount :: Int
     , _dmFrom :: Point2
     , _dmAt :: Point2
     , _dmTo :: Point2
-    , _dmEffect :: DamageEffect
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-isElectrical :: Damage -> Bool
-isElectrical dm = case _dmType dm of
-    ELECTRICAL -> True
-    _ -> False
-
 makeLenses ''Damage
-makeLenses ''DamageEffect
-deriveJSON defaultOptions ''DamageEffect
 deriveJSON defaultOptions ''Damage