effect 2.3.6 → 2.3.8

package/src/internal/option.ts

@@ -31,7 +31,7 @@ const SomeProto = Object.assign(Object.create(CommonProto), {
     return isOption(that) && isSome(that) && Equal.equals(that.value, this.value)
   },
   [Hash.symbol]<A>(this: Option.Some<A>) {
-    return Hash.combine(Hash.hash(this._tag))(Hash.hash(this.value))
+    return Hash.cached(this, Hash.combine(Hash.hash(this._tag))(Hash.hash(this.value)))
   },
   toJSON<A>(this: Option.Some<A>) {
     return {
@@ -42,6 +42,7 @@ const SomeProto = Object.assign(Object.create(CommonProto), {
   }
 })
 
+const NoneHash = Hash.hash("None")
 const NoneProto = Object.assign(Object.create(CommonProto), {
   _tag: "None",
   _op: "None",
@@ -49,7 +50,7 @@ const NoneProto = Object.assign(Object.create(CommonProto), {
     return isOption(that) && isNone(that)
   },
   [Hash.symbol]<A>(this: Option.None<A>) {
-    return Hash.combine(Hash.hash(this._tag))
+    return NoneHash
   },
   toJSON<A>(this: Option.None<A>) {
     return {

package/src/internal/pool.ts

@@ -155,7 +155,8 @@ class PoolImpl<in out A, in out E> implements Pool.Pool<A, E> {
       Hash.combine(Hash.hash(this.state)),
       Hash.combine(Hash.hash(this.items)),
       Hash.combine(Hash.hash(this.invalidated)),
-      Hash.combine(Hash.hash(this.track))
+      Hash.combine(Hash.hash(this.track)),
+      Hash.cached(this)
     )
   }
 

package/src/internal/redBlackTree.ts

@@ -33,12 +33,12 @@ const redBlackTreeVariance = {
 
 const RedBlackTreeProto: RBT.RedBlackTree<unknown, unknown> = {
   [RedBlackTreeTypeId]: redBlackTreeVariance,
-  [Hash.symbol](): number {
+  [Hash.symbol](this: RBT.RedBlackTree<unknown, unknown>): number {
     let hash = Hash.hash(RedBlackTreeSymbolKey)
     for (const item of this) {
       hash ^= pipe(Hash.hash(item[0]), Hash.combine(Hash.hash(item[1])))
     }
-    return hash
+    return Hash.cached(this, hash)
   },
   [Equal.symbol]<K, V>(this: RedBlackTreeImpl<K, V>, that: unknown): boolean {
     if (isRedBlackTree(that)) {

package/src/internal/secret.ts

@@ -19,7 +19,8 @@ export const proto = {
   [Hash.symbol](this: Secret.Secret): number {
     return pipe(
       Hash.hash(SecretSymbolKey),
-      Hash.combine(Hash.array(this.raw))
+      Hash.combine(Hash.array(this.raw)),
+      Hash.cached(this)
     )
   },
   [Equal.symbol](this: Secret.Secret, that: unknown): boolean {

package/src/internal/stm/core.ts

@@ -168,7 +168,7 @@ class STMPrimitive implements STM.STM<any, any, any> {
     return this === that
   }
   [Hash.symbol](this: {}) {
-    return Hash.random(this)
+    return Hash.cached(this, Hash.random(this))
   }
   commit(this: STM.STM<any, any, any>): Effect.Effect<any, any, any> {
     return unsafeAtomically(this, constVoid, constVoid)

package/src/internal/stm/stm/stmState.ts

@@ -66,7 +66,8 @@ export const done = <A, E>(exit: Exit.Exit<A, E>): STMState<A, E> => {
       return pipe(
         Hash.hash(STMStateSymbolKey),
         Hash.combine(Hash.hash(OpCodes.OP_DONE)),
-        Hash.combine(Hash.hash(exit))
+        Hash.combine(Hash.hash(exit)),
+        Hash.cached(this)
       )
     },
     [Equal.symbol](that: unknown): boolean {
@@ -75,32 +76,36 @@ export const done = <A, E>(exit: Exit.Exit<A, E>): STMState<A, E> => {
   }
 }
 
+const interruptedHash = pipe(
+  Hash.hash(STMStateSymbolKey),
+  Hash.combine(Hash.hash(OpCodes.OP_INTERRUPTED)),
+  Hash.combine(Hash.hash("interrupted"))
+)
+
 /** @internal */
 export const interrupted: STMState<never> = {
   [STMStateTypeId]: STMStateTypeId,
   _tag: OpCodes.OP_INTERRUPTED,
   [Hash.symbol](): number {
-    return pipe(
-      Hash.hash(STMStateSymbolKey),
-      Hash.combine(Hash.hash(OpCodes.OP_INTERRUPTED)),
-      Hash.combine(Hash.hash("interrupted"))
-    )
+    return interruptedHash
   },
   [Equal.symbol](that: unknown): boolean {
     return isSTMState(that) && that._tag === OpCodes.OP_INTERRUPTED
   }
 }
 
+const runningHash = pipe(
+  Hash.hash(STMStateSymbolKey),
+  Hash.combine(Hash.hash(OpCodes.OP_RUNNING)),
+  Hash.combine(Hash.hash("running"))
+)
+
 /** @internal */
 export const running: STMState<never> = {
   [STMStateTypeId]: STMStateTypeId,
   _tag: OpCodes.OP_RUNNING,
   [Hash.symbol](): number {
-    return pipe(
-      Hash.hash(STMStateSymbolKey),
-      Hash.combine(Hash.hash(OpCodes.OP_RUNNING)),
-      Hash.combine(Hash.hash("running"))
-    )
+    return runningHash
   },
   [Equal.symbol](that: unknown): boolean {
     return isSTMState(that) && that._tag === OpCodes.OP_RUNNING

package/src/internal/stm/stm/tExit.ts

@@ -102,7 +102,8 @@ export const fail = <E>(error: E): TExit<never, E> => ({
     return pipe(
       Hash.hash(TExitSymbolKey),
       Hash.combine(Hash.hash(OpCodes.OP_FAIL)),
-      Hash.combine(Hash.hash(error))
+      Hash.combine(Hash.hash(error)),
+      Hash.cached(this)
     )
   },
   [Equal.symbol](that: unknown): boolean {
@@ -119,7 +120,8 @@ export const die = (defect: unknown): TExit<never> => ({
     return pipe(
       Hash.hash(TExitSymbolKey),
       Hash.combine(Hash.hash(OpCodes.OP_DIE)),
-      Hash.combine(Hash.hash(defect))
+      Hash.combine(Hash.hash(defect)),
+      Hash.cached(this)
     )
   },
   [Equal.symbol](that: unknown): boolean {
@@ -136,7 +138,8 @@ export const interrupt = (fiberId: FiberId.FiberId): TExit<never> => ({
     return pipe(
       Hash.hash(TExitSymbolKey),
       Hash.combine(Hash.hash(OpCodes.OP_INTERRUPT)),
-      Hash.combine(Hash.hash(fiberId))
+      Hash.combine(Hash.hash(fiberId)),
+      Hash.cached(this)
     )
   },
   [Equal.symbol](that: unknown): boolean {
@@ -153,7 +156,8 @@ export const succeed = <A>(value: A): TExit<A> => ({
     return pipe(
       Hash.hash(TExitSymbolKey),
       Hash.combine(Hash.hash(OpCodes.OP_SUCCEED)),
-      Hash.combine(Hash.hash(value))
+      Hash.combine(Hash.hash(value)),
+      Hash.cached(this)
     )
   },
   [Equal.symbol](that: unknown): boolean {
@@ -161,16 +165,18 @@ export const succeed = <A>(value: A): TExit<A> => ({
   }
 })
 
+const retryHash = pipe(
+  Hash.hash(TExitSymbolKey),
+  Hash.combine(Hash.hash(OpCodes.OP_RETRY)),
+  Hash.combine(Hash.hash("retry"))
+)
+
 /** @internal */
 export const retry: TExit<never> = {
   [TExitTypeId]: variance,
   _tag: OpCodes.OP_RETRY,
   [Hash.symbol](): number {
-    return pipe(
-      Hash.hash(TExitSymbolKey),
-      Hash.combine(Hash.hash(OpCodes.OP_RETRY)),
-      Hash.combine(Hash.hash("retry"))
-    )
+    return retryHash
   },
   [Equal.symbol](that: unknown): boolean {
     return isExit(that) && isRetry(that)

package/src/internal/trie.ts

@@ -34,12 +34,12 @@ const TrieProto: TR.Trie<unknown> = {
   [Symbol.iterator]<V>(this: TrieImpl<V>): Iterator<[string, V]> {
     return new TrieIterator(this, (k, v) => [k, v], () => true)
   },
-  [Hash.symbol](): number {
+  [Hash.symbol](this: TR.Trie<unknown>): number {
     let hash = Hash.hash(TrieSymbolKey)
     for (const item of this) {
       hash ^= pipe(Hash.hash(item[0]), Hash.combine(Hash.hash(item[1])))
     }
-    return hash
+    return Hash.cached(this, hash)
   },
   [Equal.symbol]<V>(this: TrieImpl<V>, that: unknown): boolean {
     if (isTrie(that)) {

package/src/internal/version.ts

@@ -1 +1,7 @@
-export const moduleVersion = "2.3.6"
+let moduleVersion = "2.3.8"
+
+export const getCurrentVersion = () => moduleVersion
+
+export const setCurrentVersion = (version: string) => {
+  moduleVersion = version
+}