Remove generic and flat instances

src/Dodge/Data/WorldEffect.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.WorldEffect where
 
-import Flat
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.CreatureEffect
@@ -17,7 +16,7 @@ import Sound.Data
 data ItCrWdWd
     = ItCrWdId
     | ItCrWdItemEffect
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WdWd
     = NoWorldEffect
@@ -32,20 +31,20 @@ data WdWd
     | WdWdNegateTrig Int
     | WdWdFromItixCrixWdWd Int Int ItCrWdWd
     | WdWdFromItCrixWdWd Item Int ItCrWdWd
-    deriving (Eq, Show, Read, Generic)
-    --hderiving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read) --, Generic)
+    --hderiving (Eq, Show, Read) --Generic, Flat)
 
 data WdP2
     = WdP2Const Point2
     | WdYouPos
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data MdWdWd
     = MdWdId
     | MdTrigIf MdWdWd MdWdWd
     | MdSetLSCol Point3
     | MdFlickerUpdate
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WdBl
     = WdTrig Int
@@ -55,19 +54,19 @@ data WdBl
     | WdBlCrFilterNearPoint Float Point2 CrBl
     | WdBlBtOn Int
     | WdBlBtNotOff Int
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WdP2f
     = WdP2f0
     | WdP2fDoorPosition Int
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data DrWdWd
     = DrWdId
     | DrWdMakeDoorDebris
     | DrWdMechanismStepwise Int [Int] [(Point2, Point2)]
     | DoorMechanism
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data TmWdWd
     = TmWdId
@@ -75,8 +74,8 @@ data TmWdWd
     | TmWdWdfromWdWd WdWd
     | TmWdWdTermSound SoundID
     | TmWdWdDoDeathTriggers
-    deriving (Eq, Show, Read, Generic)
-    --hderiving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read) --, Generic)
+    --hderiving (Eq, Show, Read) --Generic, Flat)
 
 deriveJSON defaultOptions ''ItCrWdWd
 deriveJSON defaultOptions ''WdWd