More

src/HomeAssistant/Controller/Bedroom.hs

@@ -57,6 +57,7 @@ bedroomPresenceController = proc x -> do
          callService (light bedroomLights Off) -< ()
        Event LightsOn -> do
          sleepMode -< False
+         adaptiveMode -< False
          callService (activateScene "scene.makuuhuone_lights_snapshot") -< ()
        Event LightsSleep -> do
          callService createBedroomScene -< ()