Simplify lasers

2025-01-07 01:36:23 +00:00
parent 4a9c1cd6b3
commit b3cf10bd26
15 changed files with 227 additions and 227 deletions
@@ -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