Debounce instead of delay

2026-08-25 10:47:38 +03:00
parent d341270ed1
commit 2664ca67c0
2 changed files with 30 additions and 6 deletions
@@ -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) ()