Cleanup

src/Dodge/Data/LWorld.hs

@@ -112,8 +112,8 @@ data LWorld = LWorld
     , _sparks :: [Spark]
     , _radarBlips :: [RadarBlip]
     , _flares :: [Flare]
-    , _newBeams :: WorldBeams
-    , _beams :: WorldBeams
+--    , _newBeams :: WorldBeams
+--    , _beams :: WorldBeams
     , _teslaArcs :: [TeslaArc]
     , _shockwaves :: [Shockwave]
     , _lasers :: [LaserStart]
@@ -147,18 +147,18 @@ data LWorld = LWorld
     , _lTestString :: [String]
     , _lTestInt :: Int
     }
-data WorldBeams = WorldBeams
-    { _blockingBeams :: [Beam]
-    , _lightBeams :: [Beam]
-    , _positronBeams :: [Beam]
-    , _electronBeams :: [Beam]
-    }
+--data WorldBeams = WorldBeams
+--    { _blockingBeams :: [Beam]
+--    , _lightBeams :: [Beam]
+--    , _positronBeams :: [Beam]
+--    , _electronBeams :: [Beam]
+--    }
 
 makeLenses ''LWorld
-makeLenses ''WorldBeams
+--makeLenses ''WorldBeams
 concat
     <$> mapM
         (deriveJSON defaultOptions)
-        [ ''WorldBeams
-        , ''LWorld
+        [-- ''WorldBeams
+         ''LWorld
         ]