Commit before changing ItemUse into single product type

src/Dodge/Data/Item/Use.hs

@@ -41,14 +41,8 @@ data ItemUse
         , _heldParams :: HeldParams
         , _heldTriggerType :: TriggerType
         , _useCondition :: UseCondition
+        , _useFocus :: UseFocus
         }
---    | UseHotkey
---        { _leftUse :: Luse
---        , _leftDelay :: UseDelay
---        , _leftHammer :: HammerPosition
---        , _uequipEffect :: EquipEffect
---        , _leftConsumption :: LeftConsumption
---        }
     | UseConsume { _cUse :: Cuse }
     | UseEquip { _uequipEffect :: EquipEffect }
     | UseAttach {_uaParams :: AttachParams}
@@ -57,6 +51,11 @@ data ItemUse
     | UseBulletMod { _ubMod :: BulletMod }
     deriving (Eq, Show, Read)
 
+data UseFocus
+    = UseFromRoot
+    | UseFromLocation
+    deriving (Eq, Show, Read)
+
 data UseCondition
     = MustBeHeld
     | UseableAnytime
@@ -204,6 +203,8 @@ makeLenses ''AmmoParams
 makeLenses ''MuzzleEffect
 makeLenses ''AmmoPerShot
 makeLenses ''UseCondition
+makeLenses ''UseFocus
+deriveJSON defaultOptions ''UseFocus
 deriveJSON defaultOptions ''UseCondition
 deriveJSON defaultOptions ''MuzzleEffect
 deriveJSON defaultOptions ''FlareType