@fncts/io 0.0.34 → 0.0.36

package/_mjs/TSemaphore/api.mjs.map

@@ -1 +1 @@
-{"version":3,"file":"api.mjs","names":["acquireN","acquireN_1","releaseN","releaseN_1","withPermits","withPermits_1","assert","Effect","RetryException","acquire","self","__tsplusTrace","n","journal","value","tsplus_module_2","unsafeGet","tsplus_module_1","TSemaphore","reverseGet","unsafeSet","available","get","release","current","io","tsplus_module_4","uninterruptibleMask","restore","tsplus_module_5","zipRight","ensuring","tsplus_module_3","atomically","withPermit"],"sources":["../../_src/TSemaphore/api.ts"],"sourcesContent":[null],"mappings":";;;;;aAcgBA,QAAQ,GAAAC,UAAA;aA4BRC,QAAQ,GAAAC,UAAA;aAaRC,WAAW,GAAAC,aAAA;AAvD3B,SAASC,MAAM,QAAQ,yBAAyB;AAEhD,SAASC,MAAM,EAAEC,cAAc,QAAQ,uBAAsB;AAE7D;;;AAGA,OAAM,SAAUC,OAAOA,CAACC,IAAgB,EAAEC,aAAsB;EAC9D,OAAOV,UAAA,CAAc,CAAC,EADkBU,aAAA,EACjCD,IAAI,CAAY;AACzB;AAEA;;;AAGA,SAAAT,WAAyBW,CAAS,EAAED,aAAsB;EACxD,OAAQD,IAAgB,IAAgB;IACtC,OAAO,IAAIH,MAAM,CAAEM,OAAO,IAAI;MAC5BP,MAAM,CAACM,CAAC,IAAI,CAAC,EAAE,+CAA+C,CAAC;MAC/D,MAAME,KAAK,GAAGC,eAAA,CAAAC,SAAA,CAAsCH,OAAO,EAJ7BF,aAAA,EAIhBM,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,CAAmB;MAC5D,IAAII,KAAK,GAAGF,CAAC,EAAE,MAAM,IAAIJ,cAAc,EAAE,CAAC,KACrC,OAAOO,eAAA,CAAAK,SAAA,CAAsCP,OAAO,EAAEC,KAAK,GAAGF,CAAC,EANtCD,aAAA,EAMlBM,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,CAA8B;IACvE,CAAC,CAAC;EACJ,CAAC;AACH;AAEA;;;AAGA,OAAM,SAAUW,SAASA,CAACX,IAAgB,EAAEC,aAAsB;EAChE,OAAAI,eAAA,CAAAO,GAAA,CAAOL,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,EADQC,aAAA;AAE5C;AAEA;;;AAGA,OAAM,SAAUY,OAAOA,CAACb,IAAgB,EAAEC,aAAsB;EAC9D,OAAOR,UAAA,CAAc,CAAC,EADkBQ,aAAA,EACjCD,IAAI,CAAY;AACzB;AAEA;;;AAGA,SAAAP,WAAyBS,CAAS,EAAED,aAAsB;EACxD,OAAQD,IAAgB,IAAgB;IACtC,OAAO,IAAIH,MAAM,CAAEM,OAAO,IAAI;MAC5BP,MAAM,CAACM,CAAC,IAAI,CAAC,EAAE,+CAA+C,CAAC;MAC/D,MAAMY,OAAO,GAAGT,eAAA,CAAAC,SAAA,CAAsCH,OAAO,EAJ/BF,aAAA,EAIdM,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,CAAmB;MAC9DK,eAAA,CAAAK,SAAA,CAAsCP,OAAO,EAAEW,OAAO,GAAGZ,CAAC,EAL5BD,aAAA,EAK9BM,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,CAAgC;IAC7D,CAAC,CAAC;EACJ,CAAC;AACH;AAEA;;;AAGA,SAAAL,cAA4BK,IAAgB,EAAEC,aAAsB;EAClE,OAAQC,CAAS,IACLa,EAAe,IACvBC,eAAA,CAAAC,mBAAA,CAAwBC,OAAO,IAC7BC,eAAA,CAAAC,QAAA,CAA0CJ,eAAA,CAAAK,QAAA,CAAAC,eAAA,CAAAC,UAAA,CAAqB9B,UAAA,CAAcS,CAAC,EAJxCD,aAAA,EAIyBD,IAAI,CAAY,EAJzCC,aAAA,GAAAA,aAAA,EAIIiB,OAAO,CAACH,EAAE,EAJdd,aAAA,CAIe,CAAkC,EAJjDA,aAAA,EAItCiB,OAAO,CAAAI,eAAA,CAAAC,UAAA,CAAChC,UAAA,CAAcW,CAAC,EAJeD,aAAA,EAI9BD,IAAI,CAAY,EAJcC,aAAA,GAAAA,aAAA,CAIN,CAAwD,CACzF;AACP;AAEA;;;AAGA,OAAM,SAAUuB,UAAUA,CAACxB,IAAgB,EAAEC,aAAsB;EACjE,OAAiBc,EAAe,IAAKpB,aAAA,CAAAK,IAAI,EADEC,aAAA,EACW,CAAC,CAAC,CAACc,EAAE,CAAC;AAC9D"}
+{"version":3,"file":"api.mjs","names":["acquireN","acquireN_1","releaseN","releaseN_1","withPermits","withPermits_1","assert","Effect","RetryException","acquire","self","__tsplusTrace","n","journal","value","tsplus_module_2","unsafeGet","tsplus_module_1","TSemaphore","reverseGet","unsafeSet","available","get","release","current","io","tsplus_module_4","uninterruptibleMask","restore","tsplus_module_5","zipRight","ensuring","tsplus_module_3","atomically","withPermit"],"sources":["../../_src/TSemaphore/api.ts"],"sourcesContent":[null],"mappings":";;;;;aAcgBA,QAAQ,GAAAC,UAAA;aA4BRC,QAAQ,GAAAC,UAAA;aAaRC,WAAW,GAAAC,aAAA;AAvD3B,SAASC,MAAM,QAAQ,yBAAyB;AAEhD,SAASC,MAAM,EAAEC,cAAc,QAAQ,uBAAsB;AAE7D;;;AAGA,OAAM,SAAUC,OAAOA,CAACC,IAAgB,EAAEC,aAAsB;EAC9D,OAAOV,UAAA,CAAc,CAAC,EADkBU,aAAA,EACjCD,IAAI,CAAY;AACzB;AAEA;;;AAGA,SAAAT,WAAyBW,CAAS,EAAED,aAAsB;EACxD,OAAQD,IAAgB,IAAgB;IACtC,OAAO,IAAIH,MAAM,CAAEM,OAAO,IAAI;MAC5BP,MAAM,CAACM,CAAC,IAAI,CAAC,EAAE,+CAA+C,CAAC;MAC/D,MAAME,KAAK,GAAGC,eAAA,CAAAC,SAAA,CAAsCH,OAAO,EAJ7BF,aAAA,EAIhBM,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,CAAmB;MAC5D,IAAII,KAAK,GAAGF,CAAC,EAAE,MAAM,IAAIJ,cAAc,EAAE,CAAC,KACrC,OAAOO,eAAA,CAAAK,SAAA,CAAsCP,OAAO,EAAEC,KAAK,GAAGF,CAAC,EANtCD,aAAA,EAMlBM,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,CAA8B;IACvE,CAAC,CAAC;EACJ,CAAC;AACH;AAEA;;;AAGA,OAAM,SAAUW,SAASA,CAACX,IAAgB,EAAEC,aAAsB;EAChE,OAAAI,eAAA,CAAAO,GAAA,CAAOL,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,EADQC,aAAA;AAE5C;AAEA;;;AAGA,OAAM,SAAUY,OAAOA,CAACb,IAAgB,EAAEC,aAAsB;EAC9D,OAAOR,UAAA,CAAc,CAAC,EADkBQ,aAAA,EACjCD,IAAI,CAAY;AACzB;AAEA;;;AAGA,SAAAP,WAAyBS,CAAS,EAAED,aAAsB;EACxD,OAAQD,IAAgB,IAAgB;IACtC,OAAO,IAAIH,MAAM,CAAEM,OAAO,IAAI;MAC5BP,MAAM,CAACM,CAAC,IAAI,CAAC,EAAE,+CAA+C,CAAC;MAC/D,MAAMY,OAAO,GAAGT,eAAA,CAAAC,SAAA,CAAsCH,OAAO,EAJ/BF,aAAA,EAIdM,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,CAAmB;MAC9DK,eAAA,CAAAK,SAAA,CAAsCP,OAAO,EAAEW,OAAO,GAAGZ,CAAC,EAL5BD,aAAA,EAK9BM,eAAA,CAAAC,UAAU,CAACC,UAAU,CAACT,IAAI,CAAC,CAAgC;IAC7D,CAAC,CAAC;EACJ,CAAC;AACH;AAEA;;;AAGA,SAAAL,cAA4BK,IAAgB,EAAEC,aAAsB;EAClE,OAAQC,CAAS,IACLa,EAAe,IACvBC,eAAA,CAAAC,mBAAA,CAAwBC,OAAO,IAC7BC,eAAA,CAAAC,QAAA,CAA0CJ,eAAA,CAAAK,QAAA,CAAAC,eAAA,CAAAC,UAAA,CAAqB9B,UAAA,CAAcS,CAAC,EAJxCD,aAAA,EAIyBD,IAAI,CAAY,EAJzCC,aAAA,GAAAA,aAAA,EAIIiB,OAAO,CAACH,EAAE,EAJdd,aAAA,CAIe,CAAkC,EAJjDA,aAAA,EAItCiB,OAAO,CAAAI,eAAA,CAAAC,UAAA,CAAChC,UAAA,CAAcW,CAAC,EAJeD,aAAA,EAI9BD,IAAI,CAAY,EAJcC,aAAA,GAAAA,aAAA,CAIN,CAAwD,EAJlDA,aAAA,CAKvC;AACP;AAEA;;;AAGA,OAAM,SAAUuB,UAAUA,CAACxB,IAAgB,EAAEC,aAAsB;EACjE,OAAiBc,EAAe,IAAKpB,aAAA,CAAAK,IAAI,EADEC,aAAA,EACW,CAAC,CAAC,CAACc,EAAE,CAAC;AAC9D"}

