Further strictifying

src/Dodge/WorldEvent/Flash.hs

@@ -70,7 +70,7 @@ lowLightPic len wdth col (a,b) w = case thingsHit a b w of
               where 
                 (wa,wb) = _wlLine wall
         ((p, E3x1 cr):_) 
-            -> setCol . uncurry translate cp . rotate (-0.25 * pi + argV (p -.- cp))
+            -> setCol . uncurryV translate cp . rotate (-0.25 * pi + argV (p -.- cp))
                     $ thickArc 0 (pi/2) (_crRad cr) wdth
               where 
                 cp = _crPos cr
@@ -78,7 +78,7 @@ lowLightPic len wdth col (a,b) w = case thingsHit a b w of
   where setCol = color col . setDepth (-0.5) . setLayer 2
 
 flashFlareAt :: Color -> Float -> Point2 -> Particle
-flashFlareAt col alphax (x,y) = Particle
+flashFlareAt col alphax (V2 x y) = Particle
     { _ptDraw = const $ setLayer 2 . setDepth (-0.9) . translate x y 
                         $ circleSolidCol (withAlpha 0 col) (withAlpha alphax col) 30
     , _ptUpdate' = ptTimer' 1
@@ -105,7 +105,7 @@ muzzleFlashAt p = over particles (muzzleFlashPt p : )
                 . glareAt 2 10 5 (withAlpha 0.5 white) 20 30 p
 
 muzzleFlashPt :: Point2 -> Particle
-muzzleFlashPt (x,y) = Particle
+muzzleFlashPt (V2 x y) = Particle
     { _ptDraw = const $ setDepth 0 
                     . setLayer 2
                     . translate x y