effect 2.4.4 → 2.4.6

package/dist/esm/internal/core.js

@@ -20,7 +20,6 @@ import * as internalCause from "./cause.js";
 import * as deferred from "./deferred.js";
 import * as internalDiffer from "./differ.js";
 import { effectVariance, StructuralCommitPrototype } from "./effectable.js";
-import { internalize } from "./internalize.js";
 import * as DeferredOpCodes from "./opCodes/deferred.js";
 import * as OpCodes from "./opCodes/effect.js";
 import * as _runtimeFlags from "./runtimeFlags.js";
@@ -45,8 +44,8 @@ export const makeEffectError = cause => ({
  */
 export const blocked = (blockedRequests, _continue) => {
   const effect = new EffectPrimitive("Blocked");
-  effect.i0 = blockedRequests;
-  effect.i1 = _continue;
+  effect.effect_instruction_i0 = blockedRequests;
+  effect.effect_instruction_i1 = _continue;
   return effect;
 };
 /**
@@ -54,7 +53,7 @@ export const blocked = (blockedRequests, _continue) => {
  */
 export const runRequestBlock = blockedRequests => {
   const effect = new EffectPrimitive("RunBlocked");
-  effect.i0 = blockedRequests;
+  effect.effect_instruction_i0 = blockedRequests;
   return effect;
 };
 /** @internal */
@@ -72,9 +71,9 @@ export class RevertFlags {
 /** @internal */
 class EffectPrimitive {
   _op;
-  i0 = undefined;
-  i1 = undefined;
-  i2 = undefined;
+  effect_instruction_i0 = undefined;
+  effect_instruction_i1 = undefined;
+  effect_instruction_i2 = undefined;
   trace = undefined;
   [EffectTypeId] = effectVariance;
   constructor(_op) {
@@ -93,9 +92,9 @@ class EffectPrimitive {
     return {
       _id: "Effect",
       _op: this._op,
-      i0: toJSON(this.i0),
-      i1: toJSON(this.i1),
-      i2: toJSON(this.i2)
+      effect_instruction_i0: toJSON(this.effect_instruction_i0),
+      effect_instruction_i1: toJSON(this.effect_instruction_i1),
+      effect_instruction_i2: toJSON(this.effect_instruction_i2)
     };
   }
   toString() {
@@ -108,9 +107,9 @@ class EffectPrimitive {
 /** @internal */
 class EffectPrimitiveFailure {
   _op;
-  i0 = undefined;
-  i1 = undefined;
-  i2 = undefined;
+  effect_instruction_i0 = undefined;
+  effect_instruction_i1 = undefined;
+  effect_instruction_i2 = undefined;
   trace = undefined;
   [EffectTypeId] = effectVariance;
   constructor(_op) {
@@ -125,7 +124,7 @@ class EffectPrimitiveFailure {
     return Hash.cached(this, Hash.random(this));
   }
   get cause() {
-    return this.i0;
+    return this.effect_instruction_i0;
   }
   pipe() {
     return pipeArguments(this, arguments);
@@ -147,9 +146,9 @@ class EffectPrimitiveFailure {
 /** @internal */
 class EffectPrimitiveSuccess {
   _op;
-  i0 = undefined;
-  i1 = undefined;
-  i2 = undefined;
+  effect_instruction_i0 = undefined;
+  effect_instruction_i1 = undefined;
+  effect_instruction_i2 = undefined;
   trace = undefined;
   [EffectTypeId] = effectVariance;
   constructor(_op) {
@@ -164,7 +163,7 @@ class EffectPrimitiveSuccess {
     return Hash.cached(this, Hash.random(this));
   }
   get value() {
-    return this.i0;
+    return this.effect_instruction_i0;
   }
   pipe() {
     return pipeArguments(this, arguments);
@@ -187,9 +186,8 @@ class EffectPrimitiveSuccess {
 export const isEffect = u => hasProperty(u, EffectTypeId);
 /* @internal */
 export const withFiberRuntime = withRuntime => {
-  internalize(withRuntime);
   const effect = new EffectPrimitive(OpCodes.OP_WITH_RUNTIME);
-  effect.i0 = withRuntime;
+  effect.effect_instruction_i0 = withRuntime;
   return effect;
 };
 /* @internal */
@@ -198,7 +196,7 @@ export const acquireUseRelease = /*#__PURE__*/dual(3, (acquire, use, release) =>
     onFailure: cause => {
       switch (exit._tag) {
         case OpCodes.OP_FAILURE:
-          return failCause(internalCause.parallel(exit.i0, cause));
+          return failCause(internalCause.parallel(exit.effect_instruction_i0, cause));
         case OpCodes.OP_SUCCESS:
           return failCause(cause);
       }
@@ -211,46 +209,78 @@ export const as = /*#__PURE__*/dual(2, (self, value) => flatMap(self, () => succ
 /* @internal */
 export const asUnit = self => as(self, void 0);
 /* @internal */
-export const async = (register, blockingOn = FiberId.none) => suspend(() => {
-  internalize(register);
-  let backingResume = undefined;
-  let pendingEffect = undefined;
-  function proxyResume(effect) {
-    if (backingResume) {
-      backingResume(effect);
-    } else if (pendingEffect === undefined) {
-      pendingEffect = effect;
-    }
+export const custom = function () {
+  const wrapper = new EffectPrimitive(OpCodes.OP_COMMIT);
+  switch (arguments.length) {
+    case 2:
+      {
+        wrapper.effect_instruction_i0 = arguments[0];
+        wrapper.commit = arguments[1];
+        break;
+      }
+    case 3:
+      {
+        wrapper.effect_instruction_i0 = arguments[0];
+        wrapper.effect_instruction_i1 = arguments[1];
+        wrapper.commit = arguments[2];
+        break;
+      }
+    case 4:
+      {
+        wrapper.effect_instruction_i0 = arguments[0];
+        wrapper.effect_instruction_i1 = arguments[1];
+        wrapper.effect_instruction_i2 = arguments[2];
+        wrapper.commit = arguments[3];
+        break;
+      }
+    default:
+      {
+        throw new Error("Bug, you're not supposed to end up here");
+      }
   }
-  const effect = new EffectPrimitive(OpCodes.OP_ASYNC);
-  effect.i0 = resume => {
-    backingResume = resume;
-    if (pendingEffect) {
-      resume(pendingEffect);
+  return wrapper;
+};
+/* @internal */
+export const async = (register, blockingOn = FiberId.none) => {
+  return custom(register, function () {
+    let backingResume = undefined;
+    let pendingEffect = undefined;
+    function proxyResume(effect) {
+      if (backingResume) {
+        backingResume(effect);
+      } else if (pendingEffect === undefined) {
+        pendingEffect = effect;
+      }
     }
-  };
-  effect.i1 = blockingOn;
-  let cancelerRef = undefined;
-  let controllerRef = undefined;
-  if (register.length !== 1) {
-    controllerRef = new AbortController();
-    cancelerRef = register(proxyResume, controllerRef.signal);
-  } else {
-    cancelerRef = register(proxyResume);
-  }
-  return cancelerRef || controllerRef ? onInterrupt(effect, _ => {
-    if (controllerRef) {
-      controllerRef.abort();
+    const effect = new EffectPrimitive(OpCodes.OP_ASYNC);
+    effect.effect_instruction_i0 = resume => {
+      backingResume = resume;
+      if (pendingEffect) {
+        resume(pendingEffect);
+      }
+    };
+    effect.effect_instruction_i1 = blockingOn;
+    let cancelerRef = undefined;
+    let controllerRef = undefined;
+    if (this.effect_instruction_i0.length !== 1) {
+      controllerRef = new AbortController();
+      cancelerRef = this.effect_instruction_i0(proxyResume, controllerRef.signal);
+    } else {
+      cancelerRef = this.effect_instruction_i0(proxyResume);
     }
-    return cancelerRef ?? unit;
-  }) : effect;
-});
+    return cancelerRef || controllerRef ? onInterrupt(effect, _ => {
+      if (controllerRef) {
+        controllerRef.abort();
+      }
+      return cancelerRef ?? unit;
+    }) : effect;
+  });
+};
 /* @internal */
 export const catchAllCause = /*#__PURE__*/dual(2, (self, f) => {
   const effect = new EffectPrimitive(OpCodes.OP_ON_FAILURE);
-  effect.i0 = self;
-  effect.i1 = f;
-  internalize(f);
+  effect.effect_instruction_i0 = self;
+  effect.effect_instruction_i1 = f;
   return effect;
 });
 /* @internal */
@@ -334,7 +364,7 @@ export const failSync = evaluate => flatMap(sync(evaluate), fail);
 /* @internal */
 export const failCause = cause => {
   const effect = new EffectPrimitiveFailure(OpCodes.OP_FAILURE);
-  effect.i0 = cause;
+  effect.effect_instruction_i0 = cause;
   return effect;
 };
 /* @internal */
@@ -345,10 +375,9 @@ export const fiberId = /*#__PURE__*/withFiberRuntime(state => succeed(state.id()
 export const fiberIdWith = f => withFiberRuntime(state => f(state.id()));
 /* @internal */
 export const flatMap = /*#__PURE__*/dual(2, (self, f) => {
-  internalize(f);
   const effect = new EffectPrimitive(OpCodes.OP_ON_SUCCESS);
-  effect.i0 = self;
-  effect.i1 = f;
+  effect.effect_instruction_i0 = self;
+  effect.effect_instruction_i1 = f;
   return effect;
 });
 /* @internal */
@@ -366,7 +395,7 @@ export const andThen = /*#__PURE__*/dual(2, (self, f) => flatMap(self, a => {
 /* @internal */
 export const step = self => {
   const effect = new EffectPrimitive("OnStep");
-  effect.i0 = self;
+  effect.effect_instruction_i0 = self;
   return effect;
 };
 /* @internal */
@@ -384,11 +413,9 @@ export const matchCause = /*#__PURE__*/dual(2, (self, options) => matchCauseEffe
 /* @internal */
 export const matchCauseEffect = /*#__PURE__*/dual(2, (self, options) => {
   const effect = new EffectPrimitive(OpCodes.OP_ON_SUCCESS_AND_FAILURE);
-  effect.i0 = self;
-  effect.i1 = options.onFailure;
-  effect.i2 = options.onSuccess;
-  internalize(options.onFailure);
-  internalize(options.onSuccess);
+  effect.effect_instruction_i0 = self;
+  effect.effect_instruction_i1 = options.onFailure;
+  effect.effect_instruction_i2 = options.onSuccess;
   return effect;
 });
 /* @internal */
@@ -443,18 +470,17 @@ export const interruptWith = fiberId => failCause(internalCause.interrupt(fiberI
 /* @internal */
 export const interruptible = self => {
   const effect = new EffectPrimitive(OpCodes.OP_UPDATE_RUNTIME_FLAGS);
-  effect.i0 = RuntimeFlagsPatch.enable(_runtimeFlags.Interruption);
-  effect.i1 = () => self;
+  effect.effect_instruction_i0 = RuntimeFlagsPatch.enable(_runtimeFlags.Interruption);
+  effect.effect_instruction_i1 = () => self;
   return effect;
 };
 /* @internal */
-export const interruptibleMask = f => {
-  internalize(f);
+export const interruptibleMask = f => custom(f, function () {
   const effect = new EffectPrimitive(OpCodes.OP_UPDATE_RUNTIME_FLAGS);
-  effect.i0 = RuntimeFlagsPatch.enable(_runtimeFlags.Interruption);
-  effect.i1 = oldFlags => _runtimeFlags.interruption(oldFlags) ? f(interruptible) : f(uninterruptible);
+  effect.effect_instruction_i0 = RuntimeFlagsPatch.enable(_runtimeFlags.Interruption);
+  effect.effect_instruction_i1 = oldFlags => _runtimeFlags.interruption(oldFlags) ? this.effect_instruction_i0(interruptible) : this.effect_instruction_i0(uninterruptible);
   return effect;
-};
+});
 /* @internal */
 export const intoDeferred = /*#__PURE__*/dual(2, (self, deferred) => uninterruptibleMask(restore => flatMap(exit(restore(self)), exit => deferredDone(deferred, exit))));
 /* @internal */
@@ -482,7 +508,7 @@ export const mapError = /*#__PURE__*/dual(2, (self, f) => matchCauseEffect(self,
   onSuccess: succeed
 }));
 /* @internal */
-export const onError = /*#__PURE__*/dual(2, (self, cleanup) => onExit(self, exit => exitIsSuccess(exit) ? unit : cleanup(exit.i0)));
+export const onError = /*#__PURE__*/dual(2, (self, cleanup) => onExit(self, exit => exitIsSuccess(exit) ? unit : cleanup(exit.effect_instruction_i0)));
 /* @internal */
 export const onExit = /*#__PURE__*/dual(2, (self, cleanup) => uninterruptibleMask(restore => matchCauseEffect(restore(self), {
   onFailure: cause1 => {
@@ -530,16 +556,15 @@ export const runtimeFlags = /*#__PURE__*/withFiberRuntime((_, status) => succeed
 /* @internal */
 export const succeed = value => {
   const effect = new EffectPrimitiveSuccess(OpCodes.OP_SUCCESS);
-  effect.i0 = value;
+  effect.effect_instruction_i0 = value;
   return effect;
 };
 /* @internal */
 export const suspend = effect => flatMap(sync(effect), identity);
 /* @internal */
 export const sync = evaluate => {
-  internalize(evaluate);
   const effect = new EffectPrimitive(OpCodes.OP_SYNC);
-  effect.i0 = evaluate;
+  effect.effect_instruction_i0 = evaluate;
   return effect;
 };
 /* @internal */
@@ -574,25 +599,24 @@ export const attemptOrElse = /*#__PURE__*/dual(3, (self, that, onSuccess) => mat
 /* @internal */
 export const uninterruptible = self => {
   const effect = new EffectPrimitive(OpCodes.OP_UPDATE_RUNTIME_FLAGS);
-  effect.i0 = RuntimeFlagsPatch.disable(_runtimeFlags.Interruption);
-  effect.i1 = () => self;
+  effect.effect_instruction_i0 = RuntimeFlagsPatch.disable(_runtimeFlags.Interruption);
+  effect.effect_instruction_i1 = () => self;
   return effect;
 };
 /* @internal */
-export const uninterruptibleMask = f => {
-  internalize(f);
+export const uninterruptibleMask = f => custom(f, function () {
   const effect = new EffectPrimitive(OpCodes.OP_UPDATE_RUNTIME_FLAGS);
-  effect.i0 = RuntimeFlagsPatch.disable(_runtimeFlags.Interruption);
-  effect.i1 = oldFlags => _runtimeFlags.interruption(oldFlags) ? f(interruptible) : f(uninterruptible);
+  effect.effect_instruction_i0 = RuntimeFlagsPatch.disable(_runtimeFlags.Interruption);
+  effect.effect_instruction_i1 = oldFlags => _runtimeFlags.interruption(oldFlags) ? this.effect_instruction_i0(interruptible) : this.effect_instruction_i0(uninterruptible);
   return effect;
-};
+});
 /* @internal */
 export const unit = /*#__PURE__*/succeed(void 0);
 /* @internal */
 export const updateRuntimeFlags = patch => {
   const effect = new EffectPrimitive(OpCodes.OP_UPDATE_RUNTIME_FLAGS);
-  effect.i0 = patch;
-  effect.i1 = void 0;
+  effect.effect_instruction_i0 = patch;
+  effect.effect_instruction_i1 = void 0;
   return effect;
 };
 /* @internal */
@@ -605,12 +629,9 @@ export const whenEffect = /*#__PURE__*/dual(2, (self, condition) => flatMap(cond
 /* @internal */
 export const whileLoop = options => {
   const effect = new EffectPrimitive(OpCodes.OP_WHILE);
-  effect.i0 = options.while;
-  effect.i1 = options.body;
-  effect.i2 = options.step;
-  internalize(options.body);
-  internalize(options.step);
-  internalize(options.while);
+  effect.effect_instruction_i0 = options.while;
+  effect.effect_instruction_i1 = options.body;
+  effect.effect_instruction_i2 = options.step;
   return effect;
 };
 /* @internal */
@@ -620,8 +641,8 @@ export const withRequestBatching = /*#__PURE__*/dual(2, (self, requestBatching)
 /* @internal */
 export const withRuntimeFlags = /*#__PURE__*/dual(2, (self, update) => {
   const effect = new EffectPrimitive(OpCodes.OP_UPDATE_RUNTIME_FLAGS);
-  effect.i0 = update;
-  effect.i1 = () => self;
+  effect.effect_instruction_i0 = update;
+  effect.effect_instruction_i1 = () => self;
   return effect;
 });
 /** @internal */
@@ -1171,7 +1192,7 @@ export const exitIsSuccess = self => self._tag === "Success";
 export const exitIsInterrupted = self => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return internalCause.isInterrupted(self.i0);
+      return internalCause.isInterrupted(self.effect_instruction_i0);
     case OpCodes.OP_SUCCESS:
       return false;
   }
@@ -1181,7 +1202,7 @@ export const exitAs = /*#__PURE__*/dual(2, (self, value) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
       {
-        return exitFailCause(self.i0);
+        return exitFailCause(self.effect_instruction_i0);
       }
     case OpCodes.OP_SUCCESS:
       {
@@ -1195,7 +1216,7 @@ export const exitAsUnit = self => exitAs(self, void 0);
 export const exitCauseOption = self => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return Option.some(self.i0);
+      return Option.some(self.effect_instruction_i0);
     case OpCodes.OP_SUCCESS:
       return Option.none();
   }
@@ -1210,7 +1231,7 @@ export const exitExists = /*#__PURE__*/dual(2, (self, refinement) => {
     case OpCodes.OP_FAILURE:
       return false;
     case OpCodes.OP_SUCCESS:
-      return refinement(self.i0);
+      return refinement(self.effect_instruction_i0);
   }
 });
 /** @internal */
@@ -1218,7 +1239,7 @@ export const exitFail = error => exitFailCause(internalCause.fail(error));
 /** @internal */
 export const exitFailCause = cause => {
   const effect = new EffectPrimitiveFailure(OpCodes.OP_FAILURE);
-  effect.i0 = cause;
+  effect.effect_instruction_i0 = cause;
   return effect;
 };
 /** @internal */
@@ -1226,11 +1247,11 @@ export const exitFlatMap = /*#__PURE__*/dual(2, (self, f) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
       {
-        return exitFailCause(self.i0);
+        return exitFailCause(self.effect_instruction_i0);
       }
     case OpCodes.OP_SUCCESS:
       {
-        return f(self.i0);
+        return f(self.effect_instruction_i0);
       }
   }
 });
@@ -1239,11 +1260,11 @@ export const exitFlatMapEffect = /*#__PURE__*/dual(2, (self, f) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
       {
-        return succeed(exitFailCause(self.i0));
+        return succeed(exitFailCause(self.effect_instruction_i0));
       }
     case OpCodes.OP_SUCCESS:
       {
-        return f(self.i0);
+        return f(self.effect_instruction_i0);
       }
   }
 });
@@ -1254,11 +1275,11 @@ export const exitForEachEffect = /*#__PURE__*/dual(2, (self, f) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
       {
-        return succeed(exitFailCause(self.i0));
+        return succeed(exitFailCause(self.effect_instruction_i0));
       }
     case OpCodes.OP_SUCCESS:
       {
-        return exit(f(self.i0));
+        return exit(f(self.effect_instruction_i0));
       }
   }
 });
@@ -1284,9 +1305,9 @@ export const exitFromOption = option => {
 export const exitGetOrElse = /*#__PURE__*/dual(2, (self, orElse) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return orElse(self.i0);
+      return orElse(self.effect_instruction_i0);
     case OpCodes.OP_SUCCESS:
-      return self.i0;
+      return self.effect_instruction_i0;
   }
 });
 /** @internal */
@@ -1295,9 +1316,9 @@ export const exitInterrupt = fiberId => exitFailCause(internalCause.interrupt(fi
 export const exitMap = /*#__PURE__*/dual(2, (self, f) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return exitFailCause(self.i0);
+      return exitFailCause(self.effect_instruction_i0);
     case OpCodes.OP_SUCCESS:
-      return exitSucceed(f(self.i0));
+      return exitSucceed(f(self.effect_instruction_i0));
   }
 });
 /** @internal */
@@ -1307,27 +1328,27 @@ export const exitMapBoth = /*#__PURE__*/dual(2, (self, {
 }) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return exitFailCause(pipe(self.i0, internalCause.map(onFailure)));
+      return exitFailCause(pipe(self.effect_instruction_i0, internalCause.map(onFailure)));
     case OpCodes.OP_SUCCESS:
-      return exitSucceed(onSuccess(self.i0));
+      return exitSucceed(onSuccess(self.effect_instruction_i0));
   }
 });
 /** @internal */
 export const exitMapError = /*#__PURE__*/dual(2, (self, f) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return exitFailCause(pipe(self.i0, internalCause.map(f)));
+      return exitFailCause(pipe(self.effect_instruction_i0, internalCause.map(f)));
     case OpCodes.OP_SUCCESS:
-      return exitSucceed(self.i0);
+      return exitSucceed(self.effect_instruction_i0);
   }
 });
 /** @internal */
 export const exitMapErrorCause = /*#__PURE__*/dual(2, (self, f) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return exitFailCause(f(self.i0));
+      return exitFailCause(f(self.effect_instruction_i0));
     case OpCodes.OP_SUCCESS:
-      return exitSucceed(self.i0);
+      return exitSucceed(self.effect_instruction_i0);
   }
 });
 /** @internal */
@@ -1337,9 +1358,9 @@ export const exitMatch = /*#__PURE__*/dual(2, (self, {
 }) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return onFailure(self.i0);
+      return onFailure(self.effect_instruction_i0);
     case OpCodes.OP_SUCCESS:
-      return onSuccess(self.i0);
+      return onSuccess(self.effect_instruction_i0);
   }
 });
 /** @internal */
@@ -1349,15 +1370,15 @@ export const exitMatchEffect = /*#__PURE__*/dual(2, (self, {
 }) => {
   switch (self._tag) {
     case OpCodes.OP_FAILURE:
-      return onFailure(self.i0);
+      return onFailure(self.effect_instruction_i0);
     case OpCodes.OP_SUCCESS:
-      return onSuccess(self.i0);
+      return onSuccess(self.effect_instruction_i0);
   }
 });
 /** @internal */
 export const exitSucceed = value => {
   const effect = new EffectPrimitiveSuccess(OpCodes.OP_SUCCESS);
-  effect.i0 = value;
+  effect.effect_instruction_i0 = value;
   return effect;
 };
 /** @internal */
@@ -1402,10 +1423,10 @@ export const exitZipWith = /*#__PURE__*/dual(3, (self, that, {
       {
         switch (that._tag) {
           case OpCodes.OP_SUCCESS:
-            return exitFailCause(self.i0);
+            return exitFailCause(self.effect_instruction_i0);
           case OpCodes.OP_FAILURE:
             {
-              return exitFailCause(onFailure(self.i0, that.i0));
+              return exitFailCause(onFailure(self.effect_instruction_i0, that.effect_instruction_i0));
             }
         }
       }
@@ -1413,9 +1434,9 @@ export const exitZipWith = /*#__PURE__*/dual(3, (self, that, {
       {
         switch (that._tag) {
           case OpCodes.OP_SUCCESS:
-            return exitSucceed(onSuccess(self.i0, that.i0));
+            return exitSucceed(onSuccess(self.effect_instruction_i0, that.effect_instruction_i0));
           case OpCodes.OP_FAILURE:
-            return exitFailCause(that.i0);
+            return exitFailCause(that.effect_instruction_i0);
         }
       }
   }