Refactor inverse shockwave

src/Dodge/WorldEvent/Flash.hs

@@ -60,7 +60,7 @@ glareBetween :: Int -> Float -> Float -> Color -> Point2 -> Point2 -> World -> M
 glareBetween 0 _   _    _   _ _ _ = Nothing
 glareBetween t len wdth col a b w = Just $ Particle 
     {_ptDraw = const $ lowLightPic len wdth col (a,b) w
-    ,_ptUpdate' = \ w' _ -> (w',glareBetween (t-1) len wdth col a b w')
+    ,_ptUpdate = \ w' _ -> (w',glareBetween (t-1) len wdth col a b w')
     }
 
 lowLightPic :: Float -> Float -> Color -> (Point2, Point2) -> World -> Picture
@@ -81,7 +81,7 @@ flashFlareAt :: Color -> Float -> Point2 -> 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
+    , _ptUpdate = ptTimer' 1
     }
 
 explosionFlashAt :: Point2 -> World -> World
@@ -109,7 +109,7 @@ muzzleFlashPt (V2 x y) = Particle
                     . setLayer 2
                     . translate x y 
                     $ circleSolidCol (withAlpha 0 white) (withAlpha 0.2 white) 20
-    , _ptUpdate' = ptTimer' 1
+    , _ptUpdate = ptTimer' 1
     }
 
 laserScopeTargetGlow :: Color -> Point2 -> World -> World