Cleanup

2025-09-19 20:39:17 +01:00
parent d4f2cdd3fd
commit b837e6a798
9 changed files with 268 additions and 345 deletions
@@ -17,7 +17,7 @@ data ListDisplayParams = ListDisplayParams
    }

 data CursorDisplay
-    = BoundaryCursor {_cursSides :: [CardinalPoint]}
+    = BoundaryCursor [CardinalPoint]
    | BackdropCursor

 data SectionCursor = SectionCursor
@@ -53,4 +53,4 @@ makeLenses ''ListDisplayParams
 makeLenses ''SelectionItem
 makeLenses ''SelSection
 makeLenses ''SectionCursor
-makeLenses ''CursorDisplay
+makePrisms ''CursorDisplay