@effect-atom/atom 0.1.14 → 0.1.16

package/src/Result.ts

@@ -288,12 +288,28 @@ export const failWithPrevious = <A, E>(
  * @since 1.0.0
  * @category constructors
  */
-export const waiting = <R extends Result<any, any>>(self: R): R => {
+export const waiting = <R extends Result<any, any>>(self: R, options?: {
+  readonly touch?: boolean | undefined
+}): R => {
   if (self.waiting) {
-    return self
+    return options?.touch ? touch(self) : self
   }
   const result = Object.assign(Object.create(ResultProto), self)
   result.waiting = true
+  if (options?.touch && isSuccess(result)) {
+    ;(result as any).timestamp = Date.now()
+  }
+  return result
+}
+
+/**
+ * @since 1.0.0
+ * @category combinators
+ */
+export const touch = <A extends Result<any, any>>(result: A): A => {
+  if (isSuccess(result)) {
+    return success(result.value, { waiting: result.waiting }) as A
+  }
   return result
 }
 

package/src/internal/registry.ts

@@ -477,16 +477,23 @@ function childrenAreActive(children: Array<Node<any>>): boolean {
   if (children.length === 0) {
     return false
   }
-  for (let i = 0, len = children.length; i < len; i++) {
-    const child = children[i]
-    if (!child.atom.lazy || child.listeners.length > 0) {
-      return true
-    }
-  }
-  for (let i = 0, len = children.length; i < len; i++) {
-    if (childrenAreActive(children[i].children)) {
-      return true
+  let current: Array<Node<any>> | undefined = children
+  let stack: Array<Array<Node<any>>> | undefined
+  let stackIndex = 0
+  while (current !== undefined) {
+    for (let i = 0, len = current.length; i < len; i++) {
+      const child = current[i]
+      if (!child.atom.lazy || child.listeners.length > 0) {
+        return true
+      } else if (child.children.length > 0) {
+        if (stack === undefined) {
+          stack = [child.children]
+        } else {
+          stack.push(child.children)
+        }
+      }
     }
+    current = stack?.[stackIndex++]
   }
   return false
 }