Refactor, try to limit dependencies

src/Dodge/Default/Item/Use/AimParams.hs

@@ -0,0 +1,14 @@
+module Dodge.Default.Item.Use.AimParams where
+
+import Dodge.Data.Item.Use
+
+defaultAimParams :: AimParams
+defaultAimParams =
+    AimParams
+        { _aimWeight = 0
+        , _aimRange = 0
+        , _aimZoom = ItZoom 20 0.2 1
+        , _aimStance = OneHand
+        , _aimHandlePos = 10
+        , _aimMuzPos = 20
+        }

src/Dodge/Default/Item/Use/Consumption.hs

@@ -0,0 +1,22 @@
+module Dodge.Default.Item.Use.Consumption where
+import Dodge.Item.Weapon.Bullet
+import Dodge.Reloading.Action
+import Dodge.Data.Item.Use.Consumption
+import Control.Lens
+
+defaultLoadable :: HeldConsumption
+defaultLoadable =
+    LoadableAmmo
+        { _laAmmoType = GenericAmmo
+        , _laMax = 15
+        , _laLoaded = 0
+        , _laPrimed = True
+        , _laCycle = [loadEject 10, loadInsert 10, loadPrime 10]
+        , _laProgress = Nothing
+        }
+
+defaultBulletLoadable :: HeldConsumption
+defaultBulletLoadable = defaultLoadable & laAmmoType .~ basicBullet
+
+defaultLeftLoadable :: LeftConsumption
+defaultLeftLoadable = AutoRecharging 10 10 100 100

src/Dodge/Default/Item/Use/Equipment.hs

@@ -0,0 +1,15 @@
+module Dodge.Default.Item.Use.Equipment where
+
+import Dodge.Data.Item.HeldUse
+import Dodge.Data.Item.Use.Equipment
+
+defaultEquip :: EquipEffect
+defaultEquip =
+    EquipEffect
+        { _eeSite = GoesOnSpecial
+        , _eeUse = EDoNothing
+        , _eeOnEquip = EDoNothing
+        , _eeOnRemove = EDoNothing
+        , _eeParams = NoEquipParams
+        , _eeViewDist = Nothing
+        }