Continue inventory refactor

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

@@ -12,7 +12,6 @@ import Data.Aeson.TH
 --import Sound.Data
 
 data Manipulation -- should be ManipulatedObject?
-    -- = InvSel {_isel :: SelPos}
     = Manipulator {_manObject :: ManipulatedObject
         }
     | Brute
@@ -20,14 +19,16 @@ data Manipulation -- should be ManipulatedObject?
 
 data ManipulatedObject
     = SortInventory
-    | SelectedItem 
+    | SelectedItem
         { _imSelectedItem :: Int
         , _imRootSelectedItem :: Int
         , _imAttachedItems :: IS.IntSet
         }    
     | SelNothing
-    | SortNearby
-    | SelCloseObject {_ispCloseObject :: Int}
+    | SortCloseItem
+    | SelCloseItem {_ispCloseItem :: Int}
+    | SortCloseButton
+    | SelCloseButton {_ispCloseButton :: Int}
      deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''ManipulatedObject