Tweak inventory display

2025-01-05 15:55:34 +00:00
parent 2f30163c2f
commit ba5c6178c6
2 changed files with 4 additions and 6 deletions
@@ -196,12 +196,12 @@ selSecYint i j sss = do
        . fst
        $ IM.split j (ss ^. ssItems)
  where
-    secpos = sum . fmap (length . _ssShownItems) . fst $ IM.split i sss
+    secpos = sum . fmap _ssShownLength . fst $ IM.split i sss

 inverseSelSecYint :: Int -> IM.IntMap (SelectionSection a) -> Maybe (Int, Int)
 inverseSelSecYint yint sss = do
    ((i, ss), othersss) <- IM.minViewWithKey sss
-    let l = length $ _ssShownItems ss
+    let l = _ssShownLength ss
    if l <= yint
        then inverseSelSecYint (yint - l) othersss
        else do