Partial inventory display update

src/Dodge/Data/Item/Use/Consumption/LoadAction.hs

@@ -17,11 +17,17 @@ data LoadAction
     | LoadPrime {_actionTime :: Int, _actionSound :: SoundID}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data InvSel 
+data InvSel -- should be ManipulatedObject?
     = InvSel {_iselPos :: Int, _iselAction :: InvSelAction}
     | Brute
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data SelPos
+    = SelItem Int
+    | SelNothing
+    | SelCloseObject Int
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
 data InvSelAction
     = NoInvSelAction
     | ReloadAction {_actionProgress :: Int, _reloadAction :: LoadAction}