Add extra warning cries to chaseCrits

src/Dodge/Item/Held/Rod.hs

@@ -40,7 +40,7 @@ bangRod =
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1.5}
         & itUse . heldAim . aimHandlePos .~ 5
         & itUse . heldAim . aimMuzPos .~ 30
-        & itUse . heldConsumption . laAmmoType .~ hvBullet
+        & itUse . heldConsumption . laAmmoType .~ hvBulletAmmo
 
 elephantGun :: Item
 elephantGun =

src/Dodge/Item/Weapon/Bullet.hs

@@ -1,6 +1,6 @@
 module Dodge.Item.Weapon.Bullet (
-    basicBullet,
-    hvBullet,
+    basicBulletAmmo,
+    hvBulletAmmo,
     defaultBullet,
 ) where
 
@@ -8,8 +8,8 @@ import Dodge.Data.Item.Use.Consumption.Ammo
 import Control.Lens
 import Geometry.Data
 
-basicBullet :: AmmoType
-basicBullet =
+basicBulletAmmo :: AmmoType
+basicBulletAmmo =
     BulletAmmo
         { _amString = "BASIC"
         , _amBullet = defaultBullet
@@ -37,8 +37,8 @@ basicBulDams =
     [ Damage PIERCING 100 0 0 0 $ PushBackDamage 2
     ]
 
-hvBullet :: AmmoType
-hvBullet =
+hvBulletAmmo :: AmmoType
+hvBulletAmmo =
     BulletAmmo
         { _amString = "HVBULLET"
         , _amBullet =