I don't need these log lines anymore

2026-10-01 21:16:23 +03:00
parent 6bcab1a0d8
commit 38d575d716
1 changed files with 0 additions and 4 deletions
@@ -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