Add sound on creature piercing damage

src/Dodge/Wall/Damage.hs

@@ -6,7 +6,6 @@ module Dodge.Wall.Damage (
     damageWall,
 ) where
 
-import Geometry.Vector
 import Dodge.Material.Damage
 import Dodge.Block
 import Dodge.Data.World
@@ -25,7 +24,7 @@ damageWall dt wl w = case _wlStructure wl of
     _ -> w'
   where
     x = dt ^. dmAmount
-    w' = damageMaterial dt (_wlMaterial wl) (argV $ uncurry (-) (_wlLine wl)) w
+    w' = damageMaterial dt (_wlMaterial wl) (Right wl) w
 
 -- block destruction is convoluted...
 maybeDestroyBlock :: Int -> World -> World