Remove duplicated selection/manipulation positions

Needs more testing to make sure it all works properly

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

@@ -18,18 +18,24 @@ import Data.Aeson.TH
 --    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ManipulatedObject
-    = SortInventory
-    | SelectedItem
-        { _imRootSelectedItem :: NewInt InvInt
-        , _imAimStance :: AimStance
-        , _imAttachedItems :: IS.IntSet -- this should probably be NewIntSet InvInt also
+    = HeldItem
+        { _hiRootSelectedItem :: NewInt InvInt
+        , _hiAimStance :: AimStance
+        , _hiAttachedItems :: IS.IntSet -- this should probably be NewIntSet InvInt also
         }    
-    | SelNothing
-    | SortCloseItem
-    | SelCloseItem {_ispCloseItem :: Int}
-    | SortCloseButton
-    | SelCloseButton {_ispCloseButton :: Int}
-     deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    | HandsFree
+--    = SortInventory
+--    | SelectedItem
+--        { _imRootSelectedItem :: NewInt InvInt
+--        , _imAimStance :: AimStance
+--        , _imAttachedItems :: IS.IntSet -- this should probably be NewIntSet InvInt also
+--        }    
+--    | SelNothing
+--    | SortCloseItem
+--    | SelCloseItem {_ispCloseItem :: Int}
+--    | SortCloseButton
+--    | SelCloseButton {_ispCloseButton :: Int}
+--     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''ManipulatedObject
 --makeLenses ''Manipulation