Debounce instead of delay

src/HomeAssistant/Controller/Bedroom.hs

@@ -133,8 +133,9 @@ waitFor n = duration >>> arr (> n) >>> edge
 
 delayedDoor :: HASS (Event Value) (Event DoorState)
 delayedDoor = door
-  >>> (AFRP.hold Open &&& AFRP.delayEvent 15)
-  >>> AFRP.sample
+  >>> AFRP.debounce 15
+  >>> AFRP.hold Open
+  >>> AFRP.changes
   >>> traceEvent
 
 humidifierController :: HASS (Event Value) ()