Cleanup

src/Dodge/Update.hs

@@ -620,10 +620,7 @@ updatePulseLaser pz = case pz ^. pzTimer of
     5 -> (Endo f, [pz & pzTimer -~ 1])
     _ -> (Endo g, [pz & pzTimer -~ 1])
   where
-    f w =
-        dodam
-            thHit
-            w
+    f w = dodam thHit w
             & cWorld . lWorld . flares <>~ drawLaser cyan (sp : ps)
       where
         (thHit, ps) = reflectPulseLaserAlong phasev sp xp w
@@ -645,7 +642,7 @@ updatePulseLaser pz = case pz ^. pzTimer of
     xp = sp +.+ 800 *.* unitVectorAtAngle dir
     g w = w & cWorld . lWorld . flares <>~ drawLaser cyan (sp : ps)
       where
-        (_, ps) = reflectLaserAlong phasev sp xp w
+        (_, ps) = reflectPulseLaserAlong phasev sp xp w
 
 randWallReflect :: RandomGen g => Float -> Wall -> State g Float
 randWallReflect a wl = randPeaked a1 outa a2