@explorable-viz/fluid 0.12.2 → 0.12.4

package/output-es/Data.CatList/index.js

@@ -0,0 +1,326 @@
+// | This module defines a strict catenable list.
+// |
+// | The implementation is based on a queue where all operations require
+// | `O(1)` amortized time.
+// |
+// | However, any single `uncons` operation may run in `O(n)` time.
+// |
+// | See [Purely Functional Data Structures](http://www.cs.cmu.edu/~rwh/theses/okasaki.pdf) (Okasaki 1996)
+import * as $runtime from "../runtime.js";
+import * as Data$dCatQueue from "../Data.CatQueue/index.js";
+import * as Data$dFoldable from "../Data.Foldable/index.js";
+import * as Data$dList$dTypes from "../Data.List.Types/index.js";
+import * as Data$dMaybe from "../Data.Maybe/index.js";
+import * as Data$dTuple from "../Data.Tuple/index.js";
+const $CatList = (tag, _1, _2) => ({tag, _1, _2});
+const CatNil = /* #__PURE__ */ $CatList("CatNil");
+const CatCons = value0 => value1 => $CatList("CatCons", value0, value1);
+const showCatList = dictShow => (
+  {
+    show: v => {
+      if (v.tag === "CatNil") { return "CatNil"; }
+      if (v.tag === "CatCons") { return "(CatList " + dictShow.show(v._1) + " " + Data$dCatQueue.showCatQueue(showCatList(dictShow)).show(v._2) + ")"; }
+      $runtime.fail();
+    }
+  }
+);
+const $$null = v => v.tag === "CatNil";
+const link = v => v1 => {
+  if (v.tag === "CatNil") { return v1; }
+  if (v1.tag === "CatNil") { return v; }
+  if (v.tag === "CatCons") { return $CatList("CatCons", v._1, Data$dCatQueue.$CatQueue(v._2._1, Data$dList$dTypes.$List("Cons", v1, v._2._2))); }
+  $runtime.fail();
+};
+const foldr = k => b => q => {
+  const foldl = foldl$a0$copy => foldl$a1$copy => foldl$a2$copy => {
+    let foldl$a0 = foldl$a0$copy, foldl$a1 = foldl$a1$copy, foldl$a2 = foldl$a2$copy, foldl$c = true, foldl$r;
+    while (foldl$c) {
+      const v = foldl$a0, v1 = foldl$a1, v2 = foldl$a2;
+      if (v2.tag === "Nil") {
+        foldl$c = false;
+        foldl$r = v1;
+        continue;
+      }
+      if (v2.tag === "Cons") {
+        foldl$a0 = v;
+        foldl$a1 = v(v1)(v2._1);
+        foldl$a2 = v2._2;
+        continue;
+      }
+      $runtime.fail();
+    }
+    return foldl$r;
+  };
+  const go = go$a0$copy => go$a1$copy => {
+    let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+    while (go$c) {
+      const xs = go$a0, ys = go$a1;
+      const v = Data$dCatQueue.uncons(xs);
+      if (v.tag === "Nothing") {
+        go$c = false;
+        go$r = foldl(x => i => i(x))(b)(ys);
+        continue;
+      }
+      if (v.tag === "Just") {
+        go$a0 = v._1._2;
+        go$a1 = Data$dList$dTypes.$List("Cons", k(v._1._1), ys);
+        continue;
+      }
+      $runtime.fail();
+    }
+    return go$r;
+  };
+  return go(q)(Data$dList$dTypes.Nil);
+};
+const uncons = v => {
+  if (v.tag === "CatNil") { return Data$dMaybe.Nothing; }
+  if (v.tag === "CatCons") { return Data$dMaybe.$Maybe("Just", Data$dTuple.$Tuple(v._1, v._2._1.tag === "Nil" && v._2._2.tag === "Nil" ? CatNil : foldr(link)(CatNil)(v._2))); }
+  $runtime.fail();
+};
+const foldableCatList = {
+  foldMap: dictMonoid => {
+    const mempty = dictMonoid.mempty;
+    return f => foldableCatList.foldl(acc => x => dictMonoid.Semigroup0().append(acc)(f(x)))(mempty);
+  },
+  foldr: f => s => l => Data$dFoldable.foldrDefault(foldableCatList)(f)(s)(l),
+  foldl: f => {
+    const go = go$a0$copy => go$a1$copy => {
+      let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+      while (go$c) {
+        const acc = go$a0, q = go$a1;
+        const v = uncons(q);
+        if (v.tag === "Just") {
+          go$a0 = f(acc)(v._1._1);
+          go$a1 = v._1._2;
+          continue;
+        }
+        if (v.tag === "Nothing") {
+          go$c = false;
+          go$r = acc;
+          continue;
+        }
+        $runtime.fail();
+      }
+      return go$r;
+    };
+    return go;
+  }
+};
+const length = /* #__PURE__ */ (() => foldableCatList.foldl(c => v => 1 + c | 0)(0))();
+const foldMap = dictMonoid => {
+  const mempty = dictMonoid.mempty;
+  return v => v1 => {
+    if (v1.tag === "CatNil") { return mempty; }
+    if (v1.tag === "CatCons") {
+      return dictMonoid.Semigroup0().append(v(v1._1))(foldMap(dictMonoid)(v)(v1._2._1.tag === "Nil" && v1._2._2.tag === "Nil" ? CatNil : foldr(link)(CatNil)(v1._2)));
+    }
+    $runtime.fail();
+  };
+};
+const empty = CatNil;
+const append = link;
+const cons = a => cat => {
+  if (cat.tag === "CatNil") { return $CatList("CatCons", a, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)); }
+  return $CatList("CatCons", a, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.$List("Cons", cat, Data$dList$dTypes.Nil)));
+};
+const functorCatList = {
+  map: v => v1 => {
+    if (v1.tag === "CatNil") { return CatNil; }
+    if (v1.tag === "CatCons") {
+      const $0 = v(v1._1);
+      const $1 = functorCatList.map(v)(v1._2._1.tag === "Nil" && v1._2._2.tag === "Nil" ? CatNil : foldr(link)(CatNil)(v1._2));
+      if ($1.tag === "CatNil") { return $CatList("CatCons", $0, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)); }
+      return $CatList("CatCons", $0, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.$List("Cons", $1, Data$dList$dTypes.Nil)));
+    }
+    $runtime.fail();
+  }
+};
+const singleton = a => $CatList("CatCons", a, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil));
+const traversableCatList = {
+  traverse: dictApplicative => {
+    const Apply0 = dictApplicative.Apply0();
+    return v => v1 => {
+      if (v1.tag === "CatNil") { return dictApplicative.pure(CatNil); }
+      if (v1.tag === "CatCons") {
+        return Apply0.apply(Apply0.Functor0().map(cons)(v(v1._1)))(traversableCatList.traverse(dictApplicative)(v)(v1._2._1.tag === "Nil" && v1._2._2.tag === "Nil"
+          ? CatNil
+          : foldr(link)(CatNil)(v1._2)));
+      }
+      $runtime.fail();
+    };
+  },
+  sequence: dictApplicative => {
+    const Apply0 = dictApplicative.Apply0();
+    return v => {
+      if (v.tag === "CatNil") { return dictApplicative.pure(CatNil); }
+      if (v.tag === "CatCons") {
+        return Apply0.apply(Apply0.Functor0().map(cons)(v._1))(traversableCatList.sequence(dictApplicative)(v._2._1.tag === "Nil" && v._2._2.tag === "Nil"
+          ? CatNil
+          : foldr(link)(CatNil)(v._2)));
+      }
+      $runtime.fail();
+    };
+  },
+  Functor0: () => functorCatList,
+  Foldable1: () => foldableCatList
+};
+const semigroupCatList = {append: link};
+const monoidCatList = {mempty: CatNil, Semigroup0: () => semigroupCatList};
+const monadCatList = {Applicative0: () => applicativeCatList, Bind1: () => bindCatList$lazy()};
+const applyCatList = {apply: f => a => bindCatList$lazy().bind(f)(f$p => bindCatList$lazy().bind(a)(a$p => applicativeCatList.pure(f$p(a$p)))), Functor0: () => functorCatList};
+const applicativeCatList = {pure: singleton, Apply0: () => applyCatList};
+const bindCatList$lazy = /* #__PURE__ */ $runtime.binding(() => (
+  {
+    bind: (() => {
+      const $0 = foldMap(monoidCatList);
+      return b => a => $0(a)(b);
+    })(),
+    Apply0: () => applyCatList
+  }
+));
+const bindCatList = /* #__PURE__ */ bindCatList$lazy();
+const fromFoldable = dictFoldable => {
+  const foldMap1 = dictFoldable.foldMap(monoidCatList);
+  return f => foldMap1(singleton)(f);
+};
+const snoc = cat => a => {
+  if (cat.tag === "CatNil") { return $CatList("CatCons", a, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)); }
+  if (cat.tag === "CatCons") {
+    return $CatList(
+      "CatCons",
+      cat._1,
+      Data$dCatQueue.$CatQueue(
+        cat._2._1,
+        Data$dList$dTypes.$List("Cons", $CatList("CatCons", a, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)), cat._2._2)
+      )
+    );
+  }
+  $runtime.fail();
+};
+const unfoldable1CatList = {
+  unfoldr1: f => b => {
+    const go = go$a0$copy => go$a1$copy => {
+      let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+      while (go$c) {
+        const source = go$a0, memo = go$a1;
+        const v = f(source);
+        if (v._2.tag === "Nothing") {
+          if (memo.tag === "CatNil") {
+            go$c = false;
+            go$r = $CatList("CatCons", v._1, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil));
+            continue;
+          }
+          if (memo.tag === "CatCons") {
+            go$c = false;
+            go$r = $CatList(
+              "CatCons",
+              memo._1,
+              Data$dCatQueue.$CatQueue(
+                memo._2._1,
+                Data$dList$dTypes.$List("Cons", $CatList("CatCons", v._1, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)), memo._2._2)
+              )
+            );
+            continue;
+          }
+          $runtime.fail();
+        }
+        if (v._2.tag === "Just") {
+          go$a0 = v._2._1;
+          go$a1 = (() => {
+            if (memo.tag === "CatNil") { return $CatList("CatCons", v._1, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)); }
+            if (memo.tag === "CatCons") {
+              return $CatList(
+                "CatCons",
+                memo._1,
+                Data$dCatQueue.$CatQueue(
+                  memo._2._1,
+                  Data$dList$dTypes.$List("Cons", $CatList("CatCons", v._1, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)), memo._2._2)
+                )
+              );
+            }
+            $runtime.fail();
+          })();
+          continue;
+        }
+        $runtime.fail();
+      }
+      return go$r;
+    };
+    return go(b)(CatNil);
+  }
+};
+const unfoldableCatList = {
+  unfoldr: f => b => {
+    const go = go$a0$copy => go$a1$copy => {
+      let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+      while (go$c) {
+        const source = go$a0, memo = go$a1;
+        const v = f(source);
+        if (v.tag === "Nothing") {
+          go$c = false;
+          go$r = memo;
+          continue;
+        }
+        if (v.tag === "Just") {
+          go$a0 = v._1._2;
+          go$a1 = (() => {
+            if (memo.tag === "CatNil") { return $CatList("CatCons", v._1._1, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)); }
+            if (memo.tag === "CatCons") {
+              return $CatList(
+                "CatCons",
+                memo._1,
+                Data$dCatQueue.$CatQueue(
+                  memo._2._1,
+                  Data$dList$dTypes.$List("Cons", $CatList("CatCons", v._1._1, Data$dCatQueue.$CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)), memo._2._2)
+                )
+              );
+            }
+            $runtime.fail();
+          })();
+          continue;
+        }
+        $runtime.fail();
+      }
+      return go$r;
+    };
+    return go(b)(CatNil);
+  },
+  Unfoldable10: () => unfoldable1CatList
+};
+const altCatList = {alt: link, Functor0: () => functorCatList};
+const plusCatList = {empty: CatNil, Alt0: () => altCatList};
+const alternativeCatList = {Applicative0: () => applicativeCatList, Plus1: () => plusCatList};
+const monadPlusCatList = {Monad0: () => monadCatList, Alternative1: () => alternativeCatList};
+export {
+  $CatList,
+  CatCons,
+  CatNil,
+  altCatList,
+  alternativeCatList,
+  append,
+  applicativeCatList,
+  applyCatList,
+  bindCatList,
+  cons,
+  empty,
+  foldMap,
+  foldableCatList,
+  foldr,
+  fromFoldable,
+  functorCatList,
+  length,
+  link,
+  monadCatList,
+  monadPlusCatList,
+  monoidCatList,
+  $$null as null,
+  plusCatList,
+  semigroupCatList,
+  showCatList,
+  singleton,
+  snoc,
+  traversableCatList,
+  uncons,
+  unfoldable1CatList,
+  unfoldableCatList
+};

