Work on inventory ui

src/Dodge/SelectionSections.hs

@@ -4,7 +4,7 @@ module Dodge.SelectionSections (
     ssLookupGT,
     ssSetCursor,
     setFirstPosSelectionSections,
-    selSecSelPos,
+    selSecYint,
     selSecSelSize,
 ) where
 
@@ -124,8 +124,8 @@ ssLookupGE' i sss = do
 selSecSelSize :: Int -> Int -> SelectionSections a -> Maybe Int
 selSecSelSize i j sss = fmap length $ sss ^? sssSections . ix i . ssItems . ix j . siPictures
 
-selSecSelPos :: Int -> Int -> SelectionSections a -> Maybe Int
-selSecSelPos i j sss = do
+selSecYint :: Int -> Int -> SelectionSections a -> Maybe Int
+selSecYint i j sss = do
     ss <- sss ^? sssSections . ix i
     return . (secpos +)
         . subtract (ss ^. ssOffset)