Partially working change to selected items

2023-02-07 12:07:13 +00:00
parent 5f7d662454
commit c354949ca9
27 changed files with 386 additions and 288 deletions
@@ -97,8 +97,8 @@ data Intention = Intention

 --deriving (Eq, Show, Read) --Generic, Flat)

-crSel :: Creature -> Int
-crSel = _iselPos . _crInvSel
+crSel :: Creature -> ManipulatedObject
+crSel = _isel . _crInvSel

 makeLenses ''Creature
 makeLenses ''CreatureTargeting