Remove DamageEffect

src/Dodge/Shockwave/Update.hs

@@ -23,7 +23,6 @@ moveShockwave w sw
     is = _swInvulnerableCrs sw
     r = _swRad sw
     p = _swPos sw
-    push = _swPush sw
     dam = _swDam sw
     t = _swTimer sw
     tFraction = fromIntegral t / fromIntegral (_swMaxTime sw)
@@ -31,7 +30,7 @@ moveShockwave w sw
     doDams w' =
         over (cWorld . lWorld . creatures) (IM.map damCr) $
             foldl'
-                (flip $ damageWall (Damage EXPLOSIVE 1000 p p p NoDamageEffect))
+                (flip $ damageWall (Damage EXPLOSIVE 1000 p p p))
                 w'
                 hitBlocks
     hitBlocks = map snd . overlapCircWalls p rad $ wlsNearCirc p rad w
@@ -46,7 +45,6 @@ moveShockwave w sw
                     (cpos -.- v)
                     cpos
                     (cpos +.+ v)
-                    (PushBackDamage (25 * push))
       where
         cpos = _crPos cr
         v = normalizeV (cpos -.- p)
@@ -69,7 +67,7 @@ moveInverseShockwave w sw
         | dist (_crPos cr) p >= rad + crRad (cr ^. crType) = cr
         | otherwise =
             cr & crState . csDamage
-                .:~ Damage CONCUSSIVE 1 (cpos +.+ v) cpos (cpos -.- v) (PushBackDamage 25)
+                .:~ Damage CONCUSSIVE 1 (cpos +.+ v) cpos (cpos -.- v)
       where
         cpos = _crPos cr
         v = normalizeV (cpos -.- p)