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)