Centralise mouse context data

2024-11-10 18:26:30 +00:00
parent f35dfc66bd
commit 713d3e3265
10 changed files with 123 additions and 125 deletions
@@ -18,8 +18,8 @@ data PressType

 data MouseContext
    = NoMouseContext
-    | OverInv (Int,Int)
-    | OverCombInv (Int,Int)
+    | OverInv { _mcoInv :: (Int,Int)}
+    | OverCombInv { _mcoCombInv :: (Int,Int)}
    | OverTerminalScreen

 data Input = Input
@@ -51,3 +51,4 @@ data TermSignal
    | TSdown

 makeLenses ''Input
+makeLenses ''MouseContext