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
@@ -13,7 +13,7 @@ doButtonEvent = \case
    ButtonPress False f _ -> buttonFlip f
    ButtonSwitch _ f _ _ True -> buttonFlip f
    ButtonSwitch f _ _ _ False -> buttonFlip f
-    ButtonAccessTerminal -> accessTerminal . _btTermMID
+    ButtonAccessTerminal tid -> const $ accessTerminal tid

 buttonFlip :: WdWd -> Button -> World -> World
 buttonFlip f bt =