Cleanup

2024-11-17 13:03:46 +00:00
parent 5b6c356bab
commit d5be125a3b
13 changed files with 156 additions and 169 deletions
@@ -38,7 +38,7 @@ drawOptions ::
    -- | Title
    String ->
    Maybe Int ->
-    SelectionList a ->
+    [SelectionItem a] ->
    Picture
 drawOptions ldps cfig title msel sl =
    darkenBackground cfig
@@ -46,7 +46,7 @@ drawOptions ldps cfig title msel sl =
        <> drawSelectionList ldps cfig sl
        <> translateScreenPos cfig (ldps ^. ldpPos) (drawCursorAt
                msel
-                (sl ^. slItems)
+                sl
                ldps
                (BoundaryCursor [North, South])
                )