Start simplifying buttons

2025-06-25 15:16:11 +01:00
parent ab1b939e3d
commit bf0bc22720
8 changed files with 16 additions and 11 deletions
@@ -27,8 +27,8 @@ flipSwitch oneff offeff bt
        doWdWd offeff . dosound
            . over (cWorld . lWorld . buttons . ix (_btID bt)) turnoff
  where
-    turnon = (btState .~ BtOn) . (btText .~ "SWITCH\\")
-    turnoff = (btState .~ BtOff) . (btText .~ "SWITCH/")
+    turnon = (btState .~ BtOn)
+    turnoff = (btState .~ BtOff)
    dosound = soundWithStatus ToStart (LeverSound 0) (_btPos bt) click1S Nothing

 --    switchEffect b = case _btState b of