@explorable-viz/fluid 0.7.95 → 0.7.96

package/dist/fluid/shared/fluid.mjs

@@ -264,17 +264,8 @@ var pureE = function(a) {
     return a;
   };
 };
-var bindE = function(a) {
-  return function(f) {
-    return function() {
-      return f(a())();
-    };
-  };
-};
 
 // output-es/Effect/index.js
-var monadEffect = { Applicative0: () => applicativeEffect, Bind1: () => bindEffect };
-var bindEffect = { bind: bindE, Apply0: () => applyEffect };
 var applyEffect = {
   apply: (f) => (a) => () => {
     const f$p = f();
@@ -2662,6 +2653,17 @@ 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) };
@@ -2700,6 +2702,20 @@ 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) {
@@ -10144,8 +10160,8 @@ var dataTypes = /* @__PURE__ */ foldrArray(Cons)(Nil)([
   /* @__PURE__ */ dataType("View")([
     /* @__PURE__ */ $Tuple("BarChart", 1),
     /* @__PURE__ */ $Tuple("LineChart", 1),
-    /* @__PURE__ */ $Tuple("Paragraph", 1),
     /* @__PURE__ */ $Tuple("MultiView", 1),
+    /* @__PURE__ */ $Tuple("Paragraph", 1),
     /* @__PURE__ */ $Tuple("ScatterPlot", 1)
   ]),
   /* @__PURE__ */ dataType("Point")([/* @__PURE__ */ $Tuple("Point", 2)]),
@@ -17961,7 +17977,7 @@ var unary = (dictBoundedJoinSemilattice) => {
               arity: 1,
               op: (dictMonadWithGraphAlloc) => {
                 const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
-                return (dictMonadError) => (v) => {
+                return (dictMonadError) => (dictLoadFile) => (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))));
@@ -18110,7 +18126,7 @@ var binaryZero = (dictBoundedJoinSemilattice) => {
               arity: 2,
               op: (dictMonadWithGraphAlloc) => {
                 const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
-                return (dictMonadError) => (v) => {
+                return (dictMonadError) => (dictLoadFile) => (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);
@@ -18158,7 +18174,7 @@ var binary = (dictBoundedJoinSemilattice) => {
               arity: 2,
               op: (dictMonadWithGraphAlloc) => {
                 const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
-                return (dictMonadError) => (v) => {
+                return (dictMonadError) => (dictLoadFile) => (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",
@@ -18362,11 +18378,11 @@ var new$p = (dictMonadWithGraphAlloc) => {
   const Monad0 = MonadWithGraph2.Monad0();
   const Bind1 = Monad0.Bind1();
   const fresh = dictMonadWithGraphAlloc.MonadAlloc0().fresh;
-  return (v) => (v1) => (v2) => (v3) => {
+  return (dictLoadFile) => (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)(unionWith2((v$1) => identity13)(v)((() => {
+    return Bind1.bind(fresh)((\u03B1) => Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(v)((() => {
       const $0 = {};
       $0.this = $Val(\u03B1, None, v3);
       return $0;
@@ -18378,7 +18394,7 @@ var evalDocOpt = (dictMonadWithGraphAlloc) => {
   const Applicative0 = Monad0.Applicative0();
   const $0 = Monad0.Bind1().Apply0().Functor0();
   const sequence2 = traversableList.traverse(Applicative0)(identity5);
-  return (v) => (v1) => {
+  return (dictLoadFile) => (v) => (v1) => {
     if (v1.tag === "None") {
       return Applicative0.pure(None);
     }
@@ -18388,7 +18404,7 @@ var evalDocOpt = (dictMonadWithGraphAlloc) => {
           return Applicative0.pure($DocCommentElem("Token", v2._1));
         }
         if (v2.tag === "Unquote") {
-          return $0.map(Unquote)($$eval(dictMonadWithGraphAlloc)(v)(v2._1)(setSet4.empty));
+          return $0.map(Unquote)($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v2._1)(setSet4.empty));
         }
         fail();
       })(v1._1)));
@@ -18411,7 +18427,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
   const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
   const match1 = match(dictMonadWithGraphAlloc);
   const closeDefs1 = closeDefs(dictMonadWithGraphAlloc);
-  return (v) => (v1) => (v2) => {
+  return (dictLoadFile) => (v) => (v1) => (v2) => {
     if (v1.tag === "Var") {
       return withMsg2("Variable lookup")(lookup$p(MonadThrow0)(showString)(mapEnvStringVal)(v1._1)(v));
     }
@@ -18419,23 +18435,23 @@ var $$eval = (dictMonadWithGraphAlloc) => {
       return withMsg2("Variable lookup")(lookup$p(MonadThrow0)(showString)(mapEnvStringVal)(v1._1)(v));
     }
     if (v1.tag === "Int") {
-      return new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Int", v1._3));
+      return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Int", v1._3));
     }
     if (v1.tag === "Float") {
-      return new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Float", v1._3));
+      return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Float", v1._3));
     }
     if (v1.tag === "Str") {
-      return new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Str", v1._3));
+      return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(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)(v);
+        const $3 = $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(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)(v)(insert(ordVertex)($2)()(v2))($1)($BaseVal(
+        return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)($2)()(v2))($1)($BaseVal(
           "Dictionary",
           fromFoldable17(zipWith2(Tuple)(v4._1)(zipWith2(Tuple)(v4._2)(v3._2)))
         ));
@@ -18467,9 +18483,9 @@ var $$eval = (dictMonadWithGraphAlloc) => {
         };
         return go(0)($3);
       })()))(() => Bind1.bind(traverse2((() => {
-        const $5 = $$eval(dictMonadWithGraphAlloc)(v);
+        const $5 = $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v);
         return (a) => $5(a)(v2);
-      })())($3))((vs) => new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)($4)()(v2))($2)($BaseVal("Constr", $1, vs))));
+      })())($3))((vs) => new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)($4)()(v2))($2)($BaseVal("Constr", $1, vs))));
     }
     if (v1.tag === "Matrix") {
       const $1 = v1._2;
@@ -18477,7 +18493,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
       const $3 = v1._4._1;
       const $4 = v1._4._2;
       const $5 = v1._1;
-      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._5)(v2))((v3) => {
+      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._5)(v2))((v3) => {
         const v5 = intPair.unpack(v3._3);
         const $6 = v5._1._1;
         const $7 = v5._2._1;
@@ -18488,7 +18504,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
           $7
         )) + ")"))(() => Bind1.bind(sequence2(arrayBind(range(1)($6))((i) => [
           sequence2(arrayBind(range(1)($7))((j) => [
-            $$eval(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(v)(disjointUnion2((() => {
+            $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(v)(disjointUnion2((() => {
               const $10 = {};
               $10[$3] = $Val($8, None, $BaseVal("Int", i));
               return $10;
@@ -18498,7 +18514,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
               return $10;
             })())))($2)(v2)
           ]))
-        ])))((vss) => new$p(dictMonadWithGraphAlloc)(v)(insert(ordVertex)($5)()(v2))($1)($BaseVal(
+        ])))((vss) => new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert(ordVertex)($5)()(v2))($1)($BaseVal(
           "Matrix",
           $Tuple(vss, $Tuple($Tuple($6, $8), $Tuple($7, $9)))
         ))));
@@ -18524,7 +18540,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     if (v1.tag === "Project") {
       const $1 = v1._1;
       const $2 = v1._3;
-      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._2)(v2))((v3) => {
+      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(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);
@@ -18532,7 +18548,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
               return $Maybe("Just", $3._1._2);
             }
             return Nothing;
-          })())))((v$p) => concatDocs(dictMonadWithGraphAlloc)(v)(v$p)($1));
+          })())))((v$p) => concatDocs(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v$p)($1));
         }
         return MonadThrow0.throwError(error("Found " + intercalate4("\n")(removeDocWS(prettyVal(highlightableVertex).pretty(v3)).lines) + ", expected dictionary"));
       });
@@ -18540,7 +18556,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     if (v1.tag === "DProject") {
       const $1 = v1._1;
       const $2 = v1._3;
-      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._2)(v2))((v3) => Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)($2)(v2))((v$p) => {
+      return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._2)(v2))((v3) => Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(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')((() => {
@@ -18549,7 +18565,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
                 return $Maybe("Just", $3._1._2);
               }
               return Nothing;
-            })())))((v$p$p) => concatDocs(dictMonadWithGraphAlloc)(v)(v$p$p)($1));
+            })())))((v$p$p) => concatDocs(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v$p$p)($1));
           }
           return MonadThrow0.throwError(error("Found " + intercalate4("\n")(removeDocWS(prettyVal(highlightableVertex).pretty(v$p)).lines) + ", expected string"));
         }
@@ -18559,10 +18575,10 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     if (v1.tag === "App") {
       const $1 = v1._1;
       const $2 = v1._3;
-      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) => {
+      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) => {
         const $3 = v4._3;
         const $4 = v4._1;
-        return Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(v)((() => {
+        return Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(v)((() => {
           const $5 = {};
           $5.this = v4;
           return $5;
@@ -18572,23 +18588,23 @@ var $$eval = (dictMonadWithGraphAlloc) => {
     if (v1.tag === "Let") {
       const $1 = v1._2;
       const $2 = v1._1._1;
-      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)));
+      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)));
     }
     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)(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)(dictLoadFile)(unionWith2((v$1) => identity13)(v)(\u03B3$p))($1)(insert(ordVertex)($2)()(v2)));
     }
     fail();
   };
 };
 var concatDocs = (dictMonadWithGraphAlloc) => {
   const Monad0 = dictMonadWithGraphAlloc.MonadWithGraph2().Monad0();
-  return (\u03B3) => (v) => (doc) => {
+  return (dictLoadFile) => (\u03B3) => (v) => (doc) => {
     const $0 = v._3;
     const $1 = v._2;
     const $2 = v._1;
-    return Monad0.Bind1().bind(evalDocOpt(dictMonadWithGraphAlloc)(unionWith2((v$1) => identity13)(\u03B3)((() => {
+    return Monad0.Bind1().bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith2((v$1) => identity13)(\u03B3)((() => {
       const $3 = {};
       $3.this = $Val($2, None, $0);
       return $3;
@@ -18602,14 +18618,14 @@ var apply2 = (dictMonadWithGraphAlloc) => {
   const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
   const MonadError1 = dictMonadWithGraphAlloc.MonadError1();
   const MonadThrow0 = MonadError1.MonadThrow0();
-  return (v) => (v1) => {
+  return (dictLoadFile) => (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)(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)(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))));
       }
       if (v._3._1.tag === "Foreign") {
         const $1 = v._3._1._1._2;
@@ -18640,7 +18656,7 @@ var apply2 = (dictMonadWithGraphAlloc) => {
             $Fun("Foreign", $Tuple(v._3._1._1._1, $1), vs$p)
           ));
         }
-        return $1._1.op(dictMonadWithGraphAlloc)(MonadError1)(vs$p);
+        return $1._1.op(dictMonadWithGraphAlloc)(MonadError1)(dictLoadFile)(vs$p);
       }
       if (v._3._1.tag === "PartialConstr") {
         const $1 = v._1;
@@ -18711,25 +18727,28 @@ var eval_module = (dictMonadWithGraphAlloc) => {
   const eval1 = $$eval(dictMonadWithGraphAlloc);
   const match1 = match(dictMonadWithGraphAlloc);
   const closeDefs1 = closeDefs(dictMonadWithGraphAlloc);
-  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)));
+  return (dictLoadFile) => {
+    const eval2 = eval1(dictLoadFile);
+    return (\u03B3) => {
+      const go = (v) => (v1) => (v2) => {
+        if (v1.tag === "Nil") {
+          return Monad0.Applicative0().pure(v);
         }
-        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.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));
+          }
         }
-      }
-      fail();
+        fail();
+      };
+      return go(empty);
     };
-    return go(empty);
   };
 };
 var eval_progCxt = (dictMonadWithGraphAlloc) => {
@@ -18739,18 +18758,21 @@ var eval_progCxt = (dictMonadWithGraphAlloc) => {
   const $1 = Monad0.Applicative0();
   const eval1 = $$eval(dictMonadWithGraphAlloc);
   const concatM1 = concatM(Monad0);
-  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);
+  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);
+  };
 };
-var graphEval = (dictMonadError) => {
-  const MonadThrow0 = dictMonadError.MonadThrow0();
-  const Monad0 = MonadThrow0.Monad0();
+var graphEval = (dictMonadAff) => {
+  const Monad0 = dictMonadAff.MonadEffect0().Monad0();
   const bindStateT2 = bindStateT(Monad0);
   const $0 = monadAllocAllocT(Monad0);
   const fresh1 = $0.fresh;
@@ -18759,29 +18781,47 @@ var graphEval = (dictMonadError) => {
     Applicative0: () => applicativeStateT(Monad0),
     Bind1: () => bindStateT(Monad0)
   })(graphGraphImpl);
-  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
-    }));
+  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
+      }));
+    };
   };
 };
 
@@ -19618,6 +19658,9 @@ 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) => {
@@ -22928,7 +22971,7 @@ var matrixUpdate = /* @__PURE__ */ $Tuple(
       const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
       return (dictMonadError) => {
         const $$throw2 = $$throw(dictMonadError.MonadThrow0());
-        return (v) => {
+        return (dictLoadFile) => (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(
@@ -22948,7 +22991,7 @@ var matrixLookup = /* @__PURE__ */ $Tuple(
     arity: 2,
     op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
       const MonadThrow0 = dictMonadError.MonadThrow0();
-      return (v) => {
+      return (dictLoadFile) => (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));
         }
@@ -22981,7 +23024,7 @@ var error_ = /* @__PURE__ */ $Tuple(
     arity: 1,
     op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
       const MonadThrow0 = dictMonadError.MonadThrow0();
-      return (v) => {
+      return (dictLoadFile) => (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))());
         }
@@ -23000,7 +23043,7 @@ var dims = /* @__PURE__ */ $Tuple(
       return (dictMonadError) => {
         const MonadThrow0 = dictMonadError.MonadThrow0();
         const $0 = MonadThrow0.Monad0().Bind1();
-        return (v) => {
+        return (dictLoadFile) => (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;
@@ -23035,19 +23078,22 @@ var dict_map = /* @__PURE__ */ $Tuple(
         const Monad0 = MonadThrow0.Monad0();
         const Bind1 = Monad0.Bind1();
         const traverse1 = traversableDict.traverse(Monad0.Applicative0());
-        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"));
+        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"));
+          };
         };
       };
     }
@@ -23066,31 +23112,34 @@ var dict_intersectionWith = /* @__PURE__ */ $Tuple(
         const Bind1 = Monad0.Bind1();
         const Applicative0 = Monad0.Applicative0();
         const $0 = Bind1.Apply0().Functor0();
-        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(
+        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(
                 "Two",
                 Leaf2,
-                $5,
+                $2,
                 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(
-              "Two",
-              Leaf2,
-              $2,
-              void 0,
-              Leaf2
-            )))(v$p));
-          }
-          return MonadThrow0.throwError(error("Function and two dictionaries expected"));
+              )))(v$p));
+            }
+            return MonadThrow0.throwError(error("Function and two dictionaries expected"));
+          };
         };
       };
     }
@@ -23102,7 +23151,7 @@ var dict_get = /* @__PURE__ */ $Tuple(
     arity: 2,
     op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
       const MonadThrow0 = dictMonadError.MonadThrow0();
-      return (v) => {
+      return (dictLoadFile) => (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);
@@ -23126,15 +23175,18 @@ var dict_foldl = /* @__PURE__ */ $Tuple(
       return (dictMonadError) => {
         const MonadThrow0 = dictMonadError.MonadThrow0();
         const Monad0 = MonadThrow0.Monad0();
-        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"));
+        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"));
+          };
         };
       };
     }
@@ -23148,7 +23200,7 @@ var dict_disjointUnion = /* @__PURE__ */ $Tuple(
       const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
       return (dictMonadError) => {
         const $$throw2 = $$throw(dictMonadError.MonadThrow0());
-        return (v) => {
+        return (dictLoadFile) => (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",
@@ -23172,7 +23224,7 @@ var dict_difference = /* @__PURE__ */ $Tuple(
       const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
       return (dictMonadError) => {
         const $$throw2 = $$throw(dictMonadError.MonadThrow0());
-        return (v) => {
+        return (dictLoadFile) => (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",
@@ -23194,7 +23246,7 @@ var debugLog = /* @__PURE__ */ $Tuple(
     arity: 1,
     op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
       const MonadThrow0 = dictMonadError.MonadThrow0();
-      return (v) => {
+      return (dictLoadFile) => (v) => {
         if (v.tag === "Cons" && v._2.tag === "Nil") {
           const $0 = v._1;
           return MonadThrow0.Monad0().Applicative0().pure(_trace($0, (v$1) => $0));
@@ -23290,6 +23342,7 @@ 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)
@@ -23359,7 +23412,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) => ({ 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) => ({ 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));
   },
   sequence: (dictApplicative) => (v) => traversableProgCxt.traverse(dictApplicative)(identity25)(v),
   Functor0: () => functorProgCxt,
@@ -23372,7 +23425,6 @@ 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;
@@ -23390,7 +23442,7 @@ var parse = (dictMonadError) => {
     };
   };
 };
-var parseProgram = (loadFile2) => (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().bind(loadFile2(folders)(file)(dictMonadAff)(dictMonadError))((() => {
+var parseProgram = (dictLoadFile) => (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().bind(dictLoadFile.loadFile(dictMonadError)(dictMonadAff)(folders)(file))((() => {
   const $0 = parse(dictMonadError);
   return (a) => $0(a)(topLevel(expr_));
 })());
@@ -23401,18 +23453,22 @@ var module_2 = (dictMonadAff) => {
   return (dictMonadError) => {
     const parse1 = parse(dictMonadError);
     const desugarModuleFwd = moduleFwd(dictMonadError)(boundedLattice2);
-    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
-      }))));
+    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
+        }))));
+      };
     };
   };
 };
-var initialConfig = (dictMonadError) => {
-  const Monad0 = dictMonadError.MonadThrow0().Monad0();
+var initialConfig = (dictMonadAff) => {
+  const Monad0 = dictMonadAff.MonadEffect0().Monad0();
   const Bind1 = Monad0.Bind1();
   const Applicative0 = Monad0.Applicative0();
   const $0 = monadAllocAllocT(Monad0);
@@ -23423,29 +23479,54 @@ var initialConfig = (dictMonadError) => {
     Applicative0: () => applicativeStateT(Monad0),
     Bind1: () => bindStateT(Monad0)
   })(graphGraphImpl);
-  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 })));
+  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 })));
+    };
+  };
 };
 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 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
-    }))));
+    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
+      }))));
+    };
   };
 };
 var datasetAs = (dictMonadAff) => {
@@ -23453,10 +23534,11 @@ var datasetAs = (dictMonadAff) => {
   const $0 = Monad0.Bind1();
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
-    return (loadFile2) => (folders) => (v) => (v1) => {
+    return (dictLoadFile) => (folders) => (v) => (v1) => {
       const $1 = v1.datasets;
       const $2 = v._1;
-      return $0.bind($0.bind(parseProgram(loadFile2)(folders)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
+      return $0.bind($0.bind(parseProgram(dictLoadFile)(folders)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
+        fluidSrcPaths: v1.fluidSrcPaths,
         primitives: v1.primitives,
         mods: v1.mods,
         datasets: $List("Cons", $Tuple($2, e\u03B1), $1)
@@ -23473,20 +23555,24 @@ var loadProgCxt = (dictMonadAff) => {
   return (dictMonadError) => {
     const module_22 = module_1(dictMonadError);
     const datasetAs2 = datasetAs1(dictMonadError);
-    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)));
+    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)));
+    };
   };
 };
 
 // output-es/Node.Encoding/index.js
 var $Encoding = (tag) => tag;
-var ASCII = /* @__PURE__ */ $Encoding("ASCII");
 var UTF8 = /* @__PURE__ */ $Encoding("UTF8");
 
 // output-es/Data.Nullable/foreign.js
@@ -23494,48 +23580,6 @@ function nullable(a, r, f) {
   return a == null ? r : f(a);
 }
 
-// output-es/Node.Buffer.Immutable/foreign.js
-function toStringImpl(enc) {
-  return (buff) => {
-    return buff.toString(enc);
-  };
-}
-
-// output-es/Node.Buffer.Immutable/index.js
-var toString = (x) => toStringImpl((() => {
-  if (x === "ASCII") {
-    return "ascii";
-  }
-  if (x === "UTF8") {
-    return "utf8";
-  }
-  if (x === "UTF16LE") {
-    return "utf16le";
-  }
-  if (x === "UCS2") {
-    return "ucs2";
-  }
-  if (x === "Base64") {
-    return "base64";
-  }
-  if (x === "Latin1") {
-    return "latin1";
-  }
-  if (x === "Binary") {
-    return "binary";
-  }
-  if (x === "Hex") {
-    return "hex";
-  }
-  fail();
-})());
-
-// output-es/Node.Buffer.Internal/index.js
-var toString2 = (dictMonad) => (m) => {
-  const $0 = toString(m);
-  return (buf) => dictMonad.Bind1().Apply0().Functor0().map($0)(dictMonad.Applicative0().pure(buf));
-};
-
 // output-es/Node.FS.Constants/foreign.js
 import { constants } from "node:fs";
 var f_OK = constants.F_OK;
@@ -23657,171 +23701,33 @@ 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 loadFile = (folders) => (v) => (dictMonadAff) => {
+var loadFileNodeT = (dictMonadAff) => {
   const Monad0 = dictMonadAff.MonadEffect0().Monad0();
   const $0 = Monad0.Bind1();
   const findM1 = findM(Monad0)(foldableArray);
-  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";
-function execImpl(command2) {
-  return (opts) => (callback2) => () => exec(
-    command2,
-    opts,
-    (err, stdout, stderr) => {
-      callback2(err)(stdout)(stderr)();
-    }
-  );
-}
-var _undefined = void 0;
-
-// output-es/Node.ChildProcess/index.js
-var convertExecOptions = (opts) => ({
-  cwd: (() => {
-    if (opts.cwd.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.cwd.tag === "Just") {
-      return opts.cwd._1;
-    }
-    fail();
-  })(),
-  env: (() => {
-    if (opts.env.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.env.tag === "Just") {
-      return opts.env._1;
-    }
-    fail();
-  })(),
-  encoding: (() => {
-    if (opts.encoding.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.encoding.tag === "Just") {
-      if (opts.encoding._1 === "ASCII") {
-        return "ascii";
-      }
-      if (opts.encoding._1 === "UTF8") {
-        return "utf8";
-      }
-      if (opts.encoding._1 === "UTF16LE") {
-        return "utf16le";
-      }
-      if (opts.encoding._1 === "UCS2") {
-        return "ucs2";
-      }
-      if (opts.encoding._1 === "Base64") {
-        return "base64";
+  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 (opts.encoding._1 === "Latin1") {
-        return "latin1";
+      if (stats.tag === "Right") {
+        return isFileImpl(stats._1);
       }
-      if (opts.encoding._1 === "Binary") {
-        return "binary";
+      fail();
+    })() ? $Maybe("Just", v1) : Nothing)))(Nothing))((url) => {
+      if (url.tag === "Nothing") {
+        return throwException(error("File " + v + " not found."))();
       }
-      if (opts.encoding._1 === "Hex") {
-        return "hex";
+      if (url.tag === "Just") {
+        return dictMonadAff1.liftAff(toAff2(readTextFile)(UTF8)(url._1));
       }
-    }
-    fail();
-  })(),
-  shell: (() => {
-    if (opts.shell.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.shell.tag === "Just") {
-      return opts.shell._1;
-    }
-    fail();
-  })(),
-  timeout: (() => {
-    if (opts.timeout.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.timeout.tag === "Just") {
-      return opts.timeout._1;
-    }
-    fail();
-  })(),
-  maxBuffer: (() => {
-    if (opts.maxBuffer.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.maxBuffer.tag === "Just") {
-      return opts.maxBuffer._1;
-    }
-    fail();
-  })(),
-  killSignal: (() => {
-    if (opts.killSignal.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.killSignal.tag === "Just") {
-      return opts.killSignal._1;
-    }
-    fail();
-  })(),
-  uid: (() => {
-    if (opts.uid.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.uid.tag === "Just") {
-      return opts.uid._1;
-    }
-    fail();
-  })(),
-  gid: (() => {
-    if (opts.gid.tag === "Nothing") {
-      return _undefined;
-    }
-    if (opts.gid.tag === "Just") {
-      return opts.gid._1;
-    }
-    fail();
-  })()
-});
-var exec2 = (cmd) => (opts) => (callback2) => execImpl(cmd)(convertExecOptions(opts))((err) => (stdout$p) => (stderr$p) => callback2({
-  error: nullable(err, Nothing, Just),
-  stdout: stdout$p,
-  stderr: stderr$p
-}));
+      fail();
+    })
+  });
+};
 
 // output-es/Options.Applicative.Internal.Utils/index.js
 var whitespaceRegex = /* @__PURE__ */ (() => {
@@ -24776,10 +24682,10 @@ var abortOption = (err) => (m) => {
 };
 
 // output-es/Node.Process/foreign.js
-import process2 from "process";
+import process from "process";
 function exit(code) {
   return () => {
-    process2.exit(code);
+    process.exit(code);
   };
 }
 function copyArray(xs) {
@@ -24787,7 +24693,7 @@ function copyArray(xs) {
 }
 
 // output-es/Node.Process/index.js
-var argv = /* @__PURE__ */ (() => copyArray(process2.argv))();
+var argv = /* @__PURE__ */ (() => copyArray(process.argv))();
 
 // output-es/Node.Stream/foreign.js
 function writeStringImpl(w) {
@@ -26947,7 +26853,7 @@ var handleParseResult = (v) => {
     return () => {
       const progn = getProgName();
       const v1 = renderFailure($0)(progn);
-      writeString(v1._2 === "Success" ? process2.stdout : process2.stderr)(UTF8)(v1._1 + "\n")(mempty22)();
+      writeString(v1._2 === "Success" ? process.stdout : process.stderr)(UTF8)(v1._1 + "\n")(mempty22)();
       return exit(boundedEnumExitCode.fromEnum(v1._2))();
     };
   }
@@ -26956,7 +26862,7 @@ var handleParseResult = (v) => {
     return () => {
       const progn = getProgName();
       const msg = $0.execCompletion(progn)();
-      writeString(process2.stdout)(UTF8)(msg)(mempty22)();
+      writeString(process.stdout)(UTF8)(msg)(mempty22)();
       return exitSuccess();
     };
   }
@@ -26984,15 +26890,14 @@ var execParserPure = (pprefs) => (pinfo) => (args) => {
 };
 
 // output-es/Fluid/index.js
-var $BundleArgs = (_1, _2) => ({ tag: "BundleArgs", _1, _2 });
-var $Command = (tag, _1) => ({ tag, _1 });
+var $Command = (_1) => ({ tag: "Evaluate", _1 });
 var $EvalArgs = (_1) => ({ tag: "EvalArgs", _1 });
-var loadProgCxt3 = /* @__PURE__ */ loadProgCxt2(monadAffAff)(monadErrorAff);
-var prepConfig3 = /* @__PURE__ */ prepConfig2(monadAffAff)(monadErrorAff);
-var graphEval2 = /* @__PURE__ */ graphEval(monadErrorAff);
+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 fromFoldable25 = /* @__PURE__ */ (() => fromFoldableImpl(foldableList.foldr))();
-var Evaluate = (value0) => $Command("Evaluate", value0);
-var BundleWebsite = (value0) => $Command("BundleWebsite", value0);
+var Evaluate = (value0) => $Command(value0);
 var parseLocal = /* @__PURE__ */ $Parser(
   "AltP",
   /* @__PURE__ */ flag$p(true)(/* @__PURE__ */ (() => {
@@ -27027,42 +26932,13 @@ var parseImports = /* @__PURE__ */ $Parser(
     );
   })()))
 );
-var parseBundleArgs = /* @__PURE__ */ (() => $Parser(
-  "MultP",
-  $MultPE(
-    parserFunctor.map((v) => (v1) => $BundleArgs(v, v1))(parserFunctor.map(Folder)(option(readerAsk)((() => {
-      const $0 = help("root directory of website under dist/");
-      const $1 = $0._2._2.tag === "Nothing" ? Nothing : $0._2._2;
-      return $Mod(
-        (x) => $0._1({
-          optNames: [$OptName("OptShort", "w"), $OptName("OptLong", "website"), ...x.optNames],
-          optCompleter: x.optCompleter,
-          optNoArgError: x.optNoArgError
-        }),
-        $DefaultProp($Maybe("Just", "Misc"), $1.tag === "Nothing" ? Nothing : $1),
-        (x) => $0._3(x)
-      );
-    })()))),
-    parseLocal
-  )
-))();
 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(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) => {
+  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) => {
   })(v2["out\u03B1"])))));
 };
-var copyOptions = {
-  cwd: Nothing,
-  env: Nothing,
-  timeout: Nothing,
-  killSignal: Nothing,
-  maxBuffer: Nothing,
-  uid: Nothing,
-  gid: Nothing,
-  encoding: Nothing,
-  shell: Nothing
-};
+var dispatchCommand = (v) => _bind(evaluate(v._1))((v1) => _liftEffect(log(intercalate4("\n")(removeDocWS(prettyVal(highlightableUnit).pretty(v1)).lines))));
 var callback = (v) => {
   if (v.tag === "Left") {
     return log(showErrorImpl(v._1));
@@ -27073,29 +26949,6 @@ var callback = (v) => {
   }
   fail();
 };
-var bundleWebsite = (v) => exec2((v._2 ? "./node_modules/@explorable-viz/fluid/script/bundle-website.sh -w " : "./script/bundle-website.sh -w ") + (v._2 ? v._1 + " -l" : v._1 + ""))(copyOptions)((v1) => {
-  if (v1.error.tag === "Just") {
-    return log(showErrorImpl(v1.error._1));
-  }
-  if (v1.error.tag === "Nothing") {
-    const $0 = toString2(monadEffect)(ASCII)(v1.stdout);
-    return () => {
-      const $1 = $0();
-      return log($1)();
-    };
-  }
-  fail();
-});
-var dispatchCommand = (v) => {
-  if (v.tag === "Evaluate") {
-    return _bind(evaluate(v._1))((v1) => _liftEffect(log(intercalate4("\n")(removeDocWS(prettyVal(highlightableUnit).pretty(v1)).lines))));
-  }
-  if (v.tag === "BundleWebsite") {
-    return _map((v$1) => {
-    })(_liftEffect(bundleWebsite(v._1)));
-  }
-  fail();
-};
 var between3 = (p1) => (p2) => (f) => (s) => {
   const $0 = stripPrefix(p1)(s);
   const v = (() => {
@@ -27190,32 +27043,16 @@ var parseEvaluate = /* @__PURE__ */ (() => $Parser(
     })()))
   )
 ))();
-var commands = /* @__PURE__ */ (() => ({ bundleWebsite: parserFunctor.map(BundleWebsite)(parseBundleArgs), evaluate: parserFunctor.map(Evaluate)(parseEvaluate) }))();
-var commandParser = /* @__PURE__ */ subparser(/* @__PURE__ */ (() => {
-  const $0 = command("evaluate")(progDesc("Evaluate a file")({
-    infoParser: commands.evaluate,
-    infoFullDesc: true,
-    infoProgDesc: mempty12,
-    infoHeader: mempty12,
-    infoFooter: mempty12,
-    infoFailureCode: $$Error,
-    infoPolicy: Intersperse
-  }));
-  const $1 = command("bundle-website")(progDesc("Bundle a website to dist")({
-    infoParser: commands.bundleWebsite,
-    infoFullDesc: true,
-    infoProgDesc: mempty12,
-    infoHeader: mempty12,
-    infoFooter: mempty12,
-    infoFailureCode: $$Error,
-    infoPolicy: Intersperse
-  }));
-  return $Mod(
-    (x) => $1._1($0._1(x)),
-    $DefaultProp($1._2._1.tag === "Nothing" ? $0._2._1 : $1._2._1, $1._2._2.tag === "Nothing" ? $0._2._2 : $1._2._2),
-    (x) => $1._3($0._3(x))
-  );
-})());
+var commands = /* @__PURE__ */ (() => ({ evaluate: parserFunctor.map(Evaluate)(parseEvaluate) }))();
+var commandParser = /* @__PURE__ */ (() => subparser(command("evaluate")(progDesc("Evaluate a file")({
+  infoParser: commands.evaluate,
+  infoFullDesc: true,
+  infoProgDesc: mempty12,
+  infoHeader: mempty12,
+  infoFooter: mempty12,
+  infoFailureCode: $$Error,
+  infoPolicy: Intersperse
+}))))();
 var main = /* @__PURE__ */ (() => {
   const $0 = runAff(callback)(_bind(_liftEffect((() => {
     const $02 = header("parse - a simple parser")(progDesc("Parse a file")({