Cleanup

2025-09-19 19:56:12 +01:00
parent 2d856ddf9e
commit d4f2cdd3fd
20 changed files with 282 additions and 351 deletions
@@ -26,7 +26,7 @@ data SectionCursor = SectionCursor
    , _scurColor :: Color
    }

-data SelectionSection a = SelectionSection
+data SelSection a = SelSection
    { _ssItems :: IntMap (SelectionItem a)
    , _ssOffset :: Int
    , _ssShownItems :: [Picture]
@@ -34,7 +34,7 @@ data SelectionSection a = SelectionSection
    , _ssIndent :: Int
    }

-type IMSS a = IntMap (SelectionSection a)
+type IMSS a = IntMap (SelSection a)

 data SelectionWidth = FixedSelectionWidth Int | UseItemWidth

@@ -51,6 +51,6 @@ data SelectionItem a

 makeLenses ''ListDisplayParams
 makeLenses ''SelectionItem
-makeLenses ''SelectionSection
+makeLenses ''SelSection
 makeLenses ''SectionCursor
 makeLenses ''CursorDisplay