Commit before moving targeting

src/Dodge/Laser/Draw.hs

@@ -10,5 +10,5 @@ drawLaser pt =
             [ setDepth 19.5 . color (brightX 10 1 col) $ thickLine 3 ps
             ]
   where
-    col = _laColor pt
-    ps = _laPoints pt
+    col = _lzColor pt
+    ps = _lzPoints pt

src/Dodge/Laser/Update.hs

@@ -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