Refactor inverse shockwave

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -44,7 +44,7 @@ aFlameParticle
     -> Particle
 aFlameParticle t pos vel maycid = PtZ
     { _ptDraw         = drawFlame vel
-    , _ptUpdate'      = moveFlame vel
+    , _ptUpdate      = moveFlame vel
     , _btVel'         = vel
     , _btColor'       = red
     , _btPos'         = pos
@@ -152,7 +152,7 @@ makeFlameletTimed (V2 x y) z vel maycid size time w = w
   where   
     theFlamelet = PtZ 
         { _ptDraw         = drawFlameletZ rot
-        , _ptUpdate'      = moveFlamelet
+        , _ptUpdate      = moveFlamelet
         , _btVel'         = vel
         , _btColor'       = red
         , _btPos'         = V2 x y
@@ -307,7 +307,7 @@ makeTeslaArcAt :: Color -> Point2 -> Float -> Particle
 makeTeslaArcAt col pos dir = LinearParticle
     { _ptPoints = [pos]
     , _ptDraw = drawTeslaArc
-    , _ptUpdate' = moveTeslaArc pos dir
+    , _ptUpdate = moveTeslaArc pos dir
     , _ptTimer = 2
     , _ptColor = brightX 100 1.5 col
     }
@@ -460,7 +460,7 @@ createSparkCol time col pos dir w
   where 
     spark = BulletPt
         { _ptDraw = drawBul
-        , _ptUpdate' = mvGenBullet
+        , _ptUpdate = mvGenBullet
         , _btVel' = rotateV dir (V2 5 0)
         , _btColor' = col
         , _btTrail' = [pos]