Work on inventory management

src/Dodge/Data/Creature.hs

@@ -49,7 +49,7 @@ data Creature = Creature
     , _crHP :: Int
     , _crMaxHP :: Int
     , _crInv :: IM.IntMap Item
-    , _crInvSel :: InvSel
+    , _crManipulation :: Manipulation
     , _crInvCapacity :: Int
     , _crInvLock :: Bool
     , _crInvEquipped :: IM.IntMap EquipPosition
@@ -98,7 +98,7 @@ data Intention = Intention
 --deriving (Eq, Show, Read) --Generic, Flat)
 
 crSel :: Creature -> ManipulatedObject
-crSel = _isel . _crInvSel
+crSel = _isel . _crManipulation
 
 makeLenses ''Creature
 makeLenses ''CreatureTargeting