Replace length . _siPictures with _siHeight

2025-01-05 17:31:37 +00:00
parent 27ffeb3a5a
commit 57d36855d8
4 changed files with 41 additions and 50 deletions
@@ -178,7 +178,7 @@ ssLookupGE' i sss = do
        Nothing -> ssLookupGT' i' sss

 selSecSelSize :: Int -> Int -> IM.IntMap (SelectionSection a) -> Maybe Int
-selSecSelSize i j = fmap length . (^? ix i . ssItems . ix j . siPictures)
+selSecSelSize i j = (^? ix i . ssItems . ix j . siHeight)

 -- need to check that the vertical gap is correctly put in here
 posSelSecYint :: Configuration -> ListDisplayParams -> Float -> Int