diff --git a/src/Dodge/Default/Weapon.hs b/src/Dodge/Default/Weapon.hs index 2b55bc25f..c283d27e6 100644 --- a/src/Dodge/Default/Weapon.hs +++ b/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