Remove equipment records

src/Dodge/Data/Item/Params.hs

@@ -12,14 +12,13 @@ import Dodge.Data.ArcStep
 
 data ItemParams
     = NoParams
-    | FlatShieldParams
-        {_flatShieldWlMIX :: Maybe Int}
-    | Arcing
-        { _currentArc :: [ArcStep]}
+    | FlatShieldParams {_flatShieldWlMIX :: Maybe Int}
+    | Arcing { _currentArc :: [ArcStep]}
     | NozzleAngle {_nzAngle :: Float}
     | VolleyUnfiredBarrels {_unfiredBarrels :: [Int]}
     | AlteRifleSwitch {_alteRifleSwitch :: Int}
     | WarmTime {_wTime :: Int}
+    | ItemParamID {_itParamID :: Int}
 
 data ShrinkGunStatus = FullSize | Shrunk
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)

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

@@ -17,8 +17,8 @@ data EquipEffect = EquipEffect
     { _eeUse :: Euse --Item -> Creature -> World -> World
     , _eeOnEquip :: ItmCrWdWd --Item -> Creature -> World -> World
     , _eeOnRemove :: ItmCrWdWd --Item -> Creature -> World -> World
-    , _eeParams :: EquipParams
-    , _eeViewDist :: Maybe Float
+--    , _eeParams :: EquipParams
+--    , _eeViewDist :: Maybe Float
 --    , _eeAttachPos :: Point3
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
@@ -30,15 +30,15 @@ data ItmCrWdWd
     | EoffWristShield
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data EquipParams
-    = NoEquipParams
-    | EquipID {_eparamID :: Int}
-    | EquipCounter {_eparamInt :: Int}
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--data EquipParams
+--    = NoEquipParams
+----    | EquipID {_eparamID :: Int}
+----    | EquipCounter {_eparamInt :: Int}
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''EquipEffect
-makeLenses ''EquipParams
+--makeLenses ''EquipParams
 makeLenses ''ItmCrWdWd
 deriveJSON defaultOptions ''ItmCrWdWd
-deriveJSON defaultOptions ''EquipParams
+--deriveJSON defaultOptions ''EquipParams
 deriveJSON defaultOptions ''EquipEffect