Fix bullet weapons ruse

src/Dodge/Default/Weapon.hs

@@ -3,6 +3,7 @@ module Dodge.Default.Weapon
 import Dodge.Data
 import Dodge.Reloading.Action
 import Dodge.Item.Weapon.Bullet
+import Dodge.Item.Weapon.AmmoParams
 import Dodge.Default.Item
 import Dodge.Default.AimParams
 --import Dodge.Item.Draw
@@ -109,7 +110,7 @@ defaultWeapon = defaultItem
 defaultBulletWeapon :: Item
 defaultBulletWeapon = defaultWeapon 
     & itConsumption .~ defaultBulletLoadable 
-    & itUse .~ defaultrUse
+    & itUse . rUse .~ useAmmoParams Nothing
 
 defaultItemValue :: ItemValue
 defaultItemValue = ItemValue 10 MundaneItem