Cleanup. Probable leak when inventory is large enough for scrolling

src/Dodge/Data/HUD.hs

@@ -33,7 +33,7 @@ data SubInventory
         , _ciSelection :: Maybe (Int, Int, IS.IntSet)
         , _ciFilter :: Maybe String
         }
-    | LockedInventory
+--    | LockedInventory
     | DisplayTerminal {_termID :: Int}
 
 data HUD = HUD

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)