Work on cleaning up item effects/attachments etc

src/Dodge/Data/Item/Params.hs

@@ -13,6 +13,12 @@ import Geometry.Data
 
 data ItemParams
     = NoParams
+    | MagShieldParams
+        {_magShieldMgMIX :: Maybe Int}
+    | ShrinkGunParams
+        {_shrinkGunStatus :: ShrinkGunStatus}
+    | FlatShieldParams
+        {_flatShieldWlMIX :: Maybe Int}
     | ShellLauncher
         { _shellSpinDrag :: Int
         , _shellSpinAmount :: Int
@@ -62,13 +68,12 @@ data ItemParams
     | BoostPropIX {_boostPropIX :: Maybe Int}
     deriving (Eq, Ord, Show, Read)
 
-
+data ShrinkGunStatus = FullSize | Shrunk
+    deriving (Eq, Ord, Show, Read)
 
 data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
     deriving (Eq, Ord, Show, Read)
 
-
-
 data GunBarrels
     = MultiBarrel
         { _brlSpread :: BarrelSpread
@@ -82,8 +87,6 @@ data GunBarrels
     | SingleBarrel {_brlInaccuracy :: Float}
     deriving (Eq, Ord, Show, Read)
 
-
-
 data Nozzle = Nozzle
     { _nzPressure :: Float
     , _nzDir :: Float
@@ -94,21 +97,18 @@ data Nozzle = Nozzle
     }
     deriving (Eq, Ord, Show, Read)
 
-
-
 data BarrelSpread
     = AlignedBarrels
     | SpreadBarrels {_spreadAngle :: Float}
     | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}
     deriving (Eq, Ord, Show, Read)
 
-
-
 makeLenses ''BarrelSpread
 makeLenses ''ItemParams
 makeLenses ''Nozzle
 makeLenses ''GunBarrels
 deriveJSON defaultOptions ''ItemParams
+deriveJSON defaultOptions ''ShrinkGunStatus
 deriveJSON defaultOptions ''PreviousArcEffect
 deriveJSON defaultOptions ''GunBarrels
 deriveJSON defaultOptions ''Nozzle