Remove SelectionSections

src/Dodge/Render/List.hs

@@ -14,6 +14,7 @@ module Dodge.Render.List (
     selSecDrawCursorAt,
 ) where
 
+import qualified Data.IntMap.Strict as IM
 import Data.Maybe
 import Dodge.Base.Window
 import Dodge.Data.CardinalPoint
@@ -86,13 +87,13 @@ selSecDrawCursorAt ::
     Int ->
     ListDisplayParams ->
     CursorDisplay ->
-    SelectionSections a ->
+    IM.IntMap (SelectionSection a) ->
     (Int, Int) ->
     Picture
 selSecDrawCursorAt xsize ldp curs sss (i, j) = fromMaybe mempty $ do
     yint <- selSecYint i j sss
-    xint <- sss ^? sssSections . ix i . ssIndent
-    si <- sss ^? sssSections . ix i . ssItems . ix j
+    xint <- sss ^? ix i . ssIndent
+    si <- sss ^? ix i . ssItems . ix j
     return $
         listCursorChooseBorderScale
             (ldp ^. ldpVerticalGap)
@@ -108,7 +109,7 @@ selSecDrawCursor ::
     Int ->
     ListDisplayParams ->
     CursorDisplay ->
-    SelectionSections a ->
+    IM.IntMap (SelectionSection a) ->
     Maybe (Int, Int) ->
     Picture
 selSecDrawCursor xsize ldp curs = maybe mempty . selSecDrawCursorAt xsize ldp curs