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
@@ -10,7 +10,7 @@ import Geometry
 updateLaser :: World -> LaserStart -> (World, Laser)
 updateLaser w pt =
    ( w'
-    , Laser{_laPoints = sp : ps, _laColor = _lpColor pt, _laType = _lpType pt}
+    , Laser{_lzPoints = sp : ps, _lzColor = _lpColor pt, _lzType = _lpType pt}
    )
  where
    w' = fromMaybe w $ do