Start refactoring held item use

src/Dodge/Default/Weapon.hs

@@ -1,7 +1,6 @@
 module Dodge.Default.Weapon
     where
 import Dodge.Data
-import Dodge.Bullet
 import Dodge.Reloading.Action
 import Dodge.Item.Weapon.Bullet
 import Dodge.Default.Item
@@ -60,7 +59,7 @@ defaultChargeable = ChargeableAmmo 100 100
 
 defaultrUse :: ItemUse
 defaultrUse = RightUse
-    { _rUse = \_ _ -> id
+    { _rUse = HeldDoNothing
     , _useDelay = FixedRate {_rateMax = 8, _rateTime = 0}
     , _useMods = []
     , _useHammer  = HammerUp
@@ -107,7 +106,7 @@ defaultWeapon = defaultItem
 defaultBulletWeapon :: Item
 defaultBulletWeapon = defaultWeapon 
     & itConsumption .~ defaultBulletLoadable 
-    & itUse . rUse .~ useAmmoParams
+    & itUse . rUse .~ HeldUseAmmoParams -- useAmmoParams
     & itType . iyModules . at ModBullet ?~ EMPTYMODULE
     & itType . iyModules . at ModBulletSpawn ?~ EMPTYMODULE
     & itType . iyModules . at ModBulletTrajectory ?~ EMPTYMODULE