Rethink damage data type, work on damage sensors

src/Dodge/Creature/State.hs

@@ -88,7 +88,7 @@ doDamage cr = set (crState . crDamage) []
   where 
     dams = _crDamage $ _crState cr
 
-advancePastDamages :: [DamageType] -> V.Vector [DamageType] -> V.Vector [DamageType]
+advancePastDamages :: [Damage] -> V.Vector [Damage] -> V.Vector [Damage]
 advancePastDamages newDs v = f $ V.backpermute v bpVector
   where
     f = V.modify $ \v' -> MV.write v' 0 newDs