package/_mjs/collection/immutable/Conc/dropUntilIO.mjs

@@ -1,25 +1,20 @@
-import * as tsplus_module_1 from "@fncts/base/collection/immutable/Conc";
-import * as tsplus_module_2 from "@fncts/io/IO/api";
+import * as tsplus_module_1 from "@fncts/io/IO/api";
+import * as tsplus_module_2 from "@fncts/base/collection/immutable/Conc/api";
+import * as tsplus_module_3 from "@fncts/base/collection/immutable/Conc/api/empty";
 /**
  * @tsplus pipeable fncts.Conc dropUntilIO
  */
 export function dropUntilIO(p, __tsplusTrace) {
   return self => {
-    return tsplus_module_2.defer(() => {
-      const builder = new tsplus_module_1.ConcBuilder();
-      let dropping = tsplus_module_2.succeedNow(false, __tsplusTrace);
-      for (const elem of self) {
-        dropping = tsplus_module_2.flatMap(b => {
-          if (b) {
-            builder.append(elem);
-            return tsplus_module_2.succeedNow(true, __tsplusTrace);
-          } else {
-            return p(elem);
-          }
-        }, __tsplusTrace)(dropping);
-      }
-      return tsplus_module_2.as(() => builder.result(), __tsplusTrace)(dropping);
-    }, __tsplusTrace);
+    return tsplus_module_1.defer(() => dropUntilIOLoop(self, self[Symbol.iterator](), p, 0, __tsplusTrace), __tsplusTrace);
   };
 }
+function dropUntilIOLoop(self, iterator, p, index, __tsplusTrace) {
+  let result;
+  if (!(result = iterator.next()).done) {
+    return tsplus_module_1.flatMap(b => b ? tsplus_module_1.succeed(() => tsplus_module_2.drop(index + 1)(self), __tsplusTrace) : dropUntilIOLoop(self, iterator, p, index + 1, __tsplusTrace), __tsplusTrace)(p(result.value));
+  } else {
+    return tsplus_module_1.succeed(() => tsplus_module_3.empty(), __tsplusTrace);
+  }
+}
 //# sourceMappingURL=dropUntilIO.mjs.map

package/_mjs/collection/immutable/Conc/dropUntilIO.mjs.map

