Allow shadow fidelity option, fix bug in rendering box shadows

src/Dodge/Data/Item/Use.hs

@@ -42,6 +42,7 @@ data ItemUse
         , _leftHammer :: HammerPosition
         , _equipEffect :: EquipEffect
         , _leftConsumption :: LeftConsumption
+        , _leftUseOnEquip :: Bool
         }
     | ConsumeUse
         { _cUse :: Cuse
@@ -55,6 +56,16 @@ data ItemUse
         {_useAmount :: ItAmount}
     --deriving (Eq, Show, Read) --Generic, Flat)
 
+data ItemUse' 
+    = ItemHeld HeldUse'
+    | ItemEquip EquipUse'
+    | ItemConsume ConsumeUse'
+    | ItemCraft Int
+
+data HeldUse' = HeldUse'
+data EquipUse' = EquipUse'
+data ConsumeUse' = ConsumeUse'
+
 data AimParams = AimParams
     { _aimWeight :: Int
     , _aimTurnSpeed :: Float