Add sound on creature piercing damage

src/Dodge/Creature/Damage.hs

@@ -1,5 +1,6 @@
 module Dodge.Creature.Damage (applyCreatureDamage) where
 
+import Dodge.Material.Damage
 import Data.List
 import Dodge.Creature.Mass
 import Dodge.Creature.Material
@@ -48,7 +49,8 @@ applyCreatureDamage dms cr w = foldl' (applyIndividualDamage cr) w dms
 --p = _dmAt dm
 
 applyIndividualDamage :: Creature -> World -> Damage -> World
-applyIndividualDamage cr w dm = case dm of
+applyIndividualDamage cr w dm = damageMaterial dm (crMaterial (_crType cr)) (Left cr) $
+  case dm of
     Piercing{} -> applyPiercingDamage cr dm w
     _ -> w & damageHP cr (_dmAmount dm)