I don't need these log lines anymore
This commit is contained in:
@@ -64,10 +64,6 @@ bedroomPresenceController :: HASS (Event Value) ()
|
|||||||
bedroomPresenceController = proc x -> do
|
bedroomPresenceController = proc x -> do
|
||||||
p <- presenceLightEvents >>> traceEvent -< x
|
p <- presenceLightEvents >>> traceEvent -< x
|
||||||
capped <- lightLevel >>> arr (< 4) -< 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
|
snap <- (doSnapshot &&& bedroomLightStatus) >>> AFRP.snapshot M.empty >>> arr Snapshot -< x
|
||||||
-- This line is just for debugging
|
-- This line is just for debugging
|
||||||
_ <- AFRP.changes >>> traceEvent -< snap
|
_ <- AFRP.changes >>> traceEvent -< snap
|
||||||
|
|||||||
Reference in New Issue
Block a user