From 5416e9b708898f48fa4bb39daf648a52c658a316 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@iki.fi>
Date: Thu, 1 Oct 2026 21:57:47 +0300
Subject: [PATCH] Safer default

---
 src/HomeAssistant/Controller/Bedroom.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/HomeAssistant/Controller/Bedroom.hs b/src/HomeAssistant/Controller/Bedroom.hs
index e447411..7437484 100644
--- a/src/HomeAssistant/Controller/Bedroom.hs
+++ b/src/HomeAssistant/Controller/Bedroom.hs
@@ -58,7 +58,7 @@ newtype Snapshot = Snapshot { getSnapshot :: Map T.Text LightObservation }
   deriving Serialize via (Map T.Text LightObservation)
 
 lightLevel :: HASS (Event Value) Int
-lightLevel = entityRead "sensor.presence_sensor_bedroom_light_level" >>> AFRP.hold 15
+lightLevel = entityRead "sensor.presence_sensor_bedroom_light_level" >>> AFRP.hold 1
 
 bedroomPresenceController :: HASS (Event Value) ()
 bedroomPresenceController = proc x -> do