@@ -1 +1 @@
-{"version":3,"file":"dropUntilIO.mjs","names":["dropUntilIO","p","__tsplusTrace","self","tsplus_module_2","defer","builder","tsplus_module_1","ConcBuilder","dropping","succeedNow","elem","flatMap","b","append","as","result"],"sources":["../../../../_src/collection/immutable/Conc/dropUntilIO.ts"],"sourcesContent":[null],"mappings":";;AAAA;;;AAGA,OAAM,SAAUA,WAAWA,CAAUC,CAA8B,EAAEC,aAAsB;EACzF,OAAQC,IAAa,IAAuB;IAC1C,OAAOC,eAAA,CAAAC,KAAA,CAAS,MAAK;MACnB,MAAMC,OAAO,GAAqB,IAAAC,eAAA,CAAIC,WAAW,EAAK;MACtD,IAAIC,QAAQ,GAAsBL,eAAA,CAAAM,UAAA,CAAc,KAAK,EAJUR,aAAA,CAIT;MACtD,KAAK,MAAMS,IAAI,IAAIR,IAAI,EAAE;QACvBM,QAAQ,GAAGL,eAAA,CAAAQ,OAAA,CAAkBC,CAAC,IAAI;UAChC,IAAIA,CAAC,EAAE;YACLP,OAAO,CAACQ,MAAM,CAACH,IAAI,CAAC;YACpB,OAAOP,eAAA,CAAAM,UAAA,CAAc,IAAI,EATgCR,aAAA,CAS/B;WAC3B,MAAM;YACL,OAAOD,CAAC,CAACU,IAAI,CAAC;;QAElB,CAAC,EAb4DT,aAAA,EAMlDO,QAAQ,CAOjB;;MAEJ,OAAOL,eAAA,CAAAW,EAAA,OAAYT,OAAO,CAACU,MAAM,EAAE,EAf4Bd,aAAA,EAexDO,QAAQ,CAAqB;IACtC,CAAC,EAhBgEP,aAAA,CAgB/D;EACJ,CAAC;AACH"}
+{"version":3,"file":"dropUntilIO.mjs","names":["dropUntilIO","p","__tsplusTrace","self","tsplus_module_1","defer","dropUntilIOLoop","Symbol","iterator","index","result","next","done","flatMap","b","succeed","tsplus_module_2","drop","value","tsplus_module_3","empty"],"sources":["../../../../_src/collection/immutable/Conc/dropUntilIO.ts"],"sourcesContent":[null],"mappings":";;;AAAA;;;AAGA,OAAM,SAAUA,WAAWA,CAAUC,CAA8B,EAAEC,aAAsB;EACzF,OAAQC,IAAa,IAAuB;IAC1C,OAAOC,eAAA,CAAAC,KAAA,OAASC,eAAe,CAACH,IAAI,EAAEA,IAAI,CAACI,MAAM,CAACC,QAAQ,CAAC,EAAE,EAAEP,CAAC,EAAE,CAAC,EAFFC,aAAA,CAEG,EAFHA,aAAA,CAEI;EACvE,CAAC;AACH;AAEA,SAASI,eAAeA,CACtBH,IAAa,EACbK,QAAqB,EACrBP,CAA8B,EAC9BQ,KAAa,EACbP,aAAsB;EAEtB,IAAIQ,MAAyB;EAC7B,IAAI,CAAC,CAACA,MAAM,GAAGF,QAAQ,CAACG,IAAI,EAAE,EAAEC,IAAI,EAAE;IACpC,OAAOR,eAAA,CAAAS,OAAA,CAAyBC,CAAC,IAC/BA,CAAC,GAAGV,eAAA,CAAAW,OAAA,OAAWC,eAAA,CAAAC,IAAA,CAAUR,KAAK,GAAG,CAAC,EAAnBN,IAAI,CAAgB,EALvCD,aAAA,CAKwC,GAAGI,eAAe,CAACH,IAAI,EAAEK,QAAQ,EAAEP,CAAC,EAAEQ,KAAK,GAAG,CAAC,EALvFP,aAAA,CAKwF,EALxFA,aAAA,EAISD,CAAC,CAACS,MAAM,CAACQ,KAAK,CAAC,CAErB;GACF,MAAM;IACL,OAAOd,eAAA,CAAAW,OAAA,OAAWI,eAAA,CAAAC,KAAA,EAAY,EARhClB,aAAA,CAQiC;;AAEnC"}

package/_mjs/collection/immutable/Conc/dropWhileIO.mjs

@@ -1,25 +1,20 @@
-import * as tsplus_module_1 from "@fncts/base/collection/immutable/Conc";
-import * as tsplus_module_2 from "@fncts/io/IO/api";
+import * as tsplus_module_1 from "@fncts/io/IO/api";
+import * as tsplus_module_2 from "@fncts/base/collection/immutable/Conc/api";
+import * as tsplus_module_3 from "@fncts/base/collection/immutable/Conc/api/empty";
 /**
  * @tsplus pipeable fncts.Conc dropWhileIO
  */
 export function dropWhileIO(p, __tsplusTrace) {
   return self => {
-    return tsplus_module_2.defer(() => {
-      const builder = new tsplus_module_1.ConcBuilder();
-      let dropping = tsplus_module_2.succeedNow(true, __tsplusTrace);
-      for (const elem of self) {
-        dropping = tsplus_module_2.flatMap(d => tsplus_module_2.map(b => {
-          if (b) {
-            return true;
-          } else {
-            builder.append(elem);
-            return false;
-          }
-        }, __tsplusTrace)(d ? p(elem) : tsplus_module_2.succeedNow(false, __tsplusTrace)), __tsplusTrace)(dropping);
-      }
-      return tsplus_module_2.as(() => builder.result(), __tsplusTrace)(dropping);
-    }, __tsplusTrace);
+    return tsplus_module_1.defer(() => dropWhileIOLoop(self, self[Symbol.iterator](), p, 0, __tsplusTrace), __tsplusTrace);
   };
 }
+function dropWhileIOLoop(self, iterator, p, index, __tsplusTrace) {
+  let result;
+  if (!(result = iterator.next()).done) {
+    return tsplus_module_1.flatMap(b => b ? dropWhileIOLoop(self, iterator, p, index + 1, __tsplusTrace) : tsplus_module_1.succeed(() => tsplus_module_2.drop(index)(self), __tsplusTrace), __tsplusTrace)(p(result.value));
+  } else {
+    return tsplus_module_1.succeed(() => tsplus_module_3.empty(), __tsplusTrace);
+  }
+}
 //# sourceMappingURL=dropWhileIO.mjs.map

package/_mjs/collection/immutable/Conc/dropWhileIO.mjs.map

