Distinguish between selected item and root-selected item

src/Dodge/Data/Item/HeldUse.hs

@@ -23,8 +23,8 @@ data Huse
     | HeldDetectorEffect Detector
 --    | HeldTeslaArc
 --    | HeldLaser
-    | HeldCircleLaser
-    | HeldDualLaser
+--    | HeldCircleLaser
+--    | HeldDualLaser
     | HeldTractor
     | HeldForceField
     | HeldShatter

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

@@ -30,7 +30,7 @@ data NearbyManipulation
 
 data InventoryManipulation
     = SortInventory
-    | SelItem { _ispItem :: Int, _iselAction :: InvSelAction}
+    | SelectedItem { _imSelectedItem :: Int, _imRootItem :: Int}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data InvSelAction