Remove cursor type from ListDisplayParams

src/Dodge/Data/SelectionList.hs

@@ -19,10 +19,13 @@ data ListDisplayParams = ListDisplayParams
     { _ldpPos :: ScreenPos
     , _ldpScale :: Float
     , _ldpVerticalGap :: Float
-    , _ldpCursorSides :: [CardinalPoint]
     , _ldpWidth :: SelectionWidth
     }
 
+data CursorDisplay = CursorDisplay
+    { _cursSides :: [CardinalPoint]
+    }
+
 data SelectionList a = SelectionList
     { _slItems :: [SelectionItem a]
     , _slSelPos :: Maybe Int
@@ -67,10 +70,6 @@ data SelectionWidth
     | VariableSelectionWidth (Int -> Int)
     | UseMaxSelectionItemWidth
 
-data CursorType
-    = NoCursor
-    | BorderCursor [CardinalPoint]
-
 data SelectionItem a
     = SelectionItem
         { _siPictures :: [String]
@@ -95,6 +94,7 @@ makeLenses ''SelectionSection
 makeLenses ''SelectionSections
 makeLenses ''SSSExtra
 makeLenses ''SectionCursor
+makeLenses ''CursorDisplay
 
 --deriveJSON defaultOptions ''SelectionItem
 --deriveJSON defaultOptions ''SelectionList