Cleanup

2024-11-17 13:03:46 +00:00
parent 5b6c356bab
commit d5be125a3b
13 changed files with 156 additions and 169 deletions
@@ -21,11 +21,6 @@ data CursorDisplay
    = BoundaryCursor {_cursSides :: [CardinalPoint]}
    | BackdropCursor

-data SelectionList a = SelectionList
-    { _slItems :: [SelectionItem a]
--    , _slSelPos :: Maybe Int
-    }
-
 data SectionCursor = SectionCursor
    { _scurPos :: Int
    , _scurSize :: Int
@@ -66,7 +61,6 @@ data SelectionItem a
        }

 makeLenses ''ListDisplayParams
-makeLenses ''SelectionList
 makeLenses ''SelectionItem
 makeLenses ''SelectionSection
 makeLenses ''SectionCursor