Remove consumable records

src/Dodge/Data/Item/Use.hs

@@ -39,11 +39,6 @@ data ItemUse
         }
     deriving (Eq, Show, Read)
 
-data UseFocus
-    = UseFromRoot
-    | UseFromLocation
-    deriving (Eq, Show, Read)
-
 data AttachParams
     = APProjectiles {_apProjectiles :: [Int]}
     | APInt {_apInt :: Int}
@@ -60,10 +55,7 @@ data AmmoParams
 makeLenses ''ItemUse
 makeLenses ''AttachParams
 makeLenses ''AmmoParams
---makeLenses ''UseCondition
-makeLenses ''UseFocus
---deriveJSON defaultOptions ''UseFocus
---deriveJSON defaultOptions ''UseCondition
-deriveJSON defaultOptions ''AmmoParams
+--makeLenses ''UseFocus
+--deriveJSON defaultOptions ''AmmoParams
 deriveJSON defaultOptions ''AttachParams
 deriveJSON defaultOptions ''ItemUse

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

@@ -18,8 +18,7 @@ import Dodge.Data.Item.Use.Consumption.Ammo
 import Dodge.Data.Item.Use.Consumption.LoadAction
 
 data ReloadStatus = ReloadStatus
-    { _iaMax :: Int
-    , _iaLoaded :: Int
+    { _iaLoaded :: Int
     }
     deriving (Eq, Show, Read) --Generic, Flat)