Move towards unifying (your) creature manipulation with selection

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

@@ -12,10 +12,10 @@ import Data.Aeson
 import Data.Aeson.TH
 --import Sound.Data
 
-data Manipulation -- should be ManipulatedObject?
-    = Manipulator {_manObject :: ManipulatedObject }
-    | Brute
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--data Manipulation -- should be ManipulatedObject?
+--    = Manipulator {_manObject :: ManipulatedObject }
+--    | Brute
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ManipulatedObject
     = SortInventory
@@ -33,6 +33,6 @@ data ManipulatedObject
      deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''ManipulatedObject
-makeLenses ''Manipulation
+--makeLenses ''Manipulation
 deriveJSON defaultOptions ''ManipulatedObject
-deriveJSON defaultOptions ''Manipulation
+--deriveJSON defaultOptions ''Manipulation