package/output-es/Data.CatQueue/index.js

@@ -0,0 +1,364 @@
+// | This module defines a strict double-ended queue.
+// |
+// | The queue implementation is based on a pair of lists where all
+// | operations require `O(1)` amortized time.
+// |
+// | However, any single `uncons` operation may run in `O(n)` time.
+// |
+// | See [Simple and Efficient Purely Functional Queues and Dequeues](http://www.westpoint.edu/eecs/SiteAssets/SitePages/Faculty%20Publication%20Documents/Okasaki/jfp95queue.pdf) (Okasaki 1995)
+import * as $runtime from "../runtime.js";
+import * as Data$dFoldable from "../Data.Foldable/index.js";
+import * as Data$dList$dTypes from "../Data.List.Types/index.js";
+import * as Data$dMaybe from "../Data.Maybe/index.js";
+import * as Data$dOrdering from "../Data.Ordering/index.js";
+import * as Data$dTraversable from "../Data.Traversable/index.js";
+import * as Data$dTuple from "../Data.Tuple/index.js";
+const $CatQueue = (_1, _2) => ({tag: "CatQueue", _1, _2});
+const CatQueue = value0 => value1 => $CatQueue(value0, value1);
+const unsnoc = unsnoc$a0$copy => {
+  let unsnoc$a0 = unsnoc$a0$copy, unsnoc$c = true, unsnoc$r;
+  while (unsnoc$c) {
+    const v = unsnoc$a0;
+    if (v._2.tag === "Cons") {
+      unsnoc$c = false;
+      unsnoc$r = Data$dMaybe.$Maybe("Just", Data$dTuple.$Tuple(v._2._1, $CatQueue(v._1, v._2._2)));
+      continue;
+    }
+    if (v._2.tag === "Nil") {
+      if (v._1.tag === "Nil") {
+        unsnoc$c = false;
+        unsnoc$r = Data$dMaybe.Nothing;
+        continue;
+      }
+      unsnoc$a0 = $CatQueue(
+        Data$dList$dTypes.Nil,
+        (() => {
+          const go = go$a0$copy => go$a1$copy => {
+            let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+            while (go$c) {
+              const v$1 = go$a0, v1 = go$a1;
+              if (v1.tag === "Nil") {
+                go$c = false;
+                go$r = v$1;
+                continue;
+              }
+              if (v1.tag === "Cons") {
+                go$a0 = Data$dList$dTypes.$List("Cons", v1._1, v$1);
+                go$a1 = v1._2;
+                continue;
+              }
+              $runtime.fail();
+            }
+            return go$r;
+          };
+          return go(Data$dList$dTypes.Nil)(v._1);
+        })()
+      );
+      continue;
+    }
+    $runtime.fail();
+  }
+  return unsnoc$r;
+};
+const uncons = uncons$a0$copy => {
+  let uncons$a0 = uncons$a0$copy, uncons$c = true, uncons$r;
+  while (uncons$c) {
+    const v = uncons$a0;
+    if (v._1.tag === "Nil") {
+      if (v._2.tag === "Nil") {
+        uncons$c = false;
+        uncons$r = Data$dMaybe.Nothing;
+        continue;
+      }
+      uncons$a0 = $CatQueue(
+        (() => {
+          const go = go$a0$copy => go$a1$copy => {
+            let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+            while (go$c) {
+              const v$1 = go$a0, v1 = go$a1;
+              if (v1.tag === "Nil") {
+                go$c = false;
+                go$r = v$1;
+                continue;
+              }
+              if (v1.tag === "Cons") {
+                go$a0 = Data$dList$dTypes.$List("Cons", v1._1, v$1);
+                go$a1 = v1._2;
+                continue;
+              }
+              $runtime.fail();
+            }
+            return go$r;
+          };
+          return go(Data$dList$dTypes.Nil)(v._2);
+        })(),
+        Data$dList$dTypes.Nil
+      );
+      continue;
+    }
+    if (v._1.tag === "Cons") {
+      uncons$c = false;
+      uncons$r = Data$dMaybe.$Maybe("Just", Data$dTuple.$Tuple(v._1._1, $CatQueue(v._1._2, v._2)));
+      continue;
+    }
+    $runtime.fail();
+  }
+  return uncons$r;
+};
+const snoc = v => a => $CatQueue(v._1, Data$dList$dTypes.$List("Cons", a, v._2));
+const showCatQueue = dictShow => {
+  const $0 = Data$dList$dTypes.showList(dictShow);
+  return {show: v => "(CatQueue " + $0.show(v._1) + " " + $0.show(v._2) + ")"};
+};
+const $$null = v => v._1.tag === "Nil" && v._2.tag === "Nil";
+const length = v => {
+  const go = go$a0$copy => go$a1$copy => {
+    let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+    while (go$c) {
+      const b = go$a0, v$1 = go$a1;
+      if (v$1.tag === "Nil") {
+        go$c = false;
+        go$r = b;
+        continue;
+      }
+      if (v$1.tag === "Cons") {
+        go$a0 = b + 1 | 0;
+        go$a1 = v$1._2;
+        continue;
+      }
+      $runtime.fail();
+    }
+    return go$r;
+  };
+  const go$1 = go$1$a0$copy => go$1$a1$copy => {
+    let go$1$a0 = go$1$a0$copy, go$1$a1 = go$1$a1$copy, go$1$c = true, go$1$r;
+    while (go$1$c) {
+      const b = go$1$a0, v$1 = go$1$a1;
+      if (v$1.tag === "Nil") {
+        go$1$c = false;
+        go$1$r = b;
+        continue;
+      }
+      if (v$1.tag === "Cons") {
+        go$1$a0 = b + 1 | 0;
+        go$1$a1 = v$1._2;
+        continue;
+      }
+      $runtime.fail();
+    }
+    return go$1$r;
+  };
+  return go(0)(v._1) + go$1(0)(v._2) | 0;
+};
+const functorCatQueue = {map: f => v => $CatQueue(Data$dList$dTypes.listMap(f)(v._1), Data$dList$dTypes.listMap(f)(v._2))};
+const foldableCatQueue = {
+  foldMap: dictMonoid => {
+    const mempty = dictMonoid.mempty;
+    return f => foldableCatQueue.foldl(acc => x => dictMonoid.Semigroup0().append(acc)(f(x)))(mempty);
+  },
+  foldr: f => Data$dFoldable.foldrDefault(foldableCatQueue)(f),
+  foldl: f => {
+    const go = go$a0$copy => go$a1$copy => {
+      let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+      while (go$c) {
+        const acc = go$a0, q = go$a1;
+        const v = uncons(q);
+        if (v.tag === "Just") {
+          go$a0 = f(acc)(v._1._1);
+          go$a1 = v._1._2;
+          continue;
+        }
+        if (v.tag === "Nothing") {
+          go$c = false;
+          go$r = acc;
+          continue;
+        }
+        $runtime.fail();
+      }
+      return go$r;
+    };
+    return go;
+  }
+};
+const semigroupCatQueue = /* #__PURE__ */ (() => ({append: foldableCatQueue.foldl(snoc)}))();
+const empty = /* #__PURE__ */ $CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil);
+const monoidCatQueue = {mempty: /* #__PURE__ */ $CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil), Semigroup0: () => semigroupCatQueue};
+const singleton = a => $CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.$List("Cons", a, Data$dList$dTypes.Nil));
+const fromFoldable = dictFoldable => {
+  const foldMap = dictFoldable.foldMap(monoidCatQueue);
+  return f => foldMap(singleton)(f);
+};
+const traversableCatQueue = {
+  traverse: dictApplicative => {
+    const Apply0 = dictApplicative.Apply0();
+    return f => {
+      const $0 = Apply0.Functor0().map(foldableCatQueue.foldl(snoc)($CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil)));
+      const $1 = foldableCatQueue.foldl(acc => x => Apply0.apply(Apply0.Functor0().map(snoc)(acc))(f(x)))(dictApplicative.pure($CatQueue(
+        Data$dList$dTypes.Nil,
+        Data$dList$dTypes.Nil
+      )));
+      return x => $0($1(x));
+    };
+  },
+  sequence: dictApplicative => traversableCatQueue.traverse(dictApplicative)(Data$dTraversable.identity),
+  Functor0: () => functorCatQueue,
+  Foldable1: () => foldableCatQueue
+};
+const unfoldable1CatQueue = {
+  unfoldr1: f => b => {
+    const go = go$a0$copy => go$a1$copy => {
+      let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+      while (go$c) {
+        const source = go$a0, memo = go$a1;
+        const v = f(source);
+        if (v._2.tag === "Nothing") {
+          go$c = false;
+          go$r = $CatQueue(memo._1, Data$dList$dTypes.$List("Cons", v._1, memo._2));
+          continue;
+        }
+        if (v._2.tag === "Just") {
+          go$a0 = v._2._1;
+          go$a1 = $CatQueue(memo._1, Data$dList$dTypes.$List("Cons", v._1, memo._2));
+          continue;
+        }
+        $runtime.fail();
+      }
+      return go$r;
+    };
+    return go(b)($CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil));
+  }
+};
+const unfoldableCatQueue = {
+  unfoldr: f => b => {
+    const go = go$a0$copy => go$a1$copy => {
+      let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+      while (go$c) {
+        const source = go$a0, memo = go$a1;
+        const v = f(source);
+        if (v.tag === "Nothing") {
+          go$c = false;
+          go$r = memo;
+          continue;
+        }
+        if (v.tag === "Just") {
+          go$a0 = v._1._2;
+          go$a1 = $CatQueue(memo._1, Data$dList$dTypes.$List("Cons", v._1._1, memo._2));
+          continue;
+        }
+        $runtime.fail();
+      }
+      return go$r;
+    };
+    return go(b)($CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil));
+  },
+  Unfoldable10: () => unfoldable1CatQueue
+};
+const cqEq = dictEq => {
+  const go = xs => ys => {
+    const v = uncons(ys);
+    const v1 = uncons(xs);
+    if (v1.tag === "Just") { return v.tag === "Just" && dictEq.eq(v1._1._1)(v._1._1) && go(v1._1._2)(v._1._2); }
+    return v1.tag === "Nothing" && v.tag === "Nothing";
+  };
+  return go;
+};
+const eqCatQueue = dictEq => ({eq: cqEq(dictEq)});
+const cqCompare = dictOrd => {
+  const go = go$a0$copy => go$a1$copy => {
+    let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+    while (go$c) {
+      const xs = go$a0, ys = go$a1;
+      const v = uncons(ys);
+      const v1 = uncons(xs);
+      if (v1.tag === "Just") {
+        if (v.tag === "Just") {
+          const v2 = dictOrd.compare(v1._1._1)(v._1._1);
+          if (v2 === "EQ") {
+            go$a0 = v1._1._2;
+            go$a1 = v._1._2;
+            continue;
+          }
+          go$c = false;
+          go$r = v2;
+          continue;
+        }
+        if (v.tag === "Nothing") {
+          go$c = false;
+          go$r = Data$dOrdering.GT;
+          continue;
+        }
+        $runtime.fail();
+      }
+      if (v1.tag === "Nothing") {
+        if (v.tag === "Just") {
+          go$c = false;
+          go$r = Data$dOrdering.LT;
+          continue;
+        }
+        if (v.tag === "Nothing") {
+          go$c = false;
+          go$r = Data$dOrdering.EQ;
+          continue;
+        }
+      }
+      $runtime.fail();
+    }
+    return go$r;
+  };
+  return go;
+};
+const ordCatQueue = dictOrd => {
+  const eqCatQueue1 = {eq: cqEq(dictOrd.Eq0())};
+  return {compare: cqCompare(dictOrd), Eq0: () => eqCatQueue1};
+};
+const cons = a => v => $CatQueue(Data$dList$dTypes.$List("Cons", a, v._1), v._2);
+const monadCatQueue = {Applicative0: () => applicativeCatQueue, Bind1: () => bindCatQueue$lazy()};
+const applyCatQueue = {apply: f => a => bindCatQueue$lazy().bind(f)(f$p => bindCatQueue$lazy().bind(a)(a$p => applicativeCatQueue.pure(f$p(a$p)))), Functor0: () => functorCatQueue};
+const applicativeCatQueue = {pure: singleton, Apply0: () => applyCatQueue};
+const bindCatQueue$lazy = /* #__PURE__ */ $runtime.binding(() => (
+  {
+    bind: (() => {
+      const $0 = foldableCatQueue.foldMap(monoidCatQueue);
+      return b => a => $0(a)(b);
+    })(),
+    Apply0: () => applyCatQueue
+  }
+));
+const bindCatQueue = /* #__PURE__ */ bindCatQueue$lazy();
+const altCatQueue = /* #__PURE__ */ (() => ({alt: semigroupCatQueue.append, Functor0: () => functorCatQueue}))();
+const plusCatQueue = {empty: /* #__PURE__ */ $CatQueue(Data$dList$dTypes.Nil, Data$dList$dTypes.Nil), Alt0: () => altCatQueue};
+const alternativeCatQueue = {Applicative0: () => applicativeCatQueue, Plus1: () => plusCatQueue};
+const monadPlusCatQueue = {Monad0: () => monadCatQueue, Alternative1: () => alternativeCatQueue};
+export {
+  $CatQueue,
+  CatQueue,
+  altCatQueue,
+  alternativeCatQueue,
+  applicativeCatQueue,
+  applyCatQueue,
+  bindCatQueue,
+  cons,
+  cqCompare,
+  cqEq,
+  empty,
+  eqCatQueue,
+  foldableCatQueue,
+  fromFoldable,
+  functorCatQueue,
+  length,
+  monadCatQueue,
+  monadPlusCatQueue,
+  monoidCatQueue,
+  $$null as null,
+  ordCatQueue,
+  plusCatQueue,
+  semigroupCatQueue,
+  showCatQueue,
+  singleton,
+  snoc,
+  traversableCatQueue,
+  uncons,
+  unfoldable1CatQueue,
+  unfoldableCatQueue,
+  unsnoc
+};

package/output-es/Data.Char/index.js

@@ -0,0 +1,5 @@
+// | A type and functions for single characters.
+import * as Data$dEnum from "../Data.Enum/index.js";
+const toCharCode = Data$dEnum.toCharCode;
+const fromCharCode = Data$dEnum.charToEnum;
+export {fromCharCode, toCharCode};