From 38d575d716f65c0f87b074cae97b1a4b644ef6f4 Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Thu, 1 Oct 2026 21:16:23 +0300 Subject: [PATCH] I don't need these log lines anymore --- src/HomeAssistant/Controller/Bedroom.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/HomeAssistant/Controller/Bedroom.hs b/src/HomeAssistant/Controller/Bedroom.hs index 822c5fc..e447411 100644 --- a/src/HomeAssistant/Controller/Bedroom.hs +++ b/src/HomeAssistant/Controller/Bedroom.hs @@ -64,10 +64,6 @@ bedroomPresenceController :: HASS (Event Value) () bedroomPresenceController = proc x -> do p <- presenceLightEvents >>> traceEvent -< x capped <- lightLevel >>> arr (< 4) -< x - -- mode <- AFRP.hold LightingOff -< p - -- This line is just for debugging purposes - _ <- bedroomLightStatus >>> AFRP.changes >>> traceEvent -< x - _ <- lightLevel >>> AFRP.changes >>> traceEvent -< x snap <- (doSnapshot &&& bedroomLightStatus) >>> AFRP.snapshot M.empty >>> arr Snapshot -< x -- This line is just for debugging _ <- AFRP.changes >>> traceEvent -< snap