Allow for terminals to be deactivated

2025-08-19 13:58:57 +01:00
parent b8581a7862
commit 2f9cea1b69
9 changed files with 16 additions and 16 deletions
@@ -25,14 +25,14 @@ data ButtonEvent
        , _bsColor2 :: Color
        , _btOn :: Bool
        }
-    | ButtonAccessTerminal
+    | ButtonAccessTerminal {_btTermID :: Int}

 data Button = Button
    { _btPos :: Point2
    , _btRot :: Float
    , _btEvent :: ButtonEvent
    , _btID :: Int
-    , _btTermMID :: Maybe Int
+--    , _btTermMID :: Maybe Int
    }

 makeLenses ''Button