Work on inventory management

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

@@ -17,9 +17,9 @@ data LoadAction
     | LoadPrime {_actionTime :: Int, _actionSound :: SoundID}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data InvSel -- should be ManipulatedObject?
+data Manipulation -- should be ManipulatedObject?
     -- = InvSel {_isel :: SelPos}
-    = InvSel {_isel :: ManipulatedObject}
+    = Manipulator {_isel :: ManipulatedObject}
     | Brute
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
@@ -42,11 +42,11 @@ data LeftInvSel = LeftInvSel
 
 makeLenses ''LoadAction
 makeLenses ''ManipulatedObject
-makeLenses ''InvSel
+makeLenses ''Manipulation
 makeLenses ''LeftInvSel
 makeLenses ''InvSelAction
 deriveJSON defaultOptions ''LoadAction
 deriveJSON defaultOptions ''InvSelAction
 deriveJSON defaultOptions ''ManipulatedObject
-deriveJSON defaultOptions ''InvSel
+deriveJSON defaultOptions ''Manipulation
 deriveJSON defaultOptions ''LeftInvSel