Remove some deriving clauses

src/Dodge/Data/Beam.hs

@@ -28,12 +28,12 @@ data Beam = Beam
     , _bmOrigin :: Maybe Int
     , _bmType :: BeamType
     }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data BeamDraw
     = BasicBeamDraw
     | BeamDrawColor Color
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data BeamCombineType
     = FlameBeamCombine
@@ -41,14 +41,14 @@ data BeamCombineType
     | TeslaBeamCombine
     | SplitBeamCombine
     | NoBeamCombine
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data BeamType
     = BeamCombine
         { _beamCombine :: BeamCombineType -- (Point2 , (Point2,Point2,Beam) , (Point2,Point2,Beam)) -> World -> World
         }
     | BeamSimple
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''BeamType
 makeLenses ''Beam