Work on inventory management

2023-02-16 16:12:03 +00:00
parent ff5fa6321a
commit 934dd64704
30 changed files with 129 additions and 111 deletions
@@ -21,7 +21,7 @@ import Dodge.Data.SelectionList
 import Dodge.Data.World

 updateDisplayInventory :: World -> Configuration -> SelectionSections () -> SelectionSections ()
-updateDisplayInventory w cfig sss = case cr ^? crInvSel . isel of
+updateDisplayInventory w cfig sss = case cr ^? crManipulation . isel of
    Just (SelItem i _) -> sss
        { _sssSections = updateSections availablelines (0,i) [invx ,youx, closex]
        , _sssSelPos = Just 0