More
This commit is contained in:
@@ -57,6 +57,7 @@ bedroomPresenceController = proc x -> do
|
|||||||
callService (light bedroomLights Off) -< ()
|
callService (light bedroomLights Off) -< ()
|
||||||
Event LightsOn -> do
|
Event LightsOn -> do
|
||||||
sleepMode -< False
|
sleepMode -< False
|
||||||
|
adaptiveMode -< False
|
||||||
callService (activateScene "scene.makuuhuone_lights_snapshot") -< ()
|
callService (activateScene "scene.makuuhuone_lights_snapshot") -< ()
|
||||||
Event LightsSleep -> do
|
Event LightsSleep -> do
|
||||||
callService createBedroomScene -< ()
|
callService createBedroomScene -< ()
|
||||||
|
|||||||
Reference in New Issue
Block a user