Cleanup. Probable leak when inventory is large enough for scrolling

src/Dodge/Data/Item/Params.hs

@@ -12,10 +12,8 @@ import Dodge.Data.ArcStep
 
 data ItemParams
     = NoParams
-    | MagShieldParams
-        {_magShieldMgMIX :: Maybe Int}
-    | ShrinkGunParams
-        {_shrinkGunStatus :: ShrinkGunStatus}
+--    | MagShieldParams
+--        {_magShieldMgMIX :: Maybe Int}
     | FlatShieldParams
         {_flatShieldWlMIX :: Maybe Int}
     | Arcing
@@ -25,8 +23,8 @@ data ItemParams
         , _newArcStep :: NextArcStep --ItemParams -> World -> ArcStep -> State StdGen (Maybe ArcStep)
         , _previousArcEffect :: PreviousArcEffect
         }
-    | ParamMID {_paramMID :: Maybe Int}
-    | BoostPropIX {_boostPropIX :: Maybe Int}
+--    | ParamMID {_paramMID :: Maybe Int}
+--    | BoostPropIX {_boostPropIX :: Maybe Int}
 
 data ShrinkGunStatus = FullSize | Shrunk
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)