The center button also disables sleep mode
This commit is contained in:
@@ -111,6 +111,8 @@ bedroomButtonController = proc x -> do
|
|||||||
Event (Enishen (OffButton _)) -> do
|
Event (Enishen (OffButton _)) -> do
|
||||||
sleepMode -< False
|
sleepMode -< False
|
||||||
callService (light [AreaId "makuuhuone"] Off) -< ()
|
callService (light [AreaId "makuuhuone"] Off) -< ()
|
||||||
|
Event (Central _) -> do
|
||||||
|
sleepMode -< False
|
||||||
_ -> returnA -< ()
|
_ -> returnA -< ()
|
||||||
where
|
where
|
||||||
sleepMode = callServiceDyn (switch [EntityId "switch.adaptive_lighting_makuuhuoneen_valot_sleep_mode"] )
|
sleepMode = callServiceDyn (switch [EntityId "switch.adaptive_lighting_makuuhuoneen_valot_sleep_mode"] )
|
||||||
|
|||||||
Reference in New Issue
Block a user