diff --git a/src/HomeAssistant/Controller/Bedroom.hs b/src/HomeAssistant/Controller/Bedroom.hs index 1132987..dcbd2ec 100644 --- a/src/HomeAssistant/Controller/Bedroom.hs +++ b/src/HomeAssistant/Controller/Bedroom.hs @@ -111,6 +111,8 @@ bedroomButtonController = proc x -> do Event (Enishen (OffButton _)) -> do sleepMode -< False callService (light [AreaId "makuuhuone"] Off) -< () + Event (Central _) -> do + sleepMode -< False _ -> returnA -< () where sleepMode = callServiceDyn (switch [EntityId "switch.adaptive_lighting_makuuhuoneen_valot_sleep_mode"] )