Remove consumable records

src/Dodge/Data/Item.hs

@@ -33,21 +33,17 @@ data Consumables
     = NoConsumables
     | AmmoMag
         { _magLoadStatus :: ReloadStatus
-        , _magParams :: AmmoParams
---        , _magType :: AmmoType
         }
     deriving (Eq, Show, Read)
 
 data Item = Item
     { _itUse :: ItemUse
---    , _itUseCondition :: UseCondition
-    , _itConsumables :: Consumables
+    , _itConsumables :: Maybe Int
     , _itType :: ItemType
     , _itID :: NewInt ItmInt
     , _itLocation :: ItemLocation
     , _itEffect :: ItEffect
     , _itTargeting :: ItemTargeting
---    , _itAmmoSlots :: IM.IntMap AmmoType
     , _itParams :: ItemParams
     , _itScroll :: ItemScroll
     , _itTimeLastUsed :: Int