@@ -1 +1 @@
-{"version":3,"file":"dropWhileIO.mjs","names":["dropWhileIO","p","__tsplusTrace","self","tsplus_module_2","defer","builder","tsplus_module_1","ConcBuilder","dropping","succeedNow","elem","flatMap","d","map","b","append","as","result"],"sources":["../../../../_src/collection/immutable/Conc/dropWhileIO.ts"],"sourcesContent":[null],"mappings":";;AAAA;;;AAGA,OAAM,SAAUA,WAAWA,CAAUC,CAA8B,EAAEC,aAAsB;EACzF,OAAQC,IAAa,IAAuB;IAC1C,OAAOC,eAAA,CAAAC,KAAA,CAAS,MAAK;MACnB,MAAMC,OAAO,GAAqB,IAAAC,eAAA,CAAIC,WAAW,EAAK;MACtD,IAAIC,QAAQ,GAAsBL,eAAA,CAAAM,UAAA,CAAc,IAAI,EAJWR,aAAA,CAIV;MACrD,KAAK,MAAMS,IAAI,IAAIR,IAAI,EAAE;QACvBM,QAAQ,GAAGL,eAAA,CAAAQ,OAAA,CAAkBC,CAAC,IAC5BT,eAAA,CAAAU,GAAA,CAA0CC,CAAC,IAAI;UAC7C,IAAIA,CAAC,EAAE;YACL,OAAO,IAAI;WACZ,MAAM;YACLT,OAAO,CAACU,MAAM,CAACL,IAAI,CAAC;YACpB,OAAO,KAAK;;QAEhB,CAAC,EAd0DT,aAAA,EAO1DW,CAAC,GAAGZ,CAAC,CAACU,IAAI,CAAC,GAAGP,eAAA,CAAAM,UAAA,CAAc,KAAK,EAPyBR,aAAA,CAOxB,CAOjC,EAdyDA,aAAA,EAMlDO,QAAQ,CASlB;;MAEH,OAAOL,eAAA,CAAAa,EAAA,OAAYX,OAAO,CAACY,MAAM,EAAE,EAjB4BhB,aAAA,EAiBxDO,QAAQ,CAAqB;IACtC,CAAC,EAlBgEP,aAAA,CAkB/D;EACJ,CAAC;AACH"}
+{"version":3,"file":"dropWhileIO.mjs","names":["dropWhileIO","p","__tsplusTrace","self","tsplus_module_1","defer","dropWhileIOLoop","Symbol","iterator","index","result","next","done","flatMap","b","succeed","tsplus_module_2","drop","value","tsplus_module_3","empty"],"sources":["../../../../_src/collection/immutable/Conc/dropWhileIO.ts"],"sourcesContent":[null],"mappings":";;;AAAA;;;AAGA,OAAM,SAAUA,WAAWA,CAAUC,CAA8B,EAAEC,aAAsB;EACzF,OAAQC,IAAa,IAAuB;IAC1C,OAAOC,eAAA,CAAAC,KAAA,OAASC,eAAe,CAACH,IAAI,EAAEA,IAAI,CAACI,MAAM,CAACC,QAAQ,CAAC,EAAE,EAAEP,CAAC,EAAE,CAAC,EAFFC,aAAA,CAEG,EAFHA,aAAA,CAEI;EACvE,CAAC;AACH;AAEA,SAASI,eAAeA,CACtBH,IAAa,EACbK,QAAqB,EACrBP,CAA8B,EAC9BQ,KAAa,EACbP,aAAsB;EAEtB,IAAIQ,MAAyB;EAC7B,IAAI,CAAC,CAACA,MAAM,GAAGF,QAAQ,CAACG,IAAI,EAAE,EAAEC,IAAI,EAAE;IACpC,OAAOR,eAAA,CAAAS,OAAA,CAAyBC,CAAC,IAC/BA,CAAC,GAAGR,eAAe,CAACH,IAAI,EAAEK,QAAQ,EAAEP,CAAC,EAAEQ,KAAK,GAAG,CAAC,EALpDP,aAAA,CAKqD,GAAGE,eAAA,CAAAW,OAAA,OAAWC,eAAA,CAAAC,IAAA,CAAUR,KAAK,EAAfN,IAAI,CAAY,EALnFD,aAAA,CAKoF,EALpFA,aAAA,EAISD,CAAC,CAACS,MAAM,CAACQ,KAAK,CAAC,CAErB;GACF,MAAM;IACL,OAAOd,eAAA,CAAAW,OAAA,OAAWI,eAAA,CAAAC,KAAA,EAAY,EARhClB,aAAA,CAQiC;;AAEnC"}

package/_mjs/collection/immutable/Conc/filterIO.mjs

@@ -1,20 +1,10 @@
-import * as tsplus_module_1 from "@fncts/base/collection/immutable/Conc";
-import * as tsplus_module_2 from "@fncts/io/IO/api";
+import * as tsplus_module_1 from "@fncts/io/IO/api";
 /**
  * @tsplus pipeable fncts.Conc filterIO
  */
 export function filterIO(p, __tsplusTrace) {
   return self => {
-    return tsplus_module_2.defer(() => {
-      const builder = new tsplus_module_1.ConcBuilder();
-      let dest = tsplus_module_2.succeedNow(builder, __tsplusTrace);
-      for (const a of self) {
-        dest = tsplus_module_2.zipWith(p(a), (builder, res) => {
-          if (res) return builder.append(a);else return builder;
-        }, __tsplusTrace)(dest);
-      }
-      return tsplus_module_2.map(builder => builder.result(), __tsplusTrace)(dest);
-    }, __tsplusTrace);
+    return tsplus_module_1.filter(self, p, __tsplusTrace);
   };
 }
 //# sourceMappingURL=filterIO.mjs.map

package/_mjs/collection/immutable/Conc/filterIO.mjs.map

@@ -1 +1 @@
-{"version":3,"file":"filterIO.mjs","names":["filterIO","p","__tsplusTrace","self","tsplus_module_2","defer","builder","tsplus_module_1","ConcBuilder","dest","succeedNow","a","zipWith","res","append","map","result"],"sources":["../../../../_src/collection/immutable/Conc/filterIO.ts"],"sourcesContent":[null],"mappings":";;AAAA;;;AAGA,OAAM,SAAUA,QAAQA,CAAUC,CAA8B,EAAEC,aAAsB;EACtF,OAAQC,IAAa,IAAuB;IAC1C,OAAOC,eAAA,CAAAC,KAAA,CAAS,MAAK;MACnB,MAAMC,OAAO,GAAG,IAAAC,eAAA,CAAIC,WAAW,EAAK;MACpC,IAAIC,IAAI,GAA6BL,eAAA,CAAAM,UAAA,CAAcJ,OAAO,EAJEJ,aAAA,CAID;MAC3D,KAAK,MAAMS,CAAC,IAAIR,IAAI,EAAE;QACpBM,IAAI,GAAGL,eAAA,CAAAQ,OAAA,CAAaX,CAAC,CAACU,CAAC,CAAC,EAAE,CAACL,OAAO,EAAEO,GAAG,KAAI;UACzC,IAAIA,GAAG,EAAE,OAAOP,OAAO,CAACQ,MAAM,CAACH,CAAC,CAAC,CAAC,KAC7B,OAAOL,OAAO;QACrB,CAAC,EATyDJ,aAAA,EAMnDO,IAAI,CAGT;;MAEJ,OAAOL,eAAA,CAAAW,GAAA,CAAUT,OAAO,IAAKA,OAAO,CAACU,MAAM,EAAE,EAXed,aAAA,EAWrDO,IAAI,CAAmC;IAChD,CAAC,EAZ6DP,aAAA,CAY5D;EACJ,CAAC;AACH"}
+{"version":3,"file":"filterIO.mjs","names":["filterIO","p","__tsplusTrace","self","tsplus_module_1","filter"],"sources":["../../../../_src/collection/immutable/Conc/filterIO.ts"],"sourcesContent":[null],"mappings":";AAAA;;;AAGA,OAAM,SAAUA,QAAQA,CAAUC,CAA8B,EAAEC,aAAsB;EACtF,OAAQC,IAAa,IAAuB;IAC1C,OAAOC,eAAA,CAAAC,MAAA,CAAUF,IAAI,EAAEF,CAAC,EAFsCC,aAAA,CAErC;EAC3B,CAAC;AACH"}

package/_mjs/collection/immutable/Conc/mapIO.mjs

@@ -1,16 +1,10 @@
-import * as tsplus_module_1 from "@fncts/base/collection/immutable/Conc/api";
-import * as tsplus_module_2 from "@fncts/io/IO/api";
+import * as tsplus_module_1 from "@fncts/io/IO/api";
 /**
  * @tsplus pipeable fncts.Conc mapIO
  */
 export function mapIO(f, __tsplusTrace) {
-  return as => {
-    return tsplus_module_2.defer(() => {
-      const out = tsplus_module_1.builder();
-      return tsplus_module_2.as(() => out.result(), __tsplusTrace)(tsplus_module_2.foreachDiscard(as, a => tsplus_module_2.map(b => {
-        out.append(b);
-      }, __tsplusTrace)(f(a)), __tsplusTrace));
-    }, __tsplusTrace);
+  return self => {
+    return tsplus_module_1.foreach(self, f, __tsplusTrace);
   };
 }
 //# sourceMappingURL=mapIO.mjs.map

package/_mjs/collection/immutable/Conc/mapIO.mjs.map

@@ -1 +1 @@
-{"version":3,"file":"mapIO.mjs","names":["mapIO","f","__tsplusTrace","as","tsplus_module_2","defer","out","tsplus_module_1","builder","result","foreachDiscard","a","map","b","append"],"sources":["../../../../_src/collection/immutable/Conc/mapIO.ts"],"sourcesContent":[null],"mappings":";;AAAA;;;AAGA,OAAM,SAAUA,KAAKA,CAAaC,CAAwB,EAAEC,aAAsB;EAChF,OAAQC,EAAW,IAAuB;IACxC,OAAOC,eAAA,CAAAC,KAAA,CAAS,MAAK;MACnB,MAAMC,GAAG,GAAGC,eAAA,CAAAC,OAAA,EAAiB;MAC7B,OAAOJ,eAAA,CAAAD,EAAA,OAIFG,GAAG,CAACG,MAAM,EAAE,EARqCP,aAAA,EAI/CE,eAAA,CAAAM,cAAA,CAAkBP,EAAE,EAAGQ,CAAC,IAC7BP,eAAA,CAAAQ,GAAA,CAAUC,CAAC,IAAI;QACbP,GAAG,CAACQ,MAAM,CAACD,CAAC,CAAC;MACf,CAAC,EAPmDX,aAAA,EAKpDD,CAAC,CAACU,CAAC,CAAC,CAEF,EAPkDT,aAAA,CAQrD,CAAiB;IACpB,CAAC,EATuDA,aAAA,CAStD;EACJ,CAAC;AACH"}
+{"version":3,"file":"mapIO.mjs","names":["mapIO","f","__tsplusTrace","self","tsplus_module_1","foreach"],"sources":["../../../../_src/collection/immutable/Conc/mapIO.ts"],"sourcesContent":[null],"mappings":";AAAA;;;AAGA,OAAM,SAAUA,KAAKA,CAAaC,CAAwB,EAAEC,aAAsB;EAChF,OAAQC,IAAa,IAAuB;IAC1C,OAAOC,eAAA,CAAAC,OAAA,CAAWF,IAAI,EAAEF,CAAC,EAF+BC,aAAA,CAE9B;EAC5B,CAAC;AACH"}

package/_mjs/collection/immutable/Conc/takeWhileIO.mjs

@@ -1,36 +1,20 @@
 import * as tsplus_module_1 from "@fncts/io/IO/api";
 import * as tsplus_module_2 from "@fncts/base/collection/immutable/Conc/api";
-import { concrete } from "@fncts/base/collection/immutable/Conc";
+import * as tsplus_module_3 from "@fncts/base/collection/immutable/Conc/api/empty";
 /**
  * @tsplus pipeable fncts.Conc takeWhileIO
  */
 export function takeWhileIO(p, __tsplusTrace) {
-  return as => {
-    return tsplus_module_1.defer(() => {
-      void 0;
-      let taking = tsplus_module_1.succeedNow(true, __tsplusTrace);
-      const out = tsplus_module_2.builder();
-      const iterator = as.arrayIterator();
-      let result;
-      while (!(result = iterator.next()).done) {
-        const array = result.value;
-        for (let i = 0; i < array.length; i++) {
-          const j = i;
-          taking = tsplus_module_1.flatMap(b => {
-            const a = array[j];
-            return tsplus_module_1.map(b1 => {
-              if (b1) {
-                out.append(a);
-                return true;
-              } else {
-                return false;
-              }
-            }, __tsplusTrace)(b ? p(a) : tsplus_module_1.succeedNow(false, __tsplusTrace));
-          }, __tsplusTrace)(taking);
-        }
-      }
-      return tsplus_module_1.as(() => out.result(), __tsplusTrace)(taking);
-    }, __tsplusTrace);
+  return self => {
+    return tsplus_module_1.defer(() => takeWhileIOLoop(self, self[Symbol.iterator](), p, 0, __tsplusTrace), __tsplusTrace);
   };
 }
+function takeWhileIOLoop(self, iterator, p, index, __tsplusTrace) {
+  let result;
+  if (!(result = iterator.next()).done) {
+    return tsplus_module_1.flatMap(b => b ? takeWhileIOLoop(self, iterator, p, index + 1, __tsplusTrace) : tsplus_module_1.succeed(() => tsplus_module_2.take(index)(self), __tsplusTrace), __tsplusTrace)(p(result.value));
+  } else {
+    return tsplus_module_1.succeed(() => tsplus_module_3.empty(), __tsplusTrace);
+  }
+}
 //# sourceMappingURL=takeWhileIO.mjs.map

package/_mjs/collection/immutable/Conc/takeWhileIO.mjs.map

@@ -1 +1 @@
-{"version":3,"file":"takeWhileIO.mjs","names":["concrete","takeWhileIO","p","__tsplusTrace","as","tsplus_module_1","defer","taking","succeedNow","out","tsplus_module_2","builder","iterator","arrayIterator","result","next","done","array","value","i","length","j","flatMap","b","a","map","b1","append"],"sources":["../../../../_src/collection/immutable/Conc/takeWhileIO.ts"],"sourcesContent":[null],"mappings":";;AAAA,SAASA,QAAQ,QAAQ,uCAAuC;AAEhE;;;AAGA,OAAM,SAAUC,WAAWA,CAAUC,CAA8B,EAAEC,aAAsB;EACzF,OAAQC,EAAW,IAAuB;IACxC,OAAOC,eAAA,CAAAC,KAAA,CAAS,MAAK;MACnB;MACA,IAAIC,MAAM,GAAsBF,eAAA,CAAAG,UAAA,CAAc,IAAI,EAJaL,aAAA,CAIZ;MACnD,MAAMM,GAAG,GAAuBC,eAAA,CAAAC,OAAA,EAAiB;MACjD,MAAMC,QAAQ,GAAkBR,EAAE,CAACS,aAAa,EAAE;MAClD,IAAIC,MAAoC;MACxC,OAAO,CAAC,CAACA,MAAM,GAAGF,QAAQ,CAACG,IAAI,EAAE,EAAEC,IAAI,EAAE;QACvC,MAAMC,KAAK,GAAGH,MAAM,CAACI,KAAK;QAC1B,KAAK,IAAIC,CAAC,GAAG,CAAC,EAAEA,CAAC,GAAGF,KAAK,CAACG,MAAM,EAAED,CAAC,EAAE,EAAE;UACrC,MAAME,CAAC,GAAGF,CAAC;UACXZ,MAAM,GAAIF,eAAA,CAAAiB,OAAA,CAAgBC,CAAC,IAAI;YAC7B,MAAMC,CAAC,GAAGP,KAAK,CAACI,CAAC,CAAE;YACnB,OAAOhB,eAAA,CAAAoB,GAAA,CAAuCC,EAAE,IAAI;cAClD,IAAIA,EAAE,EAAE;gBACNjB,GAAG,CAACkB,MAAM,CAACH,CAAC,CAAC;gBACb,OAAO,IAAI;eACZ,MAAM;gBACL,OAAO,KAAK;;YAEhB,CAAC,EArBwDrB,aAAA,EAcjDoB,CAAC,GAAGrB,CAAC,CAACsB,CAAC,CAAC,GAAGnB,eAAA,CAAAG,UAAA,CAAc,KAAK,EAdmBL,aAAA,CAclB,CAOrC;UACJ,CAAC,EAtB0DA,aAAA,EAYjDI,MAAM,CAUd;;;MAGN,OAAOF,eAAA,CAAAD,EAAA,OAAUK,GAAG,CAACK,MAAM,EAAE,EAzBkCX,aAAA,EAyBxDI,MAAM,CAAiB;IAChC,CAAC,EA1BgEJ,aAAA,CA0B/D;EACJ,CAAC;AACH"}
+{"version":3,"file":"takeWhileIO.mjs","names":["takeWhileIO","p","__tsplusTrace","self","tsplus_module_1","defer","takeWhileIOLoop","Symbol","iterator","index","result","next","done","flatMap","b","succeed","tsplus_module_2","take","value","tsplus_module_3","empty"],"sources":["../../../../_src/collection/immutable/Conc/takeWhileIO.ts"],"sourcesContent":[null],"mappings":";;;AAAA;;;AAGA,OAAM,SAAUA,WAAWA,CAAUC,CAA8B,EAAEC,aAAsB;EACzF,OAAQC,IAAa,IAAuB;IAC1C,OAAOC,eAAA,CAAAC,KAAA,OAASC,eAAe,CAACH,IAAI,EAAEA,IAAI,CAACI,MAAM,CAACC,QAAQ,CAAC,EAAE,EAAEP,CAAC,EAAE,CAAC,EAFFC,aAAA,CAEG,EAFHA,aAAA,CAEI;EACvE,CAAC;AACH;AAEA,SAASI,eAAeA,CACtBH,IAAa,EACbK,QAAqB,EACrBP,CAA8B,EAC9BQ,KAAa,EACbP,aAAsB;EAEtB,IAAIQ,MAAyB;EAC7B,IAAI,CAAC,CAACA,MAAM,GAAGF,QAAQ,CAACG,IAAI,EAAE,EAAEC,IAAI,EAAE;IACpC,OAAOR,eAAA,CAAAS,OAAA,CAAyBC,CAAC,IAC/BA,CAAC,GAAGR,eAAe,CAACH,IAAI,EAAEK,QAAQ,EAAEP,CAAC,EAAEQ,KAAK,GAAG,CAAC,EALpDP,aAAA,CAKqD,GAAGE,eAAA,CAAAW,OAAA,OAAWC,eAAA,CAAAC,IAAA,CAAUR,KAAK,EAAfN,IAAI,CAAY,EALnFD,aAAA,CAKoF,EALpFA,aAAA,EAISD,CAAC,CAACS,MAAM,CAACQ,KAAK,CAAC,CAErB;GACF,MAAM;IACL,OAAOd,eAAA,CAAAW,OAAA,OAAWI,eAAA,CAAAC,KAAA,EAAY,EARhClB,aAAA,CAQiC;;AAEnC"}

package/_src/Channel/api.ts

@@ -827,10 +827,10 @@ export function mapOut<OutElem, OutElem2>(f: (o: OutElem) => OutElem2) {
 const mapOutIOReader = <Env, Env1, OutErr, OutErr1, OutElem, OutElem1, OutDone>(
   f: (o: OutElem) => IO<Env1, OutErr1, OutElem1>,
 ): Channel<Env | Env1, OutErr, OutElem, OutDone, OutErr | OutErr1, OutElem1, OutDone> =>
-  Channel.readWith(
+  Channel.readWithCause(
     (out) => Channel.fromIO(f(out)).flatMap(Channel.writeNow).zipRight(mapOutIOReader(f)),
-    Channel.failNow,
-    Channel.endNow,
+    Channel.failCauseNow,
+    Channel.succeedNow,
   );
 
 /**

package/_src/Fiber/FiberRuntime.ts

@@ -1,5 +1,6 @@
 import type { FiberStatus } from "../FiberStatus.js";
 import type { OnFailure, OnSuccess, OnSuccessAndFailure, UIO } from "../IO/definition.js";
+import type { WhileLoop } from "../IO/definition.js";
 import type { RuntimeFlags } from "../RuntimeFlags.js";
 
 import { isIOError } from "@fncts/base/data/exceptions";
@@ -12,29 +13,22 @@ import { Done, Suspended } from "../FiberStatus.js";
 import { Running } from "../FiberStatus.js";
 import { FiberStatusTag } from "../FiberStatus.js";
 import { LinkedQueue } from "../internal/MutableQueue.js";
-import { isIO } from "../IO/definition.js";
-import { WhileLoop } from "../IO/definition.js";
-import { IOOpCode } from "../IO/definition.js";
+import { IOPrimitive, isIO } from "../IO/definition.js";
+import { IOTag } from "../IO/definition.js";
 import { RuntimeFlag } from "../RuntimeFlag.js";
 import { FiberMessage, FiberMessageTag } from "./FiberMessage.js";
 
 export class RevertFlags {
-  readonly _tag = IOOpCode.RevertFlags;
+  readonly _tag = IOTag.RevertFlags;
   constructor(readonly patch: RuntimeFlags.Patch, readonly trace?: string) {}
 }
 
 export class UpdateTrace {
-  readonly _tag = IOOpCode.UpdateTrace;
+  readonly _tag = IOTag.UpdateTrace;
   constructor(readonly trace?: string) {}
 }
 
-export type Continuation =
-  | OnSuccess<any, any, any, any, any, any>
-  | OnSuccessAndFailure<any, any, any, any, any, any, any, any, any>
-  | OnFailure<any, any, any, any, any, any>
-  | WhileLoop<any, any, any>
-  | UpdateTrace
-  | RevertFlags;
+export type Continuation = OnSuccess | OnSuccessAndFailure | OnFailure | WhileLoop | UpdateTrace | RevertFlags;
 
 /**
  * @tsplus type fncts.io.Fiber
@@ -268,7 +262,7 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
           }
         } catch (e) {
           if (isIO(e)) {
-            if (IO.concrete(e)._tag === IOOpCode.YieldNow) {
+            if (IO.concrete(e)._tag === IOTag.YieldNow) {
               if (this._runtimeFlags.cooperativeYielding) {
                 this.tell(FiberMessage.YieldNow);
                 this.tell(FiberMessage.Resume(IO.unit));
@@ -276,7 +270,7 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
               } else {
                 effect = IO.unit;
               }
-            } else if (IO.concrete(e)._tag === IOOpCode.Async) {
+            } else if (IO.concrete(e)._tag === IOTag.Async) {
               effect = null!;
             } else {
               throw new Error(`Unhandled op ${IO.concrete(e)._tag}`);
@@ -302,6 +296,7 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
       if (this._runtimeFlags.opSupervision) {
         this.getSupervisor().unsafeOnEffect(this, cur);
       }
+
       const nextTrace = IO.concrete(cur).trace;
       if (nextTrace !== undefined) lastTrace = nextTrace;
 
@@ -317,27 +312,30 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
       }
       try {
         switch (cur._tag) {
-          case IOOpCode.Sync: {
-            const value = cur.evaluate();
+          case IOTag.Sync: {
+            const value = cur.i0();
             const cont  = this.getNextSuccessCont();
             if (cont) {
               switch (cont._tag) {
-                case IOOpCode.OnSuccess:
-                case IOOpCode.OnSuccessAndFailure: {
-                  cur = IO.concrete(cont.successK(value));
+                case IOTag.OnSuccess: {
+                  cur = IO.concrete(cont.i1(value));
+                  break;
+                }
+                case IOTag.OnSuccessAndFailure: {
+                  cur = IO.concrete(cont.i2(value));
                   break;
                 }
-                case IOOpCode.WhileLoop: {
-                  cont.process(value);
-                  if (cont.check()) {
+                case IOTag.WhileLoop: {
+                  cont.i2(value);
+                  if (cont.i0()) {
                     this.stack.push(cont);
-                    cur = IO.concrete(cont.body());
+                    cur = IO.concrete(cont.i1());
                   } else {
                     cur = IO.concrete(IO.unit);
                   }
                   break;
                 }
-                case IOOpCode.RevertFlags: {
+                case IOTag.RevertFlags: {
                   this.patchRuntimeFlags(this._runtimeFlags, cont.patch);
                   if (this._runtimeFlags.interruptible && this.isInterrupted()) {
                     cur = IO.concrete(IO.failCauseNow(this.getInterruptedCause()));
@@ -346,7 +344,7 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
                   }
                   break;
                 }
-                case IOOpCode.UpdateTrace: {
+                case IOTag.UpdateTrace: {
                   if (cont.trace !== undefined) lastTrace = cont.trace;
                   cur = IO.concrete(IO.unit);
                   break;
@@ -357,26 +355,26 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
             }
             break;
           }
-          case IOOpCode.OnSuccessAndFailure:
-          case IOOpCode.OnFailure:
-          case IOOpCode.OnSuccess: {
+          case IOTag.OnSuccessAndFailure:
+          case IOTag.OnFailure:
+          case IOTag.OnSuccess: {
             this.stack.push(cur);
-            cur = IO.concrete(cur.first);
+            cur = IO.concrete(cur.i0);
             break;
           }
-          case IOOpCode.Async: {
+          case IOTag.Async: {
             this.asyncTrace     = lastTrace;
-            this.asyncBlockinOn = cur.blockingOn();
-            this.initiateAsync(this._runtimeFlags, cur.registerCallback);
+            this.asyncBlockinOn = cur.i1();
+            this.initiateAsync(this._runtimeFlags, cur.i0);
             throw cur;
           }
-          case IOOpCode.UpdateRuntimeFlagsWithin: {
-            const updateFlags     = cur.update;
+          case IOTag.UpdateRuntimeFlagsWithin: {
+            const updateFlags     = cur.i0;
             const oldRuntimeFlags = this._runtimeFlags;
             const newRuntimeFlags = updateFlags.patch(oldRuntimeFlags);
 
             if (newRuntimeFlags === oldRuntimeFlags) {
-              cur = IO.concrete(cur.scope(oldRuntimeFlags));
+              cur = IO.concrete(cur.i1(oldRuntimeFlags));
             } else {
               if (newRuntimeFlags.interruptible && this.isInterrupted()) {
                 cur = IO.concrete(IO.failCauseNow(this.getInterruptedCause()));
@@ -384,72 +382,75 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
                 this.patchRuntimeFlags(this._runtimeFlags, updateFlags);
                 const revertFlags = newRuntimeFlags.diff(oldRuntimeFlags);
                 this.stack.push(new RevertFlags(revertFlags));
-                cur = IO.concrete(cur.scope(oldRuntimeFlags));
+                cur = IO.concrete(cur.i1(oldRuntimeFlags));
               }
             }
             break;
           }
-          case IOOpCode.GenerateStackTrace: {
+          case IOTag.GenerateStackTrace: {
             cur = IO.concrete(IO.succeedNow(this.generateStackTrace()));
             break;
           }
-          case IOOpCode.Stateful: {
-            cur = IO.concrete(cur.onState(this, new Running(this._runtimeFlags, lastTrace)));
+          case IOTag.Stateful: {
+            cur = IO.concrete(cur.i0(this, new Running(this._runtimeFlags, lastTrace)));
             break;
           }
-          case IOOpCode.SucceedNow: {
+          case IOTag.SucceedNow: {
             const oldCur = cur;
             const cont   = this.getNextSuccessCont();
             if (cont) {
               switch (cont._tag) {
-                case IOOpCode.OnSuccess:
-                case IOOpCode.OnSuccessAndFailure: {
-                  cur = IO.concrete(cont.successK(oldCur.value));
+                case IOTag.OnSuccess: {
+                  cur = IO.concrete(cont.i1(oldCur.i0));
+                  break;
+                }
+                case IOTag.OnSuccessAndFailure: {
+                  cur = IO.concrete(cont.i2(oldCur.i0));
                   break;
                 }
-                case IOOpCode.WhileLoop: {
-                  cont.process(oldCur.value);
-                  if (cont.check()) {
+                case IOTag.WhileLoop: {
+                  cont.i2(oldCur.i0);
+                  if (cont.i0()) {
                     this.stack.push(cont);
-                    cur = IO.concrete(cont.body());
+                    cur = IO.concrete(cont.i1());
                   } else {
                     cur = IO.concrete(IO.unit);
                   }
                   break;
                 }
-                case IOOpCode.RevertFlags: {
+                case IOTag.RevertFlags: {
                   this.patchRuntimeFlags(this._runtimeFlags, cont.patch);
                   if (this._runtimeFlags.interruptible && this.isInterrupted()) {
                     cur = IO.concrete(IO.failCauseNow(this.getInterruptedCause()));
                   }
                   break;
                 }
-                case IOOpCode.UpdateTrace: {
+                case IOTag.UpdateTrace: {
                   if (cont.trace !== undefined) lastTrace = cont.trace;
                   cur = IO.concrete(IO.unit);
                   break;
                 }
               }
             } else {
-              return Exit.succeed(oldCur.value);
+              return Exit.succeed(oldCur.i0);
             }
             break;
           }
-          case IOOpCode.Fail: {
-            const cause = cur.cause();
+          case IOTag.Fail: {
+            const cause = cur.i0();
             const cont  = this.getNextFailCont();
             if (cont) {
               switch (cont._tag) {
-                case IOOpCode.OnFailure:
-                case IOOpCode.OnSuccessAndFailure: {
+                case IOTag.OnFailure:
+                case IOTag.OnSuccessAndFailure: {
                   if (!(this._runtimeFlags.interruptible && this.isInterrupted())) {
-                    cur = IO.concrete(cont.failureK(cause));
+                    cur = IO.concrete(cont.i1(cause));
                   } else {
                     cur = IO.concrete(IO.failCauseNow(cause.stripFailures));
                   }
                   break;
                 }
-                case IOOpCode.RevertFlags: {
+                case IOTag.RevertFlags: {
                   this.patchRuntimeFlags(this._runtimeFlags, cont.patch);
                   if (this._runtimeFlags.interruptible && this.isInterrupted()) {
                     const interruptedCause = this.getInterruptedCause();
@@ -461,7 +462,7 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
                   }
                   break;
                 }
-                case IOOpCode.UpdateTrace: {
+                case IOTag.UpdateTrace: {
                   if (cont.trace !== undefined) lastTrace = cont.trace;
                   cur = IO.concrete(IO.unit);
                   break;
@@ -472,15 +473,15 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
             }
             break;
           }
-          case IOOpCode.UpdateRuntimeFlags: {
-            this.patchRuntimeFlags(this._runtimeFlags, cur.update);
+          case IOTag.UpdateRuntimeFlags: {
+            this.patchRuntimeFlags(this._runtimeFlags, cur.i0);
             cur = IO.concrete(IO.unit);
             break;
           }
-          case IOOpCode.WhileLoop: {
+          case IOTag.WhileLoop: {
             const iterate = cur;
-            const check   = iterate.check;
-            const body    = iterate.body;
+            const check   = iterate.i0;
+            const body    = iterate.i1;
             if (check()) {
               cur = IO.concrete(body());
               this.stack.push(iterate);
@@ -489,10 +490,10 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
             }
             break;
           }
-          case IOOpCode.YieldNow: {
+          case IOTag.YieldNow: {
             throw cur;
           }
-          case IOOpCode.Commit: {
+          case IOTag.Commit: {
             cur = IO.concrete(cur.commit);
             break;
           }
@@ -524,7 +525,7 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
       } catch (e) {
         if (isIOError(e)) {
           cur = IO.concrete(IO.failCauseNow(e.cause));
-        } else if (isIO(e) && (IO.concrete(e)._tag === IOOpCode.Async || IO.concrete(e)._tag === IOOpCode.YieldNow)) {
+        } else if (isIO(e) && (IO.concrete(e)._tag === IOTag.Async || IO.concrete(e)._tag === IOTag.YieldNow)) {
           throw e;
         } else if (isInterruptedException(e)) {
           cur = IO.concrete(IO.failCauseNow(Cause.parallel(Cause.halt(e), Cause.interrupt(FiberId.none))));
@@ -622,14 +623,14 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
         }
       };
 
-      return new WhileLoop(
-        check,
-        body,
-        () => {
-          //
-        },
-        this.id.location,
-      );
+      const io = new IOPrimitive(IOTag.WhileLoop) as any;
+      io.i0    = check;
+      io.i1    = body;
+      io.i2    = () => {
+        //
+      };
+
+      return io;
     } else {
       return null!;
     }
@@ -822,7 +823,7 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
   getNextSuccessCont() {
     while (this.stack.hasNext) {
       const frame = this.stack.pop()!;
-      if (frame._tag !== IOOpCode.OnFailure) {
+      if (frame._tag !== IOTag.OnFailure) {
         return frame;
       }
     }
@@ -831,7 +832,7 @@ export class FiberRuntime<E, A> implements Fiber.Runtime<E, A> {
   getNextFailCont() {
     while (this.stack.hasNext) {
       const frame = this.stack.pop()!;
-      if (frame._tag !== IOOpCode.OnSuccess && frame._tag !== IOOpCode.WhileLoop) {
+      if (frame._tag !== IOTag.OnSuccess && frame._tag !== IOTag.WhileLoop) {
         return frame;
       }
     }

package/_src/Fiber/constructors.ts

@@ -41,3 +41,8 @@ export function interrupted(id: FiberId, __tsplusTrace?: string): Fiber<never, n
 export function succeed<A>(a: A, __tsplusTrace?: string): Fiber<never, A> {
   return done(Exit.succeed(a));
 }
+
+/**
+ * @tsplus static fncts.io.FiberOps unit
+ */
+export const unit: Fiber<never, void> = succeed(undefined);