Bedroom spec and partially fix writing

LLM had done "rate limiting" via deduplicating outbound calls. But the
ordering matters..

src/HomeAssistant/Controller/Bedroom.hs

@@ -44,10 +44,10 @@ bedroomPresence = presence "binary_sensor.presence_sensor_bedroom_occupancy"
 
 bedroomPresenceController :: HASS (Event Value) ()
 bedroomPresenceController = proc x -> do
-  p <- bedroomPresence -< x
+  p <- bedroomPresence >>> traceEvent -< x
   case p of
        Event Unoccupied -> callService createBedroomScene >>> callService (light bedroomLights Off) -< ()
-       Event Occupied -> callService (activateScene "makuuhuone_lights_snapshot") -< ()
+       Event Occupied -> callService (activateScene "scene.makuuhuone_lights_snapshot") -< ()
        _ -> returnA -< ()
 
 data IkeaGesture