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
@@ -81,7 +81,7 @@ data ScreenLayer
        , _scOffset :: Int
        , _scPositionedMenuOption :: EscapeMenuOption
        , _scOptionFlag :: OptionScreenFlag
-        , _scSelectionList :: SelectionList (Universe -> Universe,Universe->Universe)
+        , _scSelectionList :: [SelectionItem (Universe -> Universe,Universe->Universe)]
        , _scAvailableLines :: Int
        , _scListDisplayParams :: ListDisplayParams
        , _scDisplayTime :: Int