@explorable-viz/fluid 0.7.90 → 0.7.91

package/dist/fluid/shared/fluid.mjs

@@ -2662,17 +2662,6 @@ var applyStateT = (dictMonad) => {
   };
 };
 var applicativeStateT = (dictMonad) => ({ pure: (a) => (s) => dictMonad.Applicative0().pure($Tuple(a, s)), Apply0: () => applyStateT(dictMonad) });
-var monadEffectState = (dictMonadEffect) => {
-  const Monad0 = dictMonadEffect.Monad0();
-  const monadStateT1 = { Applicative0: () => applicativeStateT(Monad0), Bind1: () => bindStateT(Monad0) };
-  return {
-    liftEffect: (x) => {
-      const $0 = dictMonadEffect.liftEffect(x);
-      return (s) => Monad0.Bind1().bind($0)((x$1) => Monad0.Applicative0().pure($Tuple(x$1, s)));
-    },
-    Monad0: () => monadStateT1
-  };
-};
 var monadRecStateT = (dictMonadRec) => {
   const Monad0 = dictMonadRec.Monad0();
   const monadStateT1 = { Applicative0: () => applicativeStateT(Monad0), Bind1: () => bindStateT(Monad0) };
@@ -2711,20 +2700,6 @@ var monadErrorStateT = (dictMonadError) => {
 
 // output-es/Effect.Aff.Class/index.js
 var monadAffAff = { liftAff: (x) => x, MonadEffect0: () => monadEffectAff };
-var monadAffState = (dictMonadAff) => {
-  const MonadEffect0 = dictMonadAff.MonadEffect0();
-  const monadEffectState2 = monadEffectState(MonadEffect0);
-  return {
-    liftAff: (() => {
-      const $0 = MonadEffect0.Monad0();
-      return (x) => {
-        const $1 = dictMonadAff.liftAff(x);
-        return (s) => $0.Bind1().bind($1)((x$1) => $0.Applicative0().pure($Tuple(x$1, s)));
-      };
-    })(),
-    MonadEffect0: () => monadEffectState2
-  };
-};
 
 // output-es/Effect.Console/foreign.js
 var log = function(s) {
@@ -10169,8 +10144,8 @@ var dataTypes = /* @__PURE__ */ foldrArray(Cons)(Nil)([
   /* @__PURE__ */ dataType("View")([
     /* @__PURE__ */ $Tuple("BarChart", 1),
     /* @__PURE__ */ $Tuple("LineChart", 1),
-    /* @__PURE__ */ $Tuple("MultiView", 1),
     /* @__PURE__ */ $Tuple("Paragraph", 1),
+    /* @__PURE__ */ $Tuple("MultiView", 1),
     /* @__PURE__ */ $Tuple("ScatterPlot", 1)
   ]),
   /* @__PURE__ */ dataType("Point")([/* @__PURE__ */ $Tuple("Point", 2)]),
@@ -17986,7 +17961,7 @@ var unary = (dictBoundedJoinSemilattice) => {
               arity: 1,
               op: (dictMonadWithGraphAlloc) => {
                 const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
-                return (dictMonadError) => (dictLoadFile) => (v) => {
+                return (dictMonadError) => (v) => {
                   if (v.tag === "Cons" && v._2.tag === "Nil") {
                     const $0 = v._1._2;
                     return $$new((a) => Val(a)($0))($$$Map("Two", Leaf2, v._1._1, void 0, Leaf2))(f.o.pack(f.fwd(f.i.unpack(v._1._3))));
@@ -18135,7 +18110,7 @@ var binaryZero = (dictBoundedJoinSemilattice) => {
               arity: 2,
               op: (dictMonadWithGraphAlloc) => {
                 const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
-                return (dictMonadError) => (dictLoadFile) => (v) => {
+                return (dictMonadError) => (v) => {
                   if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._2.tag === "Nil") {
                     const $0 = f.i.unpack(v._1._3);
                     const $1 = f.i.unpack(v._2._1._3);
@@ -18183,7 +18158,7 @@ var binary = (dictBoundedJoinSemilattice) => {
               arity: 2,
               op: (dictMonadWithGraphAlloc) => {
                 const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
-                return (dictMonadError) => (dictLoadFile) => (v) => {
+                return (dictMonadError) => (v) => {
                   if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._2.tag === "Nil") {
                     return $$new((a) => Val(a)(None))(insert(ordVertex)(v._2._1._1)()($$$Map(
                       "Two",
@@ -18387,11 +18362,11 @@ var new$p = (dictMonadWithGraphAlloc) => {
   const Monad0 = MonadWithGraph2.Monad0();
   const Bind1 = Monad0.Bind1();
   const fresh = dictMonadWithGraphAlloc.MonadAlloc0().fresh;
-  return (dictLoadFile) => (v) => (v1) => (v2) => (v3) => {
+  return (v) => (v1) => (v2) => (v3) => {
     if (v2.tag === "None") {
       return $$new((\u03B1s$p) => (u$p) => $Val(\u03B1s$p, None, u$p))(v1)(v3);
     }
-    return Bind1.bind(fresh)((\u03B1) => Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(v)((() => {
+    return Bind1.bind(fresh)((\u03B1) => Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(v)((() => {
       const $0 = {};
       $0.this = $Val(\u03B1, None, v3);
       return $0;
@@ -18403,7 +18378,7 @@ var evalDocOpt = (dictMonadWithGraphAlloc) => {
   const Applicative0 = Monad0.Applicative0();
   const $0 = Monad0.Bind1().Apply0().Functor0();
   const sequence2 = traversableList.traverse(Applicative0)(identity5);
-  return (dictLoadFile) => (v) => (v1) => {
+  return (v) => (v1) => {
     if (v1.tag === "None") {
       return Applicative0.pure(None);
     }
@@ -18413,7 +18388,7 @@ var evalDocOpt = (dictMonadWithGraphAlloc) => {
           return Applicative0.pure($DocCommentElem("Token", v2._1));
         }
         if (v2.tag === "Unquote") {
-          return $0.map(Unquote)($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v2._1)(setSet4.empty));
+          return $0.map(Unquote)($$eval(dictMonadWithGraphAlloc)(v)(v2._1)(setSet4.empty));
         }
         fail();
       })(v1._1)));
@@ -18436,7 +18411,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
   const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
   const match1 = match(dictMonadWithGraphAlloc);
   const closeDefs1 = closeDefs(dictMonadWithGraphAlloc);
-  return (dictLoadFile) => (v) => (v1) => (v2) => {
+  return (v) => (v1) => (v2) => {
     if (v1.tag === "Var") {
       return withMsg2("Variable lookup")(lookup$p(MonadThrow0)(showString)(mapEnvStringVal)(v1._1)(v));
     }
@@ -18444,23 +18419,23 @@ var $$eval = (dictMonadWithGraphAlloc) => {
       return withMsg2("Variable lookup")(lookup$p(MonadThrow0)(showString)(mapEnvStringVal)(v1._1)(v));
     }
     if (v1.tag === "Int") {
-      return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Int", v1._3));
+      return new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Int", v1._3));
     }
     if (v1.tag === "Float") {
-      return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Float", v1._3));
+      return new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Float", v1._3));
     }
     if (v1.tag === "Str") {
-      return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Str", v1._3));
+      return new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Str", v1._3));
     }
     if (v1.tag === "Dictionary") {
       const $1 = v1._2;
       const $2 = v1._1;
       return Bind1.bind($0.map(unzip3)(traverse2(traverse3((() => {
-        const $3 = $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v);
+        const $3 = $$eval(dictMonadWithGraphAlloc)(v);
         return (a) => $3(a)(v2);
       })()))(v1._3)))((v3) => {
         const v4 = unzip(listMap((v$1) => $Tuple(v$1._3.tag === "Str" ? v$1._3._1 : typeError(v$1._3)("Str"), v$1._1))(v3._1));
-        return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)($2)()(v2))($1)($BaseVal(
+        return new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)($2)()(v2))($1)($BaseVal(
           "Dictionary",
           fromFoldable17(zipWith2(Tuple)(v4._1)(zipWith2(Tuple)(v4._2)(v3._2)))
         ));
@@ -18492,9 +18467,9 @@ var $$eval = (dictMonadWithGraphAlloc) => {
         };
         return go(0)($3);
       })()))(() => Bind1.bind(traverse2((() => {
-        const $5 = $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v);
+        const $5 = $$eval(dictMonadWithGraphAlloc)(v);
         return (a) => $5(a)(v2);
-      })())($3))((vs) => new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)($4)()(v2))($2)($BaseVal("Constr", $1, vs))));
+      })())($3))((vs) => new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)($4)()(v2))($2)($BaseVal("Constr", $1, vs))));
     }
     if (v1.tag === "Matrix") {
       const $1 = v1._2;
@@ -18502,7 +18477,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
       const $3 = v1._4._1;
       const $4 = v1._4._2;
       const $5 = v1._1;
-      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._5)(v2))((v3) => {
+      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._5)(v2))((v3) => {
         const v5 = intPair.unpack(v3._3);
         const $6 = v5._1._1;
         const $7 = v5._2._1;
@@ -18513,7 +18488,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
           $7
         )) + ")"))(() => Bind1.bind(sequence2(arrayBind(range(1)($6))((i) => [
           sequence2(arrayBind(range(1)($7))((j) => [
-            $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(v)(disjointUnion2((() => {
+            $$eval(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(v)(disjointUnion2((() => {
               const $10 = {};
               $10[$3] = $Val($8, None, $BaseVal("Int", i));
               return $10;
@@ -18523,7 +18498,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
               return $10;
             })())))($2)(v2)
           ]))
-        ])))((vss) => new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)($5)()(v2))($1)($BaseVal(
+        ])))((vss) => new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)($5)()(v2))($1)($BaseVal(
           "Matrix",
           $Tuple(vss, $Tuple($Tuple($6, $8), $Tuple($7, $9)))
         ))));
@@ -18549,7 +18524,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     if (v1.tag === "Project") {
       const $1 = v1._1;
       const $2 = v1._3;
-      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._2)(v2))((v3) => {
+      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._2)(v2))((v3) => {
         if (v3._3.tag === "Dictionary") {
           return Bind1.bind(withMsg2("Dict lookup")(orElse(MonadThrow0)('Key "' + $2 + '" not found')((() => {
             const $3 = _lookup(Nothing, Just, $2, v3._3._1);
@@ -18557,7 +18532,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
               return $Maybe("Just", $3._1._2);
             }
             return Nothing;
-          })())))((v$p) => concatDocs(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v$p)($1));
+          })())))((v$p) => concatDocs(dictMonadWithGraphAlloc)(v)(v$p)($1));
         }
         return MonadThrow0.throwError(error("Found " + intercalate4("\n")(removeDocWS(prettyVal(highlightableVertex).pretty(v3)).lines) + ", expected dictionary"));
       });
@@ -18565,7 +18540,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     if (v1.tag === "DProject") {
       const $1 = v1._1;
       const $2 = v1._3;
-      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._2)(v2))((v3) => Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)($2)(v2))((v$p) => {
+      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._2)(v2))((v3) => Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)($2)(v2))((v$p) => {
         if (v3._3.tag === "Dictionary") {
           if (v$p._3.tag === "Str") {
             return Bind1.bind(withMsg2("Dict lookup")(orElse(MonadThrow0)('Key "' + v$p._3._1 + '" not found')((() => {
@@ -18574,7 +18549,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
                 return $Maybe("Just", $3._1._2);
               }
               return Nothing;
-            })())))((v$p$p) => concatDocs(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v$p$p)($1));
+            })())))((v$p$p) => concatDocs(dictMonadWithGraphAlloc)(v)(v$p$p)($1));
           }
           return MonadThrow0.throwError(error("Found " + intercalate4("\n")(removeDocWS(prettyVal(highlightableVertex).pretty(v$p)).lines) + ", expected string"));
         }
@@ -18584,10 +18559,10 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     if (v1.tag === "App") {
       const $1 = v1._1;
       const $2 = v1._3;
-      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._2)(v2))((v3) => Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)($2)(v2))((v$p) => Bind1.bind(apply2(dictMonadWithGraphAlloc)(dictLoadFile)(v3)(v$p))((v4) => {
+      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._2)(v2))((v3) => Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)($2)(v2))((v$p) => Bind1.bind(apply2(dictMonadWithGraphAlloc)(v3)(v$p))((v4) => {
         const $3 = v4._3;
         const $4 = v4._1;
-        return Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(v)((() => {
+        return Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(v)((() => {
           const $5 = {};
           $5.this = v4;
           return $5;
@@ -18597,23 +18572,23 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     if (v1.tag === "Let") {
       const $1 = v1._2;
       const $2 = v1._1._1;
-      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._1._2)(v2))((v3) => Bind1.bind(match1(v3)($2))((v4) => $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(v)(v4._1))($1)(v4._2._2)));
+      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._1._2)(v2))((v3) => Bind1.bind(match1(v3)($2))((v4) => $$eval(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(v)(v4._1))($1)(v4._2._2)));
     }
     if (v1.tag === "LetRec") {
       const $1 = v1._2;
       const $2 = v1._1._1;
-      return Bind1.bind(closeDefs1(v)(v1._1._2)(insert(ordVertex)($2)()(v2)))((\u03B3$p) => $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(v)(\u03B3$p))($1)(insert(ordVertex)($2)()(v2)));
+      return Bind1.bind(closeDefs1(v)(v1._1._2)(insert(ordVertex)($2)()(v2)))((\u03B3$p) => $$eval(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(v)(\u03B3$p))($1)(insert(ordVertex)($2)()(v2)));
     }
     fail();
   };
 };
 var concatDocs = (dictMonadWithGraphAlloc) => {
   const Monad0 = dictMonadWithGraphAlloc.MonadWithGraph2().Monad0();
-  return (dictLoadFile) => (\u03B3) => (v) => (doc) => {
+  return (\u03B3) => (v) => (doc) => {
     const $0 = v._3;
     const $1 = v._2;
     const $2 = v._1;
-    return Monad0.Bind1().bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(\u03B3)((() => {
+    return Monad0.Bind1().bind(evalDocOpt(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(\u03B3)((() => {
       const $3 = {};
       $3.this = $Val($2, None, $0);
       return $3;
@@ -18627,14 +18602,14 @@ var apply2 = (dictMonadWithGraphAlloc) => {
   const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
   const MonadError1 = dictMonadWithGraphAlloc.MonadError1();
   const MonadThrow0 = MonadError1.MonadThrow0();
-  return (dictLoadFile) => (v) => (v1) => {
+  return (v) => (v1) => {
     const $0 = (v2) => MonadThrow0.throwError(error("Found " + intercalate4("\n")(removeDocWS(prettyVal(highlightableVertex).pretty(v2)).lines) + ", expected function"));
     if (v._3.tag === "Fun") {
       if (v._3._1.tag === "Closure") {
         const $1 = v._1;
         const $2 = v._3._1._1;
         const $3 = v._3._1._3;
-        return Bind1.bind(closeDefs1($2)(v._3._1._2)($$$Map("Two", Leaf2, $1, void 0, Leaf2)))((\u03B32) => Bind1.bind(match1(v1)($3))((v3) => $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(unionWith2((v$1) => identity13)($2)(\u03B32))(v3._1))(v3._2._1.tag === "ContExpr" ? v3._2._1._1 : throwException(error("Expression expected"))())(insert(ordVertex)($1)()(v3._2._2))));
+        return Bind1.bind(closeDefs1($2)(v._3._1._2)($$$Map("Two", Leaf2, $1, void 0, Leaf2)))((\u03B32) => Bind1.bind(match1(v1)($3))((v3) => $$eval(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(unionWith2((v$1) => identity13)($2)(\u03B32))(v3._1))(v3._2._1.tag === "ContExpr" ? v3._2._1._1 : throwException(error("Expression expected"))())(insert(ordVertex)($1)()(v3._2._2))));
       }
       if (v._3._1.tag === "Foreign") {
         const $1 = v._3._1._1._2;
@@ -18665,7 +18640,7 @@ var apply2 = (dictMonadWithGraphAlloc) => {
             $Fun("Foreign", $Tuple(v._3._1._1._1, $1), vs$p)
           ));
         }
-        return $1._1.op(dictMonadWithGraphAlloc)(MonadError1)(dictLoadFile)(vs$p);
+        return $1._1.op(dictMonadWithGraphAlloc)(MonadError1)(vs$p);
       }
       if (v._3._1.tag === "PartialConstr") {
         const $1 = v._1;
@@ -18736,28 +18711,25 @@ var eval_module = (dictMonadWithGraphAlloc) => {
   const eval1 = $$eval(dictMonadWithGraphAlloc);
   const match1 = match(dictMonadWithGraphAlloc);
   const closeDefs1 = closeDefs(dictMonadWithGraphAlloc);
-  return (dictLoadFile) => {
-    const eval2 = eval1(dictLoadFile);
-    return (\u03B3) => {
-      const go = (v) => (v1) => (v2) => {
-        if (v1.tag === "Nil") {
-          return Monad0.Applicative0().pure(v);
+  return (\u03B3) => {
+    const go = (v) => (v1) => (v2) => {
+      if (v1.tag === "Nil") {
+        return Monad0.Applicative0().pure(v);
+      }
+      if (v1.tag === "Cons") {
+        if (v1._1.tag === "Left") {
+          const $1 = v1._2;
+          const $2 = v1._1._1._1;
+          return $0.bind(eval1(unionWith2((v$1) => identity13)(\u03B3)(v))(v1._1._1._2)(v2))((v3) => $0.bind(match1(v3)($2))((v4) => go(unionWith2((v$1) => identity13)(v)(v4._1))($1)(v4._2._2)));
         }
-        if (v1.tag === "Cons") {
-          if (v1._1.tag === "Left") {
-            const $1 = v1._2;
-            const $2 = v1._1._1._1;
-            return $0.bind(eval2(unionWith2((v$1) => identity13)(\u03B3)(v))(v1._1._1._2)(v2))((v3) => $0.bind(match1(v3)($2))((v4) => go(unionWith2((v$1) => identity13)(v)(v4._1))($1)(v4._2._2)));
-          }
-          if (v1._1.tag === "Right") {
-            const $1 = v1._2;
-            return $0.bind(closeDefs1(unionWith2((v$1) => identity13)(\u03B3)(v))(v1._1._1._2)(insert(ordVertex)(v1._1._1._1)()(v2)))((\u03B3$p$p) => go(unionWith2((v$1) => identity13)(v)(\u03B3$p$p))($1)(v2));
-          }
+        if (v1._1.tag === "Right") {
+          const $1 = v1._2;
+          return $0.bind(closeDefs1(unionWith2((v$1) => identity13)(\u03B3)(v))(v1._1._1._2)(insert(ordVertex)(v1._1._1._1)()(v2)))((\u03B3$p$p) => go(unionWith2((v$1) => identity13)(v)(\u03B3$p$p))($1)(v2));
         }
-        fail();
-      };
-      return go(empty);
+      }
+      fail();
     };
+    return go(empty);
   };
 };
 var eval_progCxt = (dictMonadWithGraphAlloc) => {
@@ -18767,21 +18739,18 @@ var eval_progCxt = (dictMonadWithGraphAlloc) => {
   const $1 = Monad0.Applicative0();
   const eval1 = $$eval(dictMonadWithGraphAlloc);
   const concatM1 = concatM(Monad0);
-  return (dictLoadFile) => {
-    const eval_module2 = eval_module1(dictLoadFile);
-    const eval2 = eval1(dictLoadFile);
-    return (v) => concatM1(foldableList.foldr(Cons)(listMap((v1) => (\u03B3) => {
-      const $2 = v1._1;
-      return $0.bind(eval2(\u03B3)(v1._2)(setSet4.empty))((v2) => $1.pure(unionWith2((v$1) => identity13)(\u03B3)((() => {
-        const $3 = {};
-        $3[$2] = v2;
-        return $3;
-      })())));
-    })(reverse2(v.datasets)))(listMap((mod) => (\u03B3) => $0.bind(eval_module2(\u03B3)(mod)(setSet4.empty))((\u03B3$p) => $1.pure(unionWith2((v$1) => identity13)(\u03B3)(\u03B3$p))))(reverse2(v.mods))))(v.primitives);
-  };
+  return (v) => concatM1(foldableList.foldr(Cons)(listMap((v1) => (\u03B3) => {
+    const $2 = v1._1;
+    return $0.bind(eval1(\u03B3)(v1._2)(setSet4.empty))((v2) => $1.pure(unionWith2((v$1) => identity13)(\u03B3)((() => {
+      const $3 = {};
+      $3[$2] = v2;
+      return $3;
+    })())));
+  })(reverse2(v.datasets)))(listMap((mod) => (\u03B3) => $0.bind(eval_module1(\u03B3)(mod)(setSet4.empty))((\u03B3$p) => $1.pure(unionWith2((v$1) => identity13)(\u03B3)(\u03B3$p))))(reverse2(v.mods))))(v.primitives);
 };
-var graphEval = (dictMonadAff) => {
-  const Monad0 = dictMonadAff.MonadEffect0().Monad0();
+var graphEval = (dictMonadError) => {
+  const MonadThrow0 = dictMonadError.MonadThrow0();
+  const Monad0 = MonadThrow0.Monad0();
   const bindStateT2 = bindStateT(Monad0);
   const $0 = monadAllocAllocT(Monad0);
   const fresh1 = $0.fresh;
@@ -18790,47 +18759,29 @@ var graphEval = (dictMonadAff) => {
     Applicative0: () => applicativeStateT(Monad0),
     Bind1: () => bindStateT(Monad0)
   })(graphGraphImpl);
-  const $1 = monadAffState(dictMonadAff).MonadEffect0().Monad0();
-  const $2 = dictMonadAff.MonadEffect0().Monad0();
-  return (dictLoadFile) => (dictMonadError) => {
-    const eval1 = $$eval(monadWithGraphAllocWithGr(dictMonadError))((() => {
-      const loadFile1 = dictLoadFile.loadFile(dictMonadError)(dictMonadAff);
-      return {
-        loadFile: (dictMonadError1) => (dictMonadAff1) => (folders) => {
-          const $3 = loadFile1(folders);
-          return (x) => {
-            const $4 = $3(x);
-            return (s) => $1.Bind1().bind((s$1) => $2.Bind1().bind($4)((x$1) => $2.Applicative0().pure($Tuple(x$1, s$1))))((x$1) => $1.Applicative0().pure($Tuple(
-              x$1,
-              s
-            )));
-          };
-        }
-      };
-    })());
-    const check2 = check(monadThrowStateT(dictMonadError.MonadThrow0()));
-    return (v) => (e) => {
-      const $3 = v["\u03B3"];
-      const $4 = spyFunWhen(false)("fwdSlice")((x) => $Tuple(showVertices(x._1), showEdgeList(toEdgeList(graphGraphImpl)(x._2))))(showGraph(graphGraphImpl))(fwdSlice2);
-      const $5 = spyFunWhen(false)("bwdSlice")((x) => $Tuple(showVertices(x._1), showEdgeList(toEdgeList(graphGraphImpl)(x._2))))(showGraph(graphGraphImpl))(bwdSlice2);
-      return Monad0.Bind1().bind(runAllocT(Monad0)(bindStateT2.bind(alloc(e))((e\u03B1) => bindStateT2.bind(runWithGraphT_spy2(eval1($3)(e\u03B1)(Leaf2))(verticesEnvExprVertex.vertices($EnvExpr(
-        $3,
-        e\u03B1
-      ))))((v1) => {
-        const $6 = v1._1;
-        const $7 = v1._2;
-        return bindStateT2.bind(check2(difference2(ordDVertex$p)(verticesValVertex.vertices($7))(verticesGraphImpl.vertices($6)).tag === "Leaf")("outputs in graph"))(() => applicativeStateT(Monad0).pure($Tuple(
-          $6,
-          $Tuple($EnvExpr($3, e\u03B1), $7)
-        )));
-      })))(v.n))((v1) => Monad0.Applicative0().pure({
-        g: v1._2._2._1,
-        graph_fwd: (a) => (b) => $4($Tuple(a, b)),
-        graph_bwd: (a) => (b) => $5($Tuple(a, b)),
-        "in\u03B1": v1._2._2._2._1,
-        "out\u03B1": v1._2._2._2._2
-      }));
-    };
+  const eval1 = $$eval(monadWithGraphAllocWithGr(dictMonadError));
+  const check2 = check(monadThrowStateT(MonadThrow0));
+  return (v) => (e) => {
+    const $1 = v["\u03B3"];
+    const $2 = spyFunWhen(false)("fwdSlice")((x) => $Tuple(showVertices(x._1), showEdgeList(toEdgeList(graphGraphImpl)(x._2))))(showGraph(graphGraphImpl))(fwdSlice2);
+    const $3 = spyFunWhen(false)("bwdSlice")((x) => $Tuple(showVertices(x._1), showEdgeList(toEdgeList(graphGraphImpl)(x._2))))(showGraph(graphGraphImpl))(bwdSlice2);
+    return Monad0.Bind1().bind(runAllocT(Monad0)(bindStateT2.bind(alloc(e))((e\u03B1) => bindStateT2.bind(runWithGraphT_spy2(eval1($1)(e\u03B1)(Leaf2))(verticesEnvExprVertex.vertices($EnvExpr(
+      $1,
+      e\u03B1
+    ))))((v1) => {
+      const $4 = v1._1;
+      const $5 = v1._2;
+      return bindStateT2.bind(check2(difference2(ordDVertex$p)(verticesValVertex.vertices($5))(verticesGraphImpl.vertices($4)).tag === "Leaf")("outputs in graph"))(() => applicativeStateT(Monad0).pure($Tuple(
+        $4,
+        $Tuple($EnvExpr($1, e\u03B1), $5)
+      )));
+    })))(v.n))((v1) => Monad0.Applicative0().pure({
+      g: v1._2._2._1,
+      graph_fwd: (a) => (b) => $2($Tuple(a, b)),
+      graph_bwd: (a) => (b) => $3($Tuple(a, b)),
+      "in\u03B1": v1._2._2._2._1,
+      "out\u03B1": v1._2._2._2._2
+    }));
   };
 };
 
@@ -19667,9 +19618,6 @@ var monoidRecord = () => (dictMonoidRecord) => {
   return { mempty: dictMonoidRecord.memptyRecord($$Proxy), Semigroup0: () => semigroupRecord1 };
 };
 
-// output-es/File/index.js
-var Folder = (x) => x;
-
 // output-es/Data.CodePoint.Unicode/index.js
 var isUpper = (x) => checkAttr([512, 524288])(x);
 var isSpace = (c) => {
@@ -22980,7 +22928,7 @@ var matrixUpdate = /* @__PURE__ */ $Tuple(
       const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
       return (dictMonadError) => {
         const $$throw2 = $$throw(dictMonadError.MonadThrow0());
-        return (dictLoadFile) => (v) => {
+        return (v) => {
           if (v.tag === "Cons" && v._1._3.tag === "Matrix" && v._2.tag === "Cons" && v._2._1._3.tag === "Constr" && v._2._1._3._2.tag === "Cons" && v._2._1._3._2._1._3.tag === "Int" && v._2._1._3._2._2.tag === "Cons" && v._2._1._3._2._2._1._3.tag === "Int" && v._2._1._3._2._2._2.tag === "Nil" && v._2._2.tag === "Cons" && v._2._2._2.tag === "Nil" && v._2._1._3._1 === "Pair") {
             const $0 = v._2._2._1;
             return $$new((a) => Val(a)(None))($$$Map("Two", Leaf2, v._1._1, void 0, Leaf2))($BaseVal(
@@ -23000,7 +22948,7 @@ var matrixLookup = /* @__PURE__ */ $Tuple(
     arity: 2,
     op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
       const MonadThrow0 = dictMonadError.MonadThrow0();
-      return (dictLoadFile) => (v) => {
+      return (v) => {
         if (v.tag === "Cons" && v._1._3.tag === "Matrix" && v._2.tag === "Cons" && v._2._1._3.tag === "Constr" && v._2._1._3._2.tag === "Cons" && v._2._1._3._2._1._3.tag === "Int" && v._2._1._3._2._2.tag === "Cons" && v._2._1._3._2._2._1._3.tag === "Int" && v._2._1._3._2._2._2.tag === "Nil" && v._2._2.tag === "Nil" && v._2._1._3._1 === "Pair") {
           return MonadThrow0.Monad0().Applicative0().pure(matrixGet(v._2._1._3._2._1._3._1)(v._2._1._3._2._2._1._3._1)(v._1._3._1));
         }
@@ -23033,7 +22981,7 @@ var error_ = /* @__PURE__ */ $Tuple(
     arity: 1,
     op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
       const MonadThrow0 = dictMonadError.MonadThrow0();
-      return (dictLoadFile) => (v) => {
+      return (v) => {
         if (v.tag === "Cons" && v._1._3.tag === "Str" && v._2.tag === "Nil") {
           return MonadThrow0.Monad0().Applicative0().pure(throwException(error(v._1._3._1))());
         }
@@ -23052,7 +23000,7 @@ var dims = /* @__PURE__ */ $Tuple(
       return (dictMonadError) => {
         const MonadThrow0 = dictMonadError.MonadThrow0();
         const $0 = MonadThrow0.Monad0().Bind1();
-        return (dictLoadFile) => (v) => {
+        return (v) => {
           if (v.tag === "Cons" && v._1._3.tag === "Matrix" && v._2.tag === "Nil") {
             const $1 = v._1._3._1._2._2._1;
             const $2 = v._1._1;
@@ -23087,22 +23035,19 @@ var dict_map = /* @__PURE__ */ $Tuple(
         const Monad0 = MonadThrow0.Monad0();
         const Bind1 = Monad0.Bind1();
         const traverse1 = traversableDict.traverse(Monad0.Applicative0());
-        return (dictLoadFile) => {
-          const apply12 = apply5(dictLoadFile);
-          return (v) => {
-            if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
-              const $0 = v._1;
-              const $1 = v._2._1._1;
-              return Bind1.bind(traverse1((v2) => {
-                const $2 = v2._1;
-                return Bind1.Apply0().Functor0().map((v3) => $Tuple($2, v3))(apply12($0)(v2._2));
-              })(v._2._1._3._1))((d$p) => $$new((a) => Val(a)(None))($$$Map("Two", Leaf2, $1, void 0, Leaf2))($BaseVal(
-                "Dictionary",
-                d$p
-              )));
-            }
-            return MonadThrow0.throwError(error("Function and dictionary expected"));
-          };
+        return (v) => {
+          if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
+            const $0 = v._1;
+            const $1 = v._2._1._1;
+            return Bind1.bind(traverse1((v2) => {
+              const $2 = v2._1;
+              return Bind1.Apply0().Functor0().map((v3) => $Tuple($2, v3))(apply5($0)(v2._2));
+            })(v._2._1._3._1))((d$p) => $$new((a) => Val(a)(None))($$$Map("Two", Leaf2, $1, void 0, Leaf2))($BaseVal(
+              "Dictionary",
+              d$p
+            )));
+          }
+          return MonadThrow0.throwError(error("Function and dictionary expected"));
         };
       };
     }
@@ -23121,34 +23066,31 @@ var dict_intersectionWith = /* @__PURE__ */ $Tuple(
         const Bind1 = Monad0.Bind1();
         const Applicative0 = Monad0.Applicative0();
         const $0 = Bind1.Apply0().Functor0();
-        return (dictLoadFile) => {
-          const apply12 = apply5(dictLoadFile);
-          return (v) => {
-            if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Cons" && v._2._2._1._3.tag === "Dictionary" && v._2._2._2.tag === "Nil") {
-              const $1 = v._1;
-              const $2 = v._2._1._1;
-              const $3 = v._2._2._1._1;
-              return Bind1.bind($0.map(Dictionary3)($0.map(DictRep)(traversableDict.traverse(Applicative0)(identity14)(intersectionWith_Object((v2) => (v3) => {
-                const $4 = v3._2;
-                const $5 = v2._1;
-                const $6 = v3._1;
-                return Bind1.bind(Bind1.bind(apply12($1)(v2._2))((a) => apply12(a)($4)))((v4) => Bind1.bind($$new((a) => Val(a)(None))(insert(ordVertex)($6)()($$$Map(
-                  "Two",
-                  Leaf2,
-                  $5,
-                  void 0,
-                  Leaf2
-                )))(v4._3))((v5) => Applicative0.pure($Tuple(v5._1, v4))));
-              })(v._2._1._3._1)(v._2._2._1._3._1)))))((v$p) => $$new((a) => Val(a)(None))(insert(ordVertex)($3)()($$$Map(
+        return (v) => {
+          if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Cons" && v._2._2._1._3.tag === "Dictionary" && v._2._2._2.tag === "Nil") {
+            const $1 = v._1;
+            const $2 = v._2._1._1;
+            const $3 = v._2._2._1._1;
+            return Bind1.bind($0.map(Dictionary3)($0.map(DictRep)(traversableDict.traverse(Applicative0)(identity14)(intersectionWith_Object((v2) => (v3) => {
+              const $4 = v3._2;
+              const $5 = v2._1;
+              const $6 = v3._1;
+              return Bind1.bind(Bind1.bind(apply5($1)(v2._2))((a) => apply5(a)($4)))((v4) => Bind1.bind($$new((a) => Val(a)(None))(insert(ordVertex)($6)()($$$Map(
                 "Two",
                 Leaf2,
-                $2,
+                $5,
                 void 0,
                 Leaf2
-              )))(v$p));
-            }
-            return MonadThrow0.throwError(error("Function and two dictionaries expected"));
-          };
+              )))(v4._3))((v5) => Applicative0.pure($Tuple(v5._1, v4))));
+            })(v._2._1._3._1)(v._2._2._1._3._1)))))((v$p) => $$new((a) => Val(a)(None))(insert(ordVertex)($3)()($$$Map(
+              "Two",
+              Leaf2,
+              $2,
+              void 0,
+              Leaf2
+            )))(v$p));
+          }
+          return MonadThrow0.throwError(error("Function and two dictionaries expected"));
         };
       };
     }
@@ -23160,7 +23102,7 @@ var dict_get = /* @__PURE__ */ $Tuple(
     arity: 2,
     op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
       const MonadThrow0 = dictMonadError.MonadThrow0();
-      return (dictLoadFile) => (v) => {
+      return (v) => {
         if (v.tag === "Cons" && v._1._3.tag === "Str" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
           return orElse(MonadThrow0)('Key "' + v._1._3._1 + '" not found')((() => {
             const $0 = _lookup(Nothing, Just, v._1._3._1, v._2._1._3._1);
@@ -23184,18 +23126,15 @@ var dict_foldl = /* @__PURE__ */ $Tuple(
       return (dictMonadError) => {
         const MonadThrow0 = dictMonadError.MonadThrow0();
         const Monad0 = MonadThrow0.Monad0();
-        return (dictLoadFile) => {
-          const apply12 = apply5(dictLoadFile);
-          return (v) => {
-            if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._2.tag === "Cons" && v._2._2._1._3.tag === "Dictionary" && v._2._2._2.tag === "Nil") {
-              const $0 = v._1;
-              return foldM4(Monad0)((u1) => (v2) => {
-                const $1 = v2._2;
-                return Monad0.Bind1().bind(apply12($0)(u1))((a) => apply12(a)($1));
-              })(v._2._1)(v._2._2._1._3._1);
-            }
-            return MonadThrow0.throwError(error("Function, value and dictionary expected"));
-          };
+        return (v) => {
+          if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._2.tag === "Cons" && v._2._2._1._3.tag === "Dictionary" && v._2._2._2.tag === "Nil") {
+            const $0 = v._1;
+            return foldM4(Monad0)((u1) => (v2) => {
+              const $1 = v2._2;
+              return Monad0.Bind1().bind(apply5($0)(u1))((a) => apply5(a)($1));
+            })(v._2._1)(v._2._2._1._3._1);
+          }
+          return MonadThrow0.throwError(error("Function, value and dictionary expected"));
         };
       };
     }
@@ -23209,7 +23148,7 @@ var dict_disjointUnion = /* @__PURE__ */ $Tuple(
       const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
       return (dictMonadError) => {
         const $$throw2 = $$throw(dictMonadError.MonadThrow0());
-        return (dictLoadFile) => (v) => {
+        return (v) => {
           if (v.tag === "Cons" && v._1._3.tag === "Dictionary" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
             return $$new((a) => Val(a)(None))(insert(ordVertex)(v._2._1._1)()($$$Map(
               "Two",
@@ -23233,7 +23172,7 @@ var dict_difference = /* @__PURE__ */ $Tuple(
       const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
       return (dictMonadError) => {
         const $$throw2 = $$throw(dictMonadError.MonadThrow0());
-        return (dictLoadFile) => (v) => {
+        return (v) => {
           if (v.tag === "Cons" && v._1._3.tag === "Dictionary" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
             return $$new((a) => Val(a)(None))(insert(ordVertex)(v._2._1._1)()($$$Map(
               "Two",
@@ -23255,7 +23194,7 @@ var debugLog = /* @__PURE__ */ $Tuple(
     arity: 1,
     op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
       const MonadThrow0 = dictMonadError.MonadThrow0();
-      return (dictLoadFile) => (v) => {
+      return (v) => {
         if (v.tag === "Cons" && v._2.tag === "Nil") {
           const $0 = v._1;
           return MonadThrow0.Monad0().Applicative0().pure(_trace($0, (v$1) => $0));
@@ -23351,7 +23290,6 @@ var verticesProgCxtVertex = {
 };
 var functorProgCxt = {
   map: (f) => (m) => ({
-    fluidSrcPaths: m.fluidSrcPaths,
     primitives: _fmapObject(m.primitives, functorVal.map(f)),
     mods: listMap(functorModule.map(f))(m.mods),
     datasets: listMap((m$1) => $Tuple(m$1._1, functorExpr.map(f)(m$1._2)))(m.datasets)
@@ -23421,7 +23359,7 @@ var traversableProgCxt = {
     const traverse7 = traversableExpr.traverse(dictApplicative);
     const traverse8 = traversableModule.traverse(dictApplicative);
     const traverse9 = traversableEnv.traverse(dictApplicative);
-    return (f) => (m) => Apply0.apply(Apply0.apply(Apply0.Functor0().map((v1) => (v2) => (v3) => ({ fluidSrcPaths: m.fluidSrcPaths, primitives: v3, mods: v2, datasets: v1 }))(traverse5(traversableTuple.traverse(dictApplicative)(traverse7(f)))(m.datasets)))(traverse5(traverse8(f))(m.mods)))(traverse9(f)(m.primitives));
+    return (f) => (m) => Apply0.apply(Apply0.apply(Apply0.Functor0().map((v1) => (v2) => (v3) => ({ primitives: v3, mods: v2, datasets: v1 }))(traverse5(traversableTuple.traverse(dictApplicative)(traverse7(f)))(m.datasets)))(traverse5(traverse8(f))(m.mods)))(traverse9(f)(m.primitives));
   },
   sequence: (dictApplicative) => (v) => traversableProgCxt.traverse(dictApplicative)(identity25)(v),
   Functor0: () => functorProgCxt,
@@ -23434,6 +23372,7 @@ var concatM2 = (dictMonad) => foldrArray((() => {
   const $0 = dictMonad.Bind1();
   return (f) => (g) => (a) => $0.bind(f(a))(g);
 })())(dictMonad.Applicative0().pure);
+var Folder = (x) => x;
 var parse = (dictMonadError) => {
   const $0 = dictMonadError.MonadThrow0();
   const $1 = $0.Monad0().Applicative0().pure;
@@ -23451,7 +23390,7 @@ var parse = (dictMonadError) => {
     };
   };
 };
-var parseProgram = (dictLoadFile) => (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().bind(dictLoadFile.loadFile(dictMonadError)(dictMonadAff)(folders)(file))((() => {
+var parseProgram = (loadFile2) => (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().bind(loadFile2(folders)(file)(dictMonadAff)(dictMonadError))((() => {
   const $0 = parse(dictMonadError);
   return (a) => $0(a)(topLevel(expr_));
 })());
@@ -23462,22 +23401,18 @@ var module_2 = (dictMonadAff) => {
   return (dictMonadError) => {
     const parse1 = parse(dictMonadError);
     const desugarModuleFwd = moduleFwd(dictMonadError)(boundedLattice2);
-    return (dictLoadFile) => {
-      const loadFile = dictLoadFile.loadFile(dictMonadError)(dictMonadAff);
-      return (folders) => (file) => (v) => {
-        const $0 = v.mods;
-        return Bind1.bind(Applicative0.pure())(() => Bind1.bind(loadFile(folders)(file))((src) => Bind1.bind(Bind1.bind(parse1(src)(module_))(desugarModuleFwd))((mod) => Applicative0.pure({
-          fluidSrcPaths: v.fluidSrcPaths,
-          primitives: v.primitives,
-          mods: $List("Cons", mod, $0),
-          datasets: v.datasets
-        }))));
-      };
+    return (loadFile2) => (folders) => (file) => (v) => {
+      const $0 = v.mods;
+      return Bind1.bind(Applicative0.pure())(() => Bind1.bind(loadFile2(folders)(file)(dictMonadAff)(dictMonadError))((src) => Bind1.bind(Bind1.bind(parse1(src)(module_))(desugarModuleFwd))((mod) => Applicative0.pure({
+        primitives: v.primitives,
+        mods: $List("Cons", mod, $0),
+        datasets: v.datasets
+      }))));
     };
   };
 };
-var initialConfig = (dictMonadAff) => {
-  const Monad0 = dictMonadAff.MonadEffect0().Monad0();
+var initialConfig = (dictMonadError) => {
+  const Monad0 = dictMonadError.MonadThrow0().Monad0();
   const Bind1 = Monad0.Bind1();
   const Applicative0 = Monad0.Applicative0();
   const $0 = monadAllocAllocT(Monad0);
@@ -23488,54 +23423,29 @@ var initialConfig = (dictMonadAff) => {
     Applicative0: () => applicativeStateT(Monad0),
     Bind1: () => bindStateT(Monad0)
   })(graphGraphImpl);
-  const $2 = monadAffState(dictMonadAff).MonadEffect0().Monad0();
-  const $3 = dictMonadAff.MonadEffect0().Monad0();
-  return (dictMonadError) => {
-    const eval_progCxt2 = eval_progCxt(monadWithGraphAllocWithGr(dictMonadError));
-    return (dictLoadFile) => {
-      const eval_progCxt1 = eval_progCxt2((() => {
-        const loadFile1 = dictLoadFile.loadFile(dictMonadError)(dictMonadAff);
-        return {
-          loadFile: (dictMonadError1) => (dictMonadAff1) => (folders) => {
-            const $4 = loadFile1(folders);
-            return (x) => {
-              const $5 = $4(x);
-              return (s) => $2.Bind1().bind((s$1) => $3.Bind1().bind($5)((x$1) => $3.Applicative0().pure($Tuple(x$1, s$1))))((x$1) => $2.Applicative0().pure($Tuple(
-                x$1,
-                s
-              )));
-            };
-          }
-        };
-      })());
-      return (dictFV) => (e) => (progCxt) => Bind1.bind(Applicative0.pure())(() => Bind1.bind(runAllocT(Monad0)($1.bind(alloc(progCxt))((progCxt$p) => $1.bind(runWithGraphT_spy2(eval_progCxt1(progCxt$p))(verticesProgCxtVertex.vertices(progCxt$p)))((v) => applicativeStateT(Monad0).pure($Tuple(
-        progCxt$p,
-        (() => {
-          const $4 = dictFV.fv(e);
-          return filterWithKey2((x) => {
-            const $5 = setSet(ordString).member(x)($4);
-            return (v$1) => $5;
-          })(v._2);
-        })()
-      )))))(0))((v) => Applicative0.pure({ n: v._1, progCxt: v._2._2._1, "\u03B3": v._2._2._2 })));
-    };
-  };
+  const eval_progCxt2 = eval_progCxt(monadWithGraphAllocWithGr(dictMonadError));
+  return (dictFV) => (e) => (progCxt) => Bind1.bind(Applicative0.pure())(() => Bind1.bind(runAllocT(Monad0)($1.bind(alloc(progCxt))((progCxt$p) => $1.bind(runWithGraphT_spy2(eval_progCxt2(progCxt$p))(verticesProgCxtVertex.vertices(progCxt$p)))((v) => applicativeStateT(Monad0).pure($Tuple(
+    progCxt$p,
+    (() => {
+      const $2 = dictFV.fv(e);
+      return filterWithKey2((x) => {
+        const $3 = setSet(ordString).member(x)($2);
+        return (v$1) => $3;
+      })(v._2);
+    })()
+  )))))(0))((v) => Applicative0.pure({ n: v._1, progCxt: v._2._2._1, "\u03B3": v._2._2._2 })));
 };
 var prepConfig = (dictMonadAff) => {
   const Monad0 = dictMonadAff.MonadEffect0().Monad0();
   const $0 = Monad0.Bind1();
-  const initialConfig1 = initialConfig(dictMonadAff);
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
-    const initialConfig2 = initialConfig1(dictMonadError);
-    return (dictLoadFile) => {
-      const initialConfig3 = initialConfig2(dictLoadFile)(fVExpr);
-      return (v) => (file) => (progCxt) => $0.bind(parseProgram(dictLoadFile)(v.fluidSrcPaths)(file)(dictMonadAff)(dictMonadError))((s) => $0.bind(desug1(s))((e) => $0.bind(initialConfig3(e)(progCxt))((gconfig) => Monad0.Applicative0().pure({
-        s,
-        e,
-        gconfig
-      }))));
-    };
+    const initialConfig1 = initialConfig(dictMonadError)(fVExpr);
+    return (v) => (file) => (progCxt) => $0.bind(parseProgram(v.loadFile)(v.fluidSrcPaths)(file)(dictMonadAff)(dictMonadError))((s) => $0.bind(desug1(s))((e) => $0.bind(initialConfig1(e)(progCxt))((gconfig) => Monad0.Applicative0().pure({
+      s,
+      e,
+      gconfig
+    }))));
   };
 };
 var datasetAs = (dictMonadAff) => {
@@ -23543,11 +23453,10 @@ var datasetAs = (dictMonadAff) => {
   const $0 = Monad0.Bind1();
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
-    return (dictLoadFile) => (folders) => (v) => (v1) => {
+    return (loadFile2) => (folders) => (v) => (v1) => {
       const $1 = v1.datasets;
       const $2 = v._1;
-      return $0.bind($0.bind(parseProgram(dictLoadFile)(folders)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
-        fluidSrcPaths: v1.fluidSrcPaths,
+      return $0.bind($0.bind(parseProgram(loadFile2)(folders)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
         primitives: v1.primitives,
         mods: v1.mods,
         datasets: $List("Cons", $Tuple($2, e\u03B1), $1)
@@ -23564,19 +23473,14 @@ var loadProgCxt = (dictMonadAff) => {
   return (dictMonadError) => {
     const module_22 = module_1(dictMonadError);
     const datasetAs2 = datasetAs1(dictMonadError);
-    return (dictLoadFile) => {
-      const module_3 = module_22(dictLoadFile);
-      const datasetAs3 = datasetAs2(dictLoadFile);
-      return (v) => (mods) => (datasets) => $0.bind($0.bind(Monad0.Applicative0().pure({
-        fluidSrcPaths: v.fluidSrcPaths,
-        primitives,
-        mods: Nil,
-        datasets: Nil
-      }))(concatM1(arrayMap(module_3(v.fluidSrcPaths))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
-        const $1 = datasetAs3(v.fluidSrcPaths);
-        return (x) => $1($Tuple(x._1, x._2));
-      })())(datasets)));
-    };
+    return (v) => (mods) => (datasets) => $0.bind($0.bind(Monad0.Applicative0().pure({
+      primitives,
+      mods: Nil,
+      datasets: Nil
+    }))(concatM1(arrayMap(module_22(v.loadFile)(v.fluidSrcPaths))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
+      const $1 = datasetAs2(v.loadFile)(v.fluidSrcPaths);
+      return (x) => $1($Tuple(x._1, x._2));
+    })())(datasets)));
   };
 };
 
@@ -23753,33 +23657,45 @@ var findM = (dictMonad) => {
   const $0 = dictMonad.Bind1().Apply0();
   return (dictFoldable) => (xs) => (f) => (base) => dictFoldable.foldr((x) => (acc) => $0.apply($0.Functor0().map(altMaybe.alt)(acc))(f(x)))(dictMonad.Applicative0().pure(base))(xs);
 };
-var loadFileNodeT = (dictMonadAff) => {
+var loadFile = (folders) => (v) => (dictMonadAff) => {
   const Monad0 = dictMonadAff.MonadEffect0().Monad0();
   const $0 = Monad0.Bind1();
   const findM1 = findM(Monad0)(foldableArray);
-  return (dictMonadError) => ({
-    loadFile: (dictMonadError1) => (dictMonadAff1) => (folders) => (v) => $0.bind(findM1(arrayMap((() => {
-      const $1 = v + ".fld";
-      return (a) => a + "/" + $1;
-    })())(folders))((v1) => $0.bind(dictMonadAff1.liftAff($$try3(toAff1(stat2)(v1))))((stats) => Monad0.Applicative0().pure((() => {
-      if (stats.tag === "Left") {
-        return false;
-      }
-      if (stats.tag === "Right") {
-        return isFileImpl(stats._1);
-      }
-      fail();
-    })() ? $Maybe("Just", v1) : Nothing)))(Nothing))((url) => {
-      if (url.tag === "Nothing") {
-        return throwException(error("File " + v + " not found."))();
-      }
-      if (url.tag === "Just") {
-        return dictMonadAff1.liftAff(toAff2(readTextFile)(UTF8)(url._1));
-      }
-      fail();
-    })
+  return (dictMonadError) => $0.bind(findM1(arrayMap((() => {
+    const $1 = v + ".fld";
+    return (a) => a + "/" + $1;
+  })())(folders))((v1) => $0.bind(dictMonadAff.liftAff($$try3(toAff1(stat2)(v1))))((stats) => Monad0.Applicative0().pure((() => {
+    if (stats.tag === "Left") {
+      return false;
+    }
+    if (stats.tag === "Right") {
+      return isFileImpl(stats._1);
+    }
+    fail();
+  })() ? $Maybe("Just", v1) : Nothing)))(Nothing))((url) => {
+    if (url.tag === "Nothing") {
+      return throwException(error("File " + v + " not found."))();
+    }
+    if (url.tag === "Just") {
+      return dictMonadAff.liftAff(toAff2(readTextFile)(UTF8)(url._1));
+    }
+    fail();
   });
 };
+var loadProgCxt2 = (dictMonadAff) => {
+  const loadProgCxt1 = loadProgCxt(dictMonadAff);
+  return (dictMonadError) => {
+    const loadProgCxt22 = loadProgCxt1(dictMonadError);
+    return (fluidSrcPaths) => loadProgCxt22({ loadFile, fluidSrcPaths });
+  };
+};
+var prepConfig2 = (dictMonadAff) => {
+  const prepConfig1 = prepConfig(dictMonadAff);
+  return (dictMonadError) => {
+    const prepConfig22 = prepConfig1(dictMonadError);
+    return (fluidSrcPaths) => prepConfig22({ loadFile, fluidSrcPaths });
+  };
+};
 
 // output-es/Node.ChildProcess/foreign.js
 import { spawn, exec, execFile, execSync, execFileSync, fork as cp_fork } from "child_process";
@@ -27071,10 +26987,9 @@ var execParserPure = (pprefs) => (pinfo) => (args) => {
 var $BundleArgs = (_1, _2) => ({ tag: "BundleArgs", _1, _2 });
 var $Command = (tag, _1) => ({ tag, _1 });
 var $EvalArgs = (_1) => ({ tag: "EvalArgs", _1 });
-var loadFileNodeT2 = /* @__PURE__ */ loadFileNodeT(monadAffAff)(monadErrorAff);
-var loadProgCxt2 = /* @__PURE__ */ loadProgCxt(monadAffAff)(monadErrorAff)(loadFileNodeT2);
-var prepConfig2 = /* @__PURE__ */ prepConfig(monadAffAff)(monadErrorAff)(loadFileNodeT2);
-var graphEval2 = /* @__PURE__ */ graphEval(monadAffAff)(loadFileNodeT2)(monadErrorAff);
+var loadProgCxt3 = /* @__PURE__ */ loadProgCxt2(monadAffAff)(monadErrorAff);
+var prepConfig3 = /* @__PURE__ */ prepConfig2(monadAffAff)(monadErrorAff);
+var graphEval2 = /* @__PURE__ */ graphEval(monadErrorAff);
 var fromFoldable25 = /* @__PURE__ */ (() => fromFoldableImpl(foldableList.foldr))();
 var Evaluate = (value0) => $Command("Evaluate", value0);
 var BundleWebsite = (value0) => $Command("BundleWebsite", value0);
@@ -27134,7 +27049,7 @@ var parseBundleArgs = /* @__PURE__ */ (() => $Parser(
 var evaluate = (v) => {
   const $0 = v._1.fileName;
   const fluidSrcPaths = [v._1.fluidSrcPath, ...v._1.local ? ["node_modules/@explorable-viz/fluid/dist/fluid/fluid"] : []];
-  return _bind(loadProgCxt2({ fluidSrcPaths })(v._1.imports)(v._1.datasets))((progCxt) => _bind(prepConfig2({ fluidSrcPaths })($0)(progCxt))((v1) => _bind(graphEval2(v1.gconfig)(v1.e))((v2) => _pure(functorVal.map((v$1) => {
+  return _bind(loadProgCxt3(fluidSrcPaths)(v._1.imports)(v._1.datasets))((progCxt) => _bind(prepConfig3(fluidSrcPaths)($0)(progCxt))((v1) => _bind(graphEval2(v1.gconfig)(v1.e))((v2) => _pure(functorVal.map((v$1) => {
   })(v2["out\u03B1"])))));
 };
 var copyOptions = {