From 9e00aeb6a28cdad1cb6353f109e0948d82419c73 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@iki.fi>
Date: Tue, 29 Sep 2026 23:52:46 +0300
Subject: [PATCH] Rename entity-list and snapshot helpers for consistency

---
 src/HomeAssistant/Controller/Bedroom.hs    | 14 +++++++-------
 src/HomeAssistant/Controller/Livingroom.hs |  8 ++++----
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/HomeAssistant/Controller/Bedroom.hs b/src/HomeAssistant/Controller/Bedroom.hs
index 88e4017..5c2ed8b 100644
--- a/src/HomeAssistant/Controller/Bedroom.hs
+++ b/src/HomeAssistant/Controller/Bedroom.hs
@@ -19,8 +19,8 @@ import Data.Default (def)
 
 
 
-bedroomLights :: [Target]
-bedroomLights = map EntityId ["light.bedroom_masse","light.bedroom_jemina","light.bedroom_ceiling","light.bedroom_led_switch"]
+bedroomLightTargets :: [Target]
+bedroomLightTargets = map EntityId ["light.bedroom_masse","light.bedroom_jemina","light.bedroom_ceiling","light.bedroom_led_switch"]
 
 createBedroomScene :: Service
 createBedroomScene = Service
@@ -28,7 +28,7 @@ createBedroomScene = Service
   , serviceName= "create"
   , serviceData= Just $ object
       [ "scene_id" .= ("makuuhuone_lights_snapshot" :: T.Text)
-      , "snapshot_entities" .= [l | EntityId l <- bedroomLights]
+      , "snapshot_entities" .= [l | EntityId l <- bedroomLightTargets]
       ]
   , serviceTarget= []
   }
@@ -50,16 +50,16 @@ presenceLightEvents =
     offEvent = arr not >>> AFRP.waitFor 300 >>> arr (AFRP.tag LightingOff)
 
 
-bedroomLightsSignal :: HASS (Event Value) (Map T.Text LightSnapshot)
-bedroomLightsSignal = M.fromList <$> traverse (\e -> (e,) <$> observedLight e) [e | EntityId e <- bedroomLights]
+bedroomLightSnapshots :: HASS (Event Value) (Map T.Text LightSnapshot)
+bedroomLightSnapshots = M.fromList <$> traverse (\e -> (e,) <$> observedLight e) [e | EntityId e <- bedroomLightTargets]
 
 bedroomPresenceController :: HASS (Event Value) ()
 bedroomPresenceController = proc x -> do
   p <- presenceLightEvents >>> traceEvent -< x
-  snap <- (doSnapshot &&& bedroomLightsSignal) >>> AFRP.snapshot M.empty >>> traceValue -< x
+  snap <- (doSnapshot &&& bedroomLightSnapshots) >>> AFRP.snapshot M.empty >>> traceValue -< x
   case p of
        Event LightingOff -> do
-         callService (light bedroomLights Off) -< ()
+         callService (light bedroomLightTargets Off) -< ()
        Event LightingOn -> do
          -- callService (activateSceneWith "scene.makuuhuone_lights_snapshot" transition) -< ()
          callServicesDyn (concatMap (uncurry toLight)) -< M.toList snap
diff --git a/src/HomeAssistant/Controller/Livingroom.hs b/src/HomeAssistant/Controller/Livingroom.hs
index c6213d5..9d4c035 100644
--- a/src/HomeAssistant/Controller/Livingroom.hs
+++ b/src/HomeAssistant/Controller/Livingroom.hs
@@ -31,16 +31,16 @@ livingroomPresence = presence "binary_sensor.occupancy_olohuone_derived" >>> AFR
 -- With that in mind, I'll be explicitly controlling the two lights, without any scene shenanigans
 
 
-lights :: [Target]
-lights = [EntityId "light.livingroom_ceiling", EntityId "light.livingroom_sofa"]
+livingroomLightTargets :: [Target]
+livingroomLightTargets = [EntityId "light.livingroom_ceiling", EntityId "light.livingroom_sofa"]
 
 livingroomPresenceController :: HASS (AFRP.Event Value) ()
 livingroomPresenceController = proc x -> do
   ev <- lightingModeEvents . livingroomPresence -< x
   traceEvent -< ev
   case ev of
-       AFRP.Event LightingOn -> callServiceDyn (light lights) -< On def
-       AFRP.Event LightingOff -> callServiceDyn (light lights) -< Off
+       AFRP.Event LightingOn -> callServiceDyn (light livingroomLightTargets) -< On def
+       AFRP.Event LightingOff -> callServiceDyn (light livingroomLightTargets) -< Off
        _ -> returnA -< ()
   returnA -< ()