Remove generic and flat instances

src/Dodge/Data/Wall.hs

@@ -8,7 +8,6 @@ module Dodge.Data.Wall (
     module Dodge.Data.Material,
 ) where
 
-import Flat
 import LinearHelp ()
 import Color
 import Control.Lens
@@ -36,17 +35,17 @@ data Wall = Wall
     , _wlHeight :: Float
     , _wlMaterial :: Material
     }
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Opacity
     = SeeThrough
     | SeeAbove
     | DrawnWall {_opDraw :: WallDraw} -- Wall -> SPic
     | Opaque
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WallDraw = DrawForceField
-    deriving (Eq, Ord, Show, Read, Enum, Bounded, Generic, Flat)
+    deriving (Eq, Ord, Show, Enum, Bounded, Read) --Generic, Flat)
 
 data WallStructure
     = StandaloneWall
@@ -56,7 +55,7 @@ data WallStructure
     | CreaturePart
         { _wlStCreature :: Int
         }
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''Wall
 makeLenses ''Opacity