Cleanup

2025-09-19 20:39:17 +01:00
parent d4f2cdd3fd
commit b837e6a798
9 changed files with 268 additions and 345 deletions
@@ -34,9 +34,6 @@ data HUD = HUD
    , _diSelection :: Maybe Selection
    , _diInvFilter :: Maybe String
    , _diCloseFilter :: Maybe String
-    , _carteCenter :: Point2
-    , _carteZoom :: Float
-    , _carteRot :: Float
    , _closeItems :: [NewInt ItmInt]
    , _closeButtons :: [Int]
    }
@@ -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