@explorable-viz/fluid 0.7.87 → 0.7.89

package/dist/fluid/shared/load-figure.js

@@ -27875,6 +27875,7 @@ var verticesDict = (dictVertices) => {
   const vertices1 = dictVertices.vertices;
   return { vertices: (d) => unions1(arrayMap(vertices1)(values(d))) };
 };
+var typeNameVertexData = { typeName: (v) => v((dictTypeName) => dictTypeName.typeName) };
 var showVertices = (\u03B1s) => "{" + joinWith(", ")(fromFoldable4(map2(ordString)(unsafeCoerce)(\u03B1s))) + "}";
 var showEdgeList = (es) => joinWith("\n")([
   "digraph G {",
@@ -27954,7 +27955,6 @@ var inEdges = (dictGraph) => (g) => (\u03B1s) => {
   return go($0($Tuple(fromFoldable22(\u03B1s), Nil)));
 };
 var addresses = /* @__PURE__ */ map2(ordVertex)((x2) => x2._1);
-var showVertices$p = (x2) => showVertices(addresses(x2));
 
 // output-es/Data.CatQueue/index.js
 var $CatQueue = (_1, _2) => ({ tag: "CatQueue", _1, _2 });
@@ -34182,7 +34182,7 @@ var unions13 = /* @__PURE__ */ (() => {
 var foldMap2 = /* @__PURE__ */ foldMap({ mempty: Leaf2, Semigroup0: () => ({ append: union3(ordDVertex) }) });
 var identity26 = (x2) => x2;
 var boundedLattice = { BoundedJoinSemilattice0: () => boundedJoinSemilatticeUni, BoundedMeetSemilattice1: () => boundedMeetSemilatticeUni };
-var show1 = /* @__PURE__ */ (() => showSet(showString).show)();
+var show3 = /* @__PURE__ */ (() => showSet(showString).show)();
 var fromFoldable8 = /* @__PURE__ */ (() => foldableSet.foldl((m) => (a) => insert3(ordString)(a)()(m))(Leaf2))();
 var setSet1 = /* @__PURE__ */ setSet(ordString);
 var toUnfoldable14 = /* @__PURE__ */ toUnfoldable4(unfoldableList);
@@ -35006,7 +35006,7 @@ var joinSemilatticeBaseVal = (dictJoinSemilattice) => {
   };
 };
 var annUnit = { Highlightable0: () => highlightableUnit, BoundedLattice1: () => boundedLattice };
-var unrestrictGC = (dictBoundedMeetSemilattice) => (\u03B3) => (xs) => assertWith(show1(xs) + " are in environment ")(difference2(ordString)(xs)(mapObjectString.keys(\u03B3)).tag === "Leaf")({
+var unrestrictGC = (dictBoundedMeetSemilattice) => (\u03B3) => (xs) => assertWith(show3(xs) + " are in environment ")(difference2(ordString)(xs)(mapObjectString.keys(\u03B3)).tag === "Leaf")({
   fwd: (\u03B3$p) => assertWith("")(difference2(ordString)(mapObjectString.keys(\u03B3$p))(mapObjectString.keys(\u03B3)).tag === "Leaf")(union(\u03B3$p)(setObjectString.difference((() => {
     const $0 = dictBoundedMeetSemilattice.top;
     return _fmapObject(\u03B3, functorVal.map((v) => $0));
@@ -35014,8 +35014,7 @@ var unrestrictGC = (dictBoundedMeetSemilattice) => (\u03B3) => (xs) => assertWit
   bwd: (\u03B3$p) => assertWith("")(eqMap(eqString)(eqUnit).eq(mapObjectString.keys(\u03B3$p))(mapObjectString.keys(\u03B3)))(filterWithKey((x2) => {
     const $0 = setSet(ordString).member(x2)(xs);
     return (v) => $0;
-  })(\u03B3$p)),
-  connection: void 0
+  })(\u03B3$p))
 });
 var reaches = (\u03C1) => (xs) => {
   const dom_\u03C1 = fromFoldable8(mapObjectString.keys(\u03C1));
@@ -35068,13 +35067,6 @@ var forDefs = (\u03C1) => (\u03C3) => {
     return (v) => $1;
   })(\u03C1);
 };
-var asVal = (e) => {
-  const type$p = e((dictTypeName) => dictTypeName.typeName);
-  if (type$p === "BaseVal") {
-    return $Either("Left", e((dictTypeName) => unsafeCoerce));
-  }
-  return $Either("Right", type$p);
-};
 
 // output-es/Primitive/index.js
 var fanin2 = /* @__PURE__ */ fanin(categoryFn)(choiceFn);
@@ -35531,7 +35523,7 @@ var showSelState = (dictShow) => ({
     ]
   })(ReactiveIsSymbol)))
 });
-var show12 = /* @__PURE__ */ (() => showSelState(showBoolean).show)();
+var show1 = /* @__PURE__ */ (() => showSelState(showBoolean).show)();
 var functorSelState = {
   map: (f) => (m) => {
     if (m.tag === "Inert") {
@@ -35602,7 +35594,7 @@ var selector = (v) => (v1) => {
     fail();
   };
   const $1 = spyWhen(false)("Setting selState of ")(prettyP2)(v1);
-  return $Val(spyWhen(false)("to ")(show12)($0($1._1)), functorBaseVal.map((x2) => spyWhen(false)("to ")(show12)($0(x2)))($1._2));
+  return $Val(spyWhen(false)("to ")(show1)($0($1._1)), functorBaseVal.map((x2) => spyWhen(false)("to ")(show1)($0(x2)))($1._2));
 };
 var selState = (v) => (v1) => (v2) => {
   if (v) {
@@ -38095,7 +38087,7 @@ var runWithGraphT_spy = (dictMonad) => {
   const spyFunWhenM2 = spyFunWhenM(dictMonad.Bind1().Apply0().Functor0());
   return (dictGraph) => {
     const runWithGraphT3 = runWithGraphT2(dictGraph);
-    return (wg) => (\u03B1s) => spyFunWhenM2(false)("runWithGraphT")(showVertices$p)((x2) => showEdgeList(toEdgeList(dictGraph)(x2._1)))(runWithGraphT3(wg))(\u03B1s);
+    return (wg) => (\u03B1s) => spyFunWhenM2(false)("runWithGraphT")((x2) => showVertices(addresses(x2)))((x2) => showEdgeList(toEdgeList(dictGraph)(x2._1)))(runWithGraphT3(wg))(\u03B1s);
   };
 };
 var runWithGraphT_spy1 = /* @__PURE__ */ runWithGraphT_spy(monadIdentity);
@@ -38165,37 +38157,7 @@ var bwdSlice = (dictGraph) => {
     const $0 = v._2;
     const $1 = map2(ordDVertex)((\u03B1) => $Tuple(
       \u03B1,
-      spyWhen(false)("Value found at " + showStringImpl(\u03B1))((x2) => {
-        const $12 = asVal(x2);
-        if ($12.tag === "Left") {
-          if ($12._1.tag === "Int") {
-            return "BV: Int";
-          }
-          if ($12._1.tag === "Float") {
-            return "BV: Float";
-          }
-          if ($12._1.tag === "Str") {
-            return "BV: Str";
-          }
-          if ($12._1.tag === "Constr") {
-            return "BV: Constr";
-          }
-          if ($12._1.tag === "Dictionary") {
-            return "BV: Dictionary";
-          }
-          if ($12._1.tag === "Matrix") {
-            return "BV: Matrix";
-          }
-          if ($12._1.tag === "Fun") {
-            return "BV: Fun";
-          }
-          fail();
-        }
-        if ($12.tag === "Right") {
-          return $12._1;
-        }
-        fail();
-      })(dictGraph.vertexData($0)(\u03B1))
+      spyWhen(false)("Vertex data found at " + showStringImpl(\u03B1))(typeNameVertexData.typeName)(dictGraph.vertexData($0)(\u03B1))
     ))(v._1);
     return runWithGraph_spy(tailRecM((v1) => {
       if (v1["\u03B1s"].tag === "Nil") {
@@ -38210,37 +38172,7 @@ var bwdSlice = (dictGraph) => {
           }
           return bindStateT(monadIdentity).bind(extend3($Tuple(
             $3,
-            spyWhen(false)("Value found at " + showStringImpl($3))((x2) => {
-              const $4 = asVal(x2);
-              if ($4.tag === "Left") {
-                if ($4._1.tag === "Int") {
-                  return "BV: Int";
-                }
-                if ($4._1.tag === "Float") {
-                  return "BV: Float";
-                }
-                if ($4._1.tag === "Str") {
-                  return "BV: Str";
-                }
-                if ($4._1.tag === "Constr") {
-                  return "BV: Constr";
-                }
-                if ($4._1.tag === "Dictionary") {
-                  return "BV: Dictionary";
-                }
-                if ($4._1.tag === "Matrix") {
-                  return "BV: Matrix";
-                }
-                if ($4._1.tag === "Fun") {
-                  return "BV: Fun";
-                }
-                fail();
-              }
-              if ($4.tag === "Right") {
-                return $4._1;
-              }
-              fail();
-            })($2)
+            spyWhen(false)("Vertex data found at " + showStringImpl($3))(typeNameVertexData.typeName)($2)
           ))(v1.pending._1._2))(() => pure2($Step(
             "Loop",
             { visited: insert3(ordVertex)($3)()(v1.visited), "\u03B1s": Nil, pending: v1.pending._2 }
@@ -38281,7 +38213,7 @@ var greaterThanOrEq = /* @__PURE__ */ (() => {
   const $0 = ordTuple(ordInt)(ordInt);
   return (a1) => (a2) => $0.compare(a1)(a2) !== "LT";
 })();
-var show3 = (v) => "(Tuple " + showIntImpl(v._1) + " " + showIntImpl(v._2) + ")";
+var show32 = (v) => "(Tuple " + showIntImpl(v._1) + " " + showIntImpl(v._2) + ")";
 var concatM = (dictMonad) => foldableList.foldr((() => {
   const $0 = dictMonad.Bind1();
   return (f) => (g) => (a) => $0.bind(f(a))(g);
@@ -38409,8 +38341,7 @@ var graphGC = (dictGraph) => {
             const $3 = v["out\u03B1"];
             return {
               fwd: (in\u{1D539}) => select\u03B1s\u{1D539}Vertex3["select\u{1D539}s"]($3)(addresses($0.vertices(v.graph_fwd(select\u03B1s\u{1D539}Vertex22["select\u03B1s"](in\u{1D539})($2))($1)))),
-              bwd: (out\u{1D539}) => select\u03B1s\u{1D539}Vertex22["select\u{1D539}s"]($2)(addresses($0.vertices(v.graph_bwd(select\u03B1s\u{1D539}Vertex3["select\u03B1s"](out\u{1D539})($3))($1)))),
-              connection: void 0
+              bwd: (out\u{1D539}) => select\u03B1s\u{1D539}Vertex22["select\u{1D539}s"]($2)(addresses($0.vertices(v.graph_bwd(select\u03B1s\u{1D539}Vertex3["select\u03B1s"](out\u{1D539})($3))($1))))
             };
           };
         };
@@ -38525,7 +38456,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
         const $6 = v5._2._1;
         const $7 = v5._1._2;
         const $8 = v5._2._2;
-        return Bind1.bind(check(MonadThrow0)(greaterThanOrEq($Tuple($5, $6))($Tuple(1, 1)))("array must be at least (" + show3($Tuple(1, 1)) + "); got (" + show3($Tuple(
+        return Bind1.bind(check(MonadThrow0)(greaterThanOrEq($Tuple($5, $6))($Tuple(1, 1)))("array must be at least (" + show32($Tuple(1, 1)) + "); got (" + show32($Tuple(
           $5,
           $6
         )) + ")"))(() => Bind1.bind(sequence1(arrayBind(range(1)($5))((i) => [
@@ -38607,8 +38538,8 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     }
     if (v1.tag === "LetRec") {
       const $1 = v1._2;
-      const inserted\u03B1 = insert3(ordVertex)(v1._1._1)()(v2);
-      return Bind1.bind(closeDefs1(v)(v1._1._2)(inserted\u03B1))((\u03B3$p) => $$eval(dictMonadWithGraphAlloc)(unionWith((v$1) => identity18)(v)(\u03B3$p))($1)(inserted\u03B1));
+      const $2 = v1._1._1;
+      return Bind1.bind(closeDefs1(v)(v1._1._2)(insert3(ordVertex)($2)()(v2)))((\u03B3$p) => $$eval(dictMonadWithGraphAlloc)(unionWith((v$1) => identity18)(v)(\u03B3$p))($1)(insert3(ordVertex)($2)()(v2)));
     }
     fail();
   };
@@ -38805,8 +38736,8 @@ var graphEval = (dictMonadError) => {
 
 // output-es/GaloisConnection/index.js
 var identity29 = (x2) => x2;
-var semigroupoidGaloisConnect = { compose: (v) => (v1) => ({ fwd: (x2) => v.fwd(v1.fwd(x2)), bwd: (x2) => v1.bwd(v.bwd(x2)), connection: void 0 }) };
-var categoryGaloisConnection = { identity: { fwd: identity29, bwd: identity29, connection: void 0 }, Semigroupoid0: () => semigroupoidGaloisConnect };
+var semigroupoidGaloisConnect = { compose: (v) => (v1) => ({ fwd: (x2) => v.fwd(v1.fwd(x2)), bwd: (x2) => v1.bwd(v.bwd(x2)) }) };
+var categoryGaloisConnection = { identity: { fwd: identity29, bwd: identity29 }, Semigroupoid0: () => semigroupoidGaloisConnect };
 
 // output-es/Parsing.String/index.js
 var updatePosSingle = (v) => (cp) => (after) => {
@@ -38948,13 +38879,13 @@ var hexDigitToInt = (c) => {
 };
 
 // output-es/Parsing.String.Basic/index.js
-var show13 = /* @__PURE__ */ showArrayImpl(showCharImpl);
+var show12 = /* @__PURE__ */ showArrayImpl(showCharImpl);
 var satisfyCP = (p) => satisfy((x2) => p(toCharCode(x2)));
 var space = /* @__PURE__ */ withErrorMessage(/* @__PURE__ */ satisfyCP(isSpace))("space");
 var upper2 = /* @__PURE__ */ withErrorMessage(/* @__PURE__ */ satisfyCP(isUpper))("uppercase letter");
-var oneOf = (ss) => withLazyErrorMessage(satisfy((a) => elem(eqChar)(a)(ss)))((v) => "one of " + show13(ss));
+var oneOf = (ss) => withLazyErrorMessage(satisfy((a) => elem(eqChar)(a)(ss)))((v) => "one of " + show12(ss));
 var octDigit = /* @__PURE__ */ withErrorMessage(/* @__PURE__ */ satisfyCP(isOctDigit))("oct digit");
-var noneOf = (ss) => withLazyErrorMessage(satisfy((a) => notElem(eqChar)(a)(ss)))((v) => "none of " + show13(ss));
+var noneOf = (ss) => withLazyErrorMessage(satisfy((a) => notElem(eqChar)(a)(ss)))((v) => "none of " + show12(ss));
 var letter = /* @__PURE__ */ withErrorMessage(/* @__PURE__ */ satisfyCP(isAlpha))("letter");
 var hexDigit = /* @__PURE__ */ withErrorMessage(/* @__PURE__ */ satisfyCP(isHexDigit))("hex digit");
 var digit = /* @__PURE__ */ withErrorMessage(/* @__PURE__ */ satisfyCP(isDecDigit))("digit");
@@ -42107,7 +42038,7 @@ var greaterThanOrEq1 = /* @__PURE__ */ (() => {
   const $0 = ordTuple(ordInt)(ordInt);
   return (a1) => (a2) => $0.compare(a1)(a2) !== "LT";
 })();
-var show32 = (v) => "(Tuple " + showIntImpl(v._1) + " " + showIntImpl(v._2) + ")";
+var show33 = (v) => "(Tuple " + showIntImpl(v._1) + " " + showIntImpl(v._2) + ")";
 var erase1 = /* @__PURE__ */ (() => functorElim.map((v) => {
 }))();
 var matchMany2 = (dictMonadError) => {
@@ -42360,10 +42291,10 @@ var $$eval2 = (dictMonadError) => {
           const $8 = v4._2._1;
           const $9 = v4._1._2;
           const $10 = v4._2._2;
-          return Bind1.bind(check(MonadThrow0)(greaterThanOrEq1($Tuple($7, $8))($Tuple(1, 1)))("array must be at least (" + show32($Tuple(
+          return Bind1.bind(check(MonadThrow0)(greaterThanOrEq1($Tuple($7, $8))($Tuple(1, 1)))("array must be at least (" + show33($Tuple(
             1,
             1
-          )) + "); got (" + show32($Tuple($7, $8)) + ")"))(() => Bind1.bind(Functor0.map((() => {
+          )) + "); got (" + show33($Tuple($7, $8)) + ")"))(() => Bind1.bind(Functor0.map((() => {
             const $11 = listMap((x2) => {
               const $112 = unzip5(x2);
               return $Tuple(fromFoldable25($112._1), fromFoldable25($112._2));
@@ -43508,8 +43439,8 @@ var dict_intersectionWith = /* @__PURE__ */ $Tuple(
         const MonadThrow0 = dictMonadError.MonadThrow0();
         const Monad0 = MonadThrow0.Monad0();
         const Bind1 = Monad0.Bind1();
-        const $0 = Bind1.Apply0().Functor0();
         const Applicative0 = Monad0.Applicative0();
+        const $0 = Bind1.Apply0().Functor0();
         return (v) => {
           if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._1._2.tag === "Dictionary" && v._2._2.tag === "Cons" && v._2._2._1._2.tag === "Dictionary" && v._2._2._2.tag === "Nil") {
             const $1 = v._1;
@@ -43525,7 +43456,7 @@ var dict_intersectionWith = /* @__PURE__ */ $Tuple(
                 $5,
                 void 0,
                 Leaf2
-              )))(v4._2))((v5) => $0.map(Tuple(v5._1))(Applicative0.pure(v4))));
+              )))(v4._2))((v5) => Applicative0.pure($Tuple(v5._1, v4))));
             })(v._2._1._2._1)(v._2._2._1._2._1)))))((v$p) => $$new(Val)(insert3(ordVertex)($3)()($$$Map(
               "Two",
               Leaf2,
@@ -44260,8 +44191,7 @@ var graphGC1 = /* @__PURE__ */ graphGC2(applyEnvExpr)(applyVal)(foldableEnvExpr)
 var graphGC22 = /* @__PURE__ */ graphGC2(applyVal)(applyEnvExpr)(foldableVal)(foldableEnvExpr);
 var dual = (v) => ({
   fwd: (x2) => _fmapObject(v.bwd(functorEnvExpr.map(boolNot)(x2)), functorVal.map(boolNot)),
-  bwd: (x2) => functorEnvExpr.map(boolNot)(v.fwd(_fmapObject(x2, functorVal.map(boolNot)))),
-  connection: void 0
+  bwd: (x2) => functorEnvExpr.map(boolNot)(v.fwd(_fmapObject(x2, functorVal.map(boolNot))))
 });
 var neg12 = { neg: (x2) => functorSelState.map(boolNot)(x2) };
 var joinSemilatticeSelState = {
@@ -44295,8 +44225,7 @@ var meet2 = /* @__PURE__ */ (() => {
         $Val(functorSelState.map(boolNot)($1), functorBaseVal.map(neg12.neg)($2)),
         $Val(functorSelState.map(boolNot)($1), functorBaseVal.map(neg12.neg)($2))
       );
-    },
-    connection: void 0
+    }
   };
 })();
 var meet1 = {
@@ -44310,8 +44239,7 @@ var meet1 = {
   bwd: (x2) => {
     const $0 = _fmapObject(x2, functorVal.map(neg12.neg));
     return $Tuple(_fmapObject($0, functorVal.map(neg12.neg)), _fmapObject($0, functorVal.map(neg12.neg)));
-  },
-  connection: void 0
+  }
 };
 var sequence_3 = /* @__PURE__ */ traverse_(applicativeEffect)(foldableDict)(identity4);
 var unprojExpr = (dictBoundedMeetSemilattice) => (v) => {
@@ -44324,8 +44252,7 @@ var unprojExpr = (dictBoundedMeetSemilattice) => (v) => {
         return (v$1) => $1;
       })())($0)
     ),
-    bwd: (v1) => v1._1,
-    connection: void 0
+    bwd: (v1) => v1._1
   };
 };
 var setOutputView = (\u03B4vw) => (fig) => ({
@@ -44423,8 +44350,7 @@ var lift = (dictApply) => {
     const $1 = dictApply1.Functor0();
     return (selState_f) => (selState_g) => (v) => ({
       bwd: (v1) => dictApply.apply(dictApply.apply(selState_f)(v.bwd($1.map(getPersistent)(v1))))(v.bwd($1.map(getTransient)(v1))),
-      fwd: (\u03B3) => dictApply1.apply(dictApply1.apply(selState_g)(v.fwd($0.map(getPersistent)(\u03B3))))(v.fwd($0.map(getTransient)(\u03B3))),
-      connection: void 0
+      fwd: (\u03B3) => dictApply1.apply(dictApply1.apply(selState_g)(v.fwd($0.map(getPersistent)(\u03B3))))(v.fwd($0.map(getTransient)(\u03B3)))
     });
   };
 };
@@ -44450,9 +44376,9 @@ var loadFig = (v) => (dictMonadAff) => {
         const v0 = $Val(false, functorBaseVal.map((v$1) => false)(v2["out\u03B1"]._2));
         const $5 = unrestrictGC(boundedMeetSemilatticeBoo)(v3._1)(fromFoldable27($3));
         const $6 = unprojExpr(boundedMeetSemilatticeBoo)($EnvExpr(v3._1, v3._2));
-        const focus = { fwd: (x2) => $6.fwd($5.fwd(x2)), bwd: (x2) => $5.bwd($6.bwd(x2)), connection: void 0 };
+        const focus = { fwd: (x2) => $6.fwd($5.fwd(x2)), bwd: (x2) => $5.bwd($6.bwd(x2)) };
         const $7 = graphGC1(v2);
-        const gc = { fwd: (x2) => $7.fwd(focus.fwd(x2)), bwd: (x2) => focus.bwd($7.bwd(x2)), connection: void 0 };
+        const gc = { fwd: (x2) => $7.fwd(focus.fwd(x2)), bwd: (x2) => focus.bwd($7.bwd(x2)) };
         const $8 = gc.fwd(\u03B30);
         const vInert = $Val(selState($8._1), functorBaseVal.map(selState)($8._2));
         const \u03B3Inert = _fmapObject(
@@ -44467,7 +44393,7 @@ var loadFig = (v) => (dictMonadAff) => {
           "out\u03B1": v2["in\u03B1"]
         });
         const $10 = dual(focus);
-        const gc_dual = { fwd: (x2) => $10.fwd($9.fwd(x2)), bwd: (x2) => $9.bwd($10.bwd(x2)), connection: void 0 };
+        const gc_dual = { fwd: (x2) => $10.fwd($9.fwd(x2)), bwd: (x2) => $9.bwd($10.bwd(x2)) };
         return Monad0.Applicative0().pure({
           spec: v,
           s: $4,
@@ -44484,8 +44410,7 @@ var loadFig = (v) => (dictMonadAff) => {
               bwd: (x2) => {
                 const $13 = meet1.bwd($12.bwd(x2));
                 return $Tuple($11.bwd($13._1), categoryGaloisConnection.identity.bwd($13._2));
-              },
-              connection: void 0
+              }
             };
           })(),
           linkedInputs: (() => {
@@ -44496,8 +44421,7 @@ var loadFig = (v) => (dictMonadAff) => {
               bwd: (x2) => {
                 const $13 = meet2.bwd($12.bwd(x2));
                 return $Tuple($11.bwd($13._1), categoryGaloisConnection.identity.bwd($13._2));
-              },
-              connection: void 0
+              }
             };
           })(),
           dir: LinkedOutputs,

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@explorable-viz/fluid",
-  "version": "0.7.87",
+  "version": "0.7.89",
   "description": "Fluid is an experimental programming language which integrates a bidirectional dynamic analysis to connect outputs to data sources in a fine-grained way. Fluid is implemented in PureScript and runs in the browser.",
   "main": "index.js",
   "repository": {
@@ -30,9 +30,7 @@
     "build": "./script/build.sh",
     "build-test": "./script/build-test.sh",
     "bundle-fluid": "./script/bundle-fluid.sh",
-    "bundle-page": "./script/bundle-page.sh",
     "bundle-website": "./script/bundle-website.sh",
-    "bundle-website-all": "./script/bundle-website-all.sh",
     "fluid": "node ./dist/fluid/shared/fluid.mjs",
     "npm-publish": "./script/npm-publish.sh",
     "serve": "./script/serve.sh",

package/script/bundle-website.sh

@@ -11,54 +11,33 @@ while getopts "w:l" opt; do
 done
 
 PREFIX_=${PREFIX:+$PREFIX/}
-WEBSITE_LISP_CASE=$(. "${PREFIX_}script/util/lisp-case.sh" "$WEBSITE")
-echo "$WEBSITE -> $WEBSITE_LISP_CASE"
-echo "Cleaning dist/$WEBSITE_LISP_CASE"
-. "${PREFIX_}script/util/clean.sh" $WEBSITE_LISP_CASE
-
-. "${PREFIX_}script/bundle-page.sh" $WEBSITE ${PREFIX:+$PREFIX}
+echo "Cleaning dist/$WEBSITE"
+. "${PREFIX_}script/util/clean.sh" $WEBSITE
 
 shopt -s nullglob
 
-# Only support one level of nesting for now
-set +x
-PAGES=($(for FILE in website/$WEBSITE/*.html; do
-   basename "$FILE" | sed 's/\.[^.]*$//'
-done | sort -u))
-set -x
-
-for PAGE in "${PAGES[@]}"; do
-   . "${PREFIX_}script/bundle-page.sh" $WEBSITE.$PAGE ${PREFIX:+$PREFIX}
-done
-
 echo "Processing other static files:"
 set +xu  # try to remove +u
 TO_COPY=()
-shopt -s dotglob
-shopt -s extglob
+shopt -s dotglob extglob
 for CHILD in website/$WEBSITE/!(.|..); do
    BASENAME="$(basename "$CHILD")"
    if [[ "$BASENAME" =~ ^[a-z.] ]]; then
       TO_COPY+=("$CHILD")
    fi
 done
-shopt -u extglob
-shopt -u dotglob
+shopt -u extglob dotglob
 set -xu
 
 for CHILD in "${TO_COPY[@]}"; do
-   cp -rL "$CHILD" dist/$WEBSITE_LISP_CASE
+   cp -rL "$CHILD" dist/$WEBSITE
 done
 
 echo "Processing Fluid source files:"
-cp -r "${PREFIX_}dist/fluid/fluid" dist/$WEBSITE_LISP_CASE
-[ -d "website/$WEBSITE/fluid" ] && cp -r "website/$WEBSITE/fluid" dist/$WEBSITE_LISP_CASE
+cp -r "${PREFIX_}dist/fluid/fluid" dist/$WEBSITE
+[ -d "website/$WEBSITE/fluid" ] && cp -r "website/$WEBSITE/fluid" dist/$WEBSITE
 
 echo "Processing shared JavaScript files:"
-cp -r "${PREFIX_}dist/fluid/shared" dist/$WEBSITE_LISP_CASE
-
-if [[ -e "website/$SRC_PATH/test.mjs" ]]; then
-   cp website/$SRC_PATH/test.mjs dist/SRC_PATH_LISP_CASE/test.mjs
-fi
+cp -r "${PREFIX_}dist/fluid/shared" dist/$WEBSITE
 
 echo "Bundled website $WEBSITE"

package/.spago/affjax-node/v1.0.0/.editorconfig

@@ -1,13 +0,0 @@
-# https://editorconfig.org
-root = true
-
-[*]
-indent_style = space
-indent_size = 2
-end_of_line = lf
-charset = utf-8
-trim_trailing_whitespace = true
-insert_final_newline = true
-
-[*.md]
-trim_trailing_whitespace = false

package/.spago/affjax-node/v1.0.0/.eslintrc.json

@@ -1,30 +0,0 @@
-{
-  "env": { "browser": true },
-  "extends": "eslint:recommended",
-  "parserOptions": { "ecmaVersion": 6, "sourceType": "module" },
-  "rules": {
-    "block-scoped-var": "error",
-    "consistent-return": "error",
-    "eqeqeq": "error",
-    "guard-for-in": "error",
-    "no-bitwise": "error",
-    "no-caller": "error",
-    "no-constant-condition": ["error", { "checkLoops": false }],
-    "no-extra-parens": "off",
-    "no-extend-native": "error",
-    "no-loop-func": "error",
-    "no-new": "error",
-    "no-param-reassign": "error",
-    "no-return-assign": "error",
-    "no-sequences": "error",
-    "no-unused-expressions": "error",
-    "no-use-before-define": "error",
-    "no-undef": "error",
-    "no-eq-null": "error",
-    "radix": ["error", "always"],
-    "indent": ["error", 2, { "SwitchCase": 0 }],
-    "quotes": ["error", "double"],
-    "semi": ["error", "always"],
-    "strict": ["error", "global"]
-  }
-}

package/.spago/affjax-node/v1.0.0/.gitignore

@@ -1,13 +0,0 @@
-.*
-!.gitignore
-!.github
-!.editorconfig
-!.eslintrc.json
-
-output
-generated-docs
-bower_components
-
-node_modules
-package-lock.json
-*.lock

package/.spago/pathy/v9.0.0/.editorconfig

@@ -1,13 +0,0 @@
-# https://editorconfig.org
-root = true
-
-[*]
-indent_style = space
-indent_size = 2
-end_of_line = lf
-charset = utf-8
-trim_trailing_whitespace = true
-insert_final_newline = true
-
-[*.md]
-trim_trailing_whitespace = false

package/.spago/pathy/v9.0.0/.gitignore

@@ -1,9 +0,0 @@
-.*
-!.gitignore
-!.github
-!.editorconfig
-!.tidyrc.json
-
-output
-generated-docs
-bower_components

package/.spago/pathy/v9.0.0/.tidyrc.json

@@ -1,10 +0,0 @@
-{
-  "importSort": "source",
-  "importWrap": "source",
-  "indent": 2,
-  "operatorsFile": null,
-  "ribbon": 1,
-  "typeArrowPlacement": "first",
-  "unicode": "never",
-  "width": null
-}

package/script/bundle-page.sh

@@ -1,30 +0,0 @@
-#!/usr/bin/env bash
-# run from project root
-set -xe
-
-PREFIX=""
-
-if [ -n "${2:-}" ]; then
-   PREFIX=$2
-fi
-
-MODULE=$1
-SRC_PATH=${MODULE//./\/}
-SRC_PATH_LISP_CASE=$(./$PREFIX/script/util/lisp-case.sh "$SRC_PATH")
-echo "$SRC_PATH -> $SRC_PATH_LISP_CASE"
-
-if [[ -e "website/$SRC_PATH.purs" ]]; then
-   . "${PREFIX:+$PREFIX}/script/util/bundle.sh" $SRC_PATH_LISP_CASE Website.$MODULE
-
-   if [[ -e "website/$SRC_PATH.html" ]]; then
-      cp website/$SRC_PATH.html dist/$SRC_PATH_LISP_CASE/index.html
-   else
-      cp website/template.html dist/$SRC_PATH_LISP_CASE/index.html
-   fi
-fi
-
-if [[ -e "website/$SRC_PATH.json" ]]; then
-   mkdir -p dist/$SRC_PATH_LISP_CASE
-   cp website/$SRC_PATH.html dist/$SRC_PATH_LISP_CASE/index.html
-   cp website/$SRC_PATH.json dist/$SRC_PATH_LISP_CASE/spec.json
-fi