Simplify lasers

src/Dodge/Data/LWorld.hs

@@ -114,7 +114,7 @@ data LWorld = LWorld
     , _teslaArcs :: [TeslaArc]
     , _shockwaves :: [Shockwave]
     , _lasers :: [LaserStart]
-    , _lasersToDraw :: [Laser]
+--    , _lasersToDraw :: [Laser]
     , _linearShockwaves :: IM.IntMap LinearShockwave
     , _tractorBeams :: [TractorBeam]
     , _walls :: IM.IntMap Wall

src/Dodge/Data/Laser.hs

@@ -27,16 +27,16 @@ data LaserStart = LaserStart
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data Laser = Laser
-    { _lzColor :: Color
-    , _lzPoints :: [Point2]
-    , _lzType :: LaserType
-    }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--data Laser = Laser
+--    { _lzColor :: Color
+--    , _lzPoints :: [Point2]
+--    , _lzType :: LaserType
+--    }
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-makeLenses ''Laser
+--makeLenses ''Laser
 makeLenses ''LaserStart
 makeLenses ''LaserType
 deriveJSON defaultOptions ''LaserType
 deriveJSON defaultOptions ''LaserStart
-deriveJSON defaultOptions ''Laser
+--deriveJSON defaultOptions ''Laser