Simplify buttons

src/Dodge/Inventory/SelectionList.hs

@@ -234,10 +234,9 @@ btText :: Button -> String
 btText bt = case _btEvent bt of
     ButtonDoNothing -> "UNPRESSABLE BUTTON"
     ButtonPress {} -> "BUTTON"
-    ButtonSimpleSwith {} -> case _btState bt of
-        BtOn -> "SWITCH\\"
-        BtOff -> "SWITCH/"
-        BtInactive -> "INACTIVE SWITCH"
+    ButtonSwitch {_btOn = t} -> case t of
+        True -> "SWITCH\\"
+        False -> "SWITCH/"
     ButtonAccessTerminal -> "TERMINAL"
 
 closeItemToTextPictures :: FloorItem -> ([String], Color)