Remove generic and flat instances

src/Dodge/Data/Damage.hs

@@ -12,7 +12,6 @@ module Dodge.Data.Damage (
     module Dodge.Data.Damage.Type,
 ) where
 
-import Flat
 import LinearHelp ()
 import Control.Lens
 import Data.Aeson
@@ -29,7 +28,7 @@ data DamageEffect
     | TorqueDamage {_deTorque :: Float}
     | PushBackDamage {_dePushBack :: Float}
     | NoDamageEffect
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Damage = Damage
     { _dmType :: DamageType
@@ -39,7 +38,7 @@ data Damage = Damage
     , _dmTo :: Point2
     , _dmEffect :: DamageEffect
     }
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 isElectrical :: Damage -> Bool
 isElectrical dm = case _dmType dm of