Continue inventory work

2023-02-17 18:37:55 +00:00
parent 90133fb54b
commit 90370e5487
4 changed files with 20 additions and 56 deletions
@@ -157,7 +157,7 @@ selSecSelPos i j sss = do
        . fmap (length . _siPictures) 
        . fst $ IM.split j (ss ^. ssItems)
  where
-    secpos = sum . fmap (length . _ssItems) . fst $ IM.split i $ sss ^. sssSections
+    secpos = sum . fmap (length . _ssShownItems) . fst $ IM.split i $ sss ^. sssSections

 selNumPos :: ManipulatedObject -> World -> Maybe Int
 selNumPos mo w = w ^? hud . hudElement . diSections >>=