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