Make the 'On' button cycle between lights

This commit is contained in:
Sven van Heugten 2026-03-16 19:56:02 +01:00
parent 6e6a600e3c
commit 451d8b09f1
2 changed files with 11 additions and 3 deletions

View file

@ -124,7 +124,10 @@ type NightLightTests() =
(fun state interaction ->
match state, interaction with
| _, RemotePressedOffButton -> BothOff
| _, RemotePressedOnButton -> BothOn
| BothOff, RemotePressedOnButton -> BothOn
| BothOn, RemotePressedOnButton -> LeftOn
| LeftOn, RemotePressedOnButton -> RightOn
| RightOn, RemotePressedOnButton -> BothOn
| _, RemotePressedLeftButton -> LeftOn)
BothOn