Make damage application belong to hit object

src/Dodge/WorldEvent/HitEffect.hs

@@ -1,6 +1,5 @@
 module Dodge.WorldEvent.HitEffect
     ( destroyOnImpact
-    , noEff
     , penWalls
     ) where
 import Dodge.Data
@@ -59,6 +58,3 @@ penWalls crEff wlEff pt hitThings w = case hitThings of
     ((p,Right wl):hs) | _wlFireThrough wl 
                     -> first (wlEff pt p wl) $ penWalls crEff wlEff pt hs w
     ((p,Right wl):_) -> (wlEff pt p wl w, destroyAt p pt)
-
-noEff :: a -> b -> c -> d -> d
-noEff _ _ _ = id