Fix switch detection, cleanup

2025-06-25 21:49:11 +01:00
parent a9cae4d409
commit 2f130c5bed
8 changed files with 13 additions and 32 deletions
@@ -232,7 +232,6 @@ closeButtonToSelectionItem w i = do

 btText :: Button -> String
 btText bt = case _btEvent bt of
-    ButtonDoNothing -> "UNPRESSABLE BUTTON"
    ButtonPress {} -> "BUTTON"
    ButtonSwitch {_btOn = t} -> case t of
        True -> "SWITCH\\"