Commit before moving targeting

2023-01-05 09:58:41 +00:00
parent ac8afe513b
commit c48a553967
14 changed files with 50 additions and 17 deletions
@@ -26,9 +26,9 @@ data LaserStart = LaserStart
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Laser = Laser
-    { _laColor :: Color
-    , _laPoints :: [Point2]
-    , _laType :: LaserType
+    { _lzColor :: Color
+    , _lzPoints :: [Point2]
+    , _lzType :: LaserType
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)