@explorable-viz/fluid 0.7.62 → 0.7.64

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

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

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

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

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

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

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

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

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

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

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

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

package/dist/fluid/fluid/lib/convolution.fld

@@ -14,4 +14,3 @@ let convolve image kernel boundary =
              x >= 1, x <= m, y >= 1, y <= n
          ] in weightedSum `quot` area
          | (m', n') in (m, n) |];
-

package/dist/fluid/shared/fluid.mjs

@@ -222,6 +222,15 @@ var applyMaybe = {
   },
   Functor0: () => functorMaybe
 };
+var altMaybe = {
+  alt: (v) => (v1) => {
+    if (v.tag === "Nothing") {
+      return v1;
+    }
+    return v;
+  },
+  Functor0: () => functorMaybe
+};
 
 // output-es/Data.Either/index.js
 var $Either = (tag, _1) => ({ tag, _1 });
@@ -24821,7 +24830,7 @@ var parse = (dictMonadError) => {
     };
   };
 };
-var parseProgram = (loadFile2) => (folder) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().bind(loadFile2(folder)(file)(dictMonadAff)(dictMonadError))((() => {
+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_));
 })());
@@ -24832,9 +24841,9 @@ var module_2 = (dictMonadAff) => {
   return (dictMonadError) => {
     const parse1 = parse(dictMonadError);
     const desugarModuleFwd = moduleFwd(dictMonadError)(boundedLattice2);
-    return (loadFile2) => (folder) => (file) => (v) => {
+    return (loadFile2) => (folders) => (file) => (v) => {
       const $0 = v.mods;
-      return Bind1.bind(Applicative0.pure())(() => Bind1.bind(loadFile2(folder)(file)(dictMonadAff)(dictMonadError))((src) => Bind1.bind(Bind1.bind(parse1(src)(module_))(desugarModuleFwd))((mod) => Applicative0.pure({
+      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
@@ -24872,7 +24881,7 @@ var prepConfig = (dictMonadAff) => {
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
     const initialConfig1 = initialConfig(dictMonadError)(fVExpr);
-    return (v) => (file) => (progCxt) => $0.bind(parseProgram(v.loadFile)(v.fluidSrcPath)(file)(dictMonadAff)(dictMonadError))((s) => $0.bind(desug1(s))((e) => $0.bind(initialConfig1(e)(progCxt))((gconfig) => Monad0.Applicative0().pure({
+    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
@@ -24884,10 +24893,10 @@ var datasetAs = (dictMonadAff) => {
   const $0 = Monad0.Bind1();
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
-    return (loadFile2) => (folder) => (v) => (v1) => {
+    return (loadFile2) => (folders) => (v) => (v1) => {
       const $1 = v1.datasets;
       const $2 = v._1;
-      return $0.bind($0.bind(parseProgram(loadFile2)(folder)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
+      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)
@@ -24908,8 +24917,8 @@ var loadProgCxt = (dictMonadAff) => {
       primitives,
       mods: Nil,
       datasets: Nil
-    }))(concatM1(arrayMap(module_22(v.loadFile)(v.fluidSrcPath))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
-      const $1 = datasetAs2(v.loadFile)(v.fluidSrcPath);
+    }))(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)));
   };
@@ -25050,8 +25059,19 @@ var readTextFile = (encoding) => (file) => (cb) => {
   };
   return () => readFile(file, $0, handleCallback(cb));
 };
+var stat2 = (file) => (cb) => () => stat(file, handleCallback(cb));
 
 // output-es/Node.FS.Aff/index.js
+var toAff1 = (f) => (a) => {
+  const $0 = f(a);
+  return makeAff((k) => {
+    const $1 = $0(k);
+    return () => {
+      $1();
+      return nonCanceler;
+    };
+  });
+};
 var toAff2 = (f) => (a) => (b) => {
   const $0 = f(a)(b);
   return makeAff((k) => {
@@ -25063,23 +25083,48 @@ var toAff2 = (f) => (a) => (b) => {
   });
 };
 
+// output-es/Foreign/foreign.js
+var isArray = Array.isArray || function(value) {
+  return Object.prototype.toString.call(value) === "[object Array]";
+};
+
+// output-es/Node.FS.Stats/foreign.js
+var isFileImpl = (s) => s.isFile();
+
 // output-es/Module.Node/index.js
-var loadFile = (v) => (v1) => (dictMonadAff) => {
+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) => {
   const Monad0 = dictMonadAff.MonadEffect0().Monad0();
-  return (dictMonadError) => Monad0.Bind1().bind(dictMonadAff.liftAff(toAff2(readTextFile)(UTF8)(v + "/" + v1 + ".fld")))((buffer) => Monad0.Applicative0().pure(buffer));
+  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(toAff1(stat2)(v1)))((stats) => Monad0.Applicative0().pure(isFileImpl(stats) ? $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)(ASCII)(url._1));
+    }
+    fail();
+  });
 };
 var loadProgCxt2 = (dictMonadAff) => {
   const loadProgCxt1 = loadProgCxt(dictMonadAff);
   return (dictMonadError) => {
     const loadProgCxt22 = loadProgCxt1(dictMonadError);
-    return (fluidSrcPath) => loadProgCxt22({ loadFile, fluidSrcPath });
+    return (fluidSrcPaths) => loadProgCxt22({ loadFile, fluidSrcPaths });
   };
 };
 var prepConfig2 = (dictMonadAff) => {
   const prepConfig1 = prepConfig(dictMonadAff);
   return (dictMonadError) => {
     const prepConfig22 = prepConfig1(dictMonadError);
-    return (fluidSrcPath) => prepConfig22({ loadFile, fluidSrcPath });
+    return (fluidSrcPaths) => prepConfig22({ loadFile, fluidSrcPaths });
   };
 };
 
@@ -28398,7 +28443,8 @@ var parseImports = /* @__PURE__ */ $Parser(
 );
 var evaluate = (v) => {
   const $0 = v._1.fileName;
-  return _bind(loadProgCxt3("fluid")(v._1.imports)(v._1.datasets))((progCxt) => _bind(prepConfig3("fluid")($0)(progCxt))((v1) => _bind(graphEval2(v1.gconfig)(v1.e))((v2) => _pure($Val(
+  const fluidSrcPaths = ["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($Val(
     void 0,
     functorBaseVal.map((v$1) => {
     })(v2["out\u03B1"]._2)

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

@@ -290,6 +290,15 @@ var applyEither = {
   Functor0: () => functorEither
 };
 var applicativeEither = { pure: Right, Apply0: () => applyEither };
+var altEither = {
+  alt: (v) => (v1) => {
+    if (v.tag === "Left") {
+      return v1;
+    }
+    return v;
+  },
+  Functor0: () => functorEither
+};
 
 // output-es/Effect/foreign.js
 var pureE = function(a) {
@@ -1551,6 +1560,7 @@ var encode2 = /* @__PURE__ */ (() => {
 // output-es/Data.HTTP.Method/index.js
 var $Method = (tag) => tag;
 var GET = /* @__PURE__ */ $Method("GET");
+var HEAD = /* @__PURE__ */ $Method("HEAD");
 var print = (v2) => {
   if (v2.tag === "Left") {
     if (v2._1 === "OPTIONS") {
@@ -43598,6 +43608,7 @@ var concatM2 = (dictMonad) => foldrArray((() => {
   const $0 = dictMonad.Bind1();
   return (f) => (g) => (a) => $0.bind(f(a))(g);
 })())(dictMonad.Applicative0().pure);
+var Folder = (x2) => x2;
 var parse = (dictMonadError) => {
   const $0 = dictMonadError.MonadThrow0();
   const $1 = $0.Monad0().Applicative0().pure;
@@ -43615,7 +43626,7 @@ var parse = (dictMonadError) => {
     };
   };
 };
-var parseProgram = (loadFile2) => (folder) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().bind(loadFile2(folder)(file)(dictMonadAff)(dictMonadError))((() => {
+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_));
 })());
@@ -43626,9 +43637,9 @@ var module_2 = (dictMonadAff) => {
   return (dictMonadError) => {
     const parse1 = parse(dictMonadError);
     const desugarModuleFwd = moduleFwd(dictMonadError)(boundedLattice2);
-    return (loadFile2) => (folder) => (file) => (v) => {
+    return (loadFile2) => (folders) => (file) => (v) => {
       const $0 = v.mods;
-      return Bind1.bind(Applicative0.pure())(() => Bind1.bind(loadFile2(folder)(file)(dictMonadAff)(dictMonadError))((src) => Bind1.bind(Bind1.bind(parse1(src)(module_))(desugarModuleFwd))((mod) => Applicative0.pure({
+      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
@@ -43666,7 +43677,7 @@ var prepConfig = (dictMonadAff) => {
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
     const initialConfig1 = initialConfig(dictMonadError)(fVExpr);
-    return (v) => (file) => (progCxt) => $0.bind(parseProgram(v.loadFile)(v.fluidSrcPath)(file)(dictMonadAff)(dictMonadError))((s) => $0.bind(desug1(s))((e) => $0.bind(initialConfig1(e)(progCxt))((gconfig) => Monad0.Applicative0().pure({
+    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
@@ -43678,10 +43689,10 @@ var datasetAs = (dictMonadAff) => {
   const $0 = Monad0.Bind1();
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
-    return (loadFile2) => (folder) => (v) => (v1) => {
+    return (loadFile2) => (folders) => (v) => (v1) => {
       const $1 = v1.datasets;
       const $2 = v._1;
-      return $0.bind($0.bind(parseProgram(loadFile2)(folder)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
+      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)
@@ -43702,22 +43713,26 @@ var loadProgCxt = (dictMonadAff) => {
       primitives,
       mods: Nil,
       datasets: Nil
-    }))(concatM1(arrayMap(module_22(v.loadFile)(v.fluidSrcPath))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
-      const $1 = datasetAs2(v.loadFile)(v.fluidSrcPath);
+    }))(concatM1(arrayMap(module_22(v.loadFile)(v.fluidSrcPaths))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
+      const $1 = datasetAs2(v.loadFile)(v.fluidSrcPaths);
       return (x2) => $1($Tuple(x2._1, x2._2));
     })())(datasets)));
   };
 };
 
 // output-es/Module.Web/index.js
-var loadFile = (v) => (v1) => (dictMonadAff) => {
-  const MonadEffect0 = dictMonadAff.MonadEffect0();
-  const Monad0 = MonadEffect0.Monad0();
-  const Bind1 = Monad0.Bind1();
-  const Applicative0 = Monad0.Applicative0();
-  return (dictMonadError) => Bind1.bind(dictMonadAff.liftAff(request(driver)({
-    method: $Either("Left", GET),
-    url: v + "/" + v1 + ".fld",
+var findM = (xs) => (f) => (base2) => foldrArray((x2) => (acc) => applyAff.apply(_map(altEither.alt)(acc))(f(x2)))(_pure(base2))(xs);
+var loadFile = (folders) => (v) => (dictMonadAff) => {
+  const Monad0 = dictMonadAff.MonadEffect0().Monad0();
+  const bindExceptT2 = bindExceptT(Monad0);
+  const applicativeExceptT2 = applicativeExceptT(Monad0);
+  const pure22 = Monad0.Applicative0().pure;
+  return (dictMonadError) => Monad0.Bind1().bind(bindExceptT2.bind(dictMonadAff.liftAff(findM(arrayMap((() => {
+    const $0 = v + ".fld";
+    return (a) => a + "/" + $0;
+  })())(folders))((v1) => _bind(request(driver)({
+    method: $Either("Left", HEAD),
+    url: v1,
     headers: [],
     content: Nothing,
     username: Nothing,
@@ -43725,31 +43740,53 @@ var loadFile = (v) => (v1) => (dictMonadAff) => {
     withCredentials: false,
     responseFormat: $ResponseFormat("String", identity),
     timeout: Nothing
-  })))((result) => {
+  }))((resp) => _pure((() => {
+    if (resp.tag === "Right") {
+      if (resp._1.status === 200) {
+        return $Either("Right", $Tuple(resp._1, v1));
+      }
+      return $Either("Left", RequestFailedError);
+    }
+    if (resp.tag === "Left") {
+      return $Either("Left", resp._1);
+    }
+    fail();
+  })())))($Either("Left", RequestFailedError))))((v1) => {
+    const $0 = v1._2;
+    return bindExceptT2.bind(applicativeExceptT2.pure())(() => bindExceptT2.bind(dictMonadAff.liftAff(request(driver)({
+      method: $Either("Left", GET),
+      url: $0,
+      headers: [],
+      content: Nothing,
+      username: Nothing,
+      password: Nothing,
+      withCredentials: false,
+      responseFormat: $ResponseFormat("String", identity),
+      timeout: Nothing
+    })))((contents) => applicativeExceptT2.pure(contents.body)));
+  }))((result) => {
     if (result.tag === "Left") {
-      const $0 = result._1;
-      return Bind1.bind(MonadEffect0.liftEffect(log2("Failed with " + printError($0))))(() => dictMonadError.MonadThrow0().throwError(error(printError($0))));
+      return dictMonadError.MonadThrow0().throwError(error(printError(result._1)));
     }
     if (result.tag === "Right") {
-      const $0 = result._1;
-      return Bind1.bind(Applicative0.pure())(() => Applicative0.pure($0.body));
+      return pure22(result._1);
     }
     fail();
   });
 };
-var loadFile$p = (folder) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().Apply0().Functor0().map((v) => $Tuple(file, v))(loadFile(folder)(file)(dictMonadAff)(dictMonadError));
+var loadFile$p = (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().Apply0().Functor0().map((v) => $Tuple(file, v))(loadFile(folders)(file)(dictMonadAff)(dictMonadError));
 var loadProgCxt2 = (dictMonadAff) => {
   const loadProgCxt1 = loadProgCxt(dictMonadAff);
   return (dictMonadError) => {
     const loadProgCxt22 = loadProgCxt1(dictMonadError);
-    return (fluidSrcPath) => loadProgCxt22({ loadFile, fluidSrcPath });
+    return (fluidSrcPaths) => loadProgCxt22({ loadFile, fluidSrcPaths });
   };
 };
 var prepConfig2 = (dictMonadAff) => {
   const prepConfig1 = prepConfig(dictMonadAff);
   return (dictMonadError) => {
     const prepConfig22 = prepConfig1(dictMonadError);
-    return (fluidSrcPath) => prepConfig22({ loadFile, fluidSrcPath });
+    return (fluidSrcPaths) => prepConfig22({ loadFile, fluidSrcPaths });
   };
 };
 
@@ -43943,7 +43980,7 @@ var loadFig = (v) => (dictMonadAff) => {
     const prepConfig1 = prepConfig3(dictMonadError);
     const graphEval2 = graphEval(dictMonadError);
     const $1 = v.file;
-    const $2 = v.fluidSrcPath;
+    const $2 = v.fluidSrcPaths;
     const $3 = v.inputs;
     return $0.bind(loadProgCxt3(dictMonadError)($2)(v.imports)(v.datasets))((progCxt) => $0.bind(prepConfig1($2)($1)(progCxt))((v1) => {
       const $4 = v1.s;
@@ -44216,26 +44253,7 @@ var gDecodeJsonCons = (dictDecodeJsonField) => (dictGDecodeJson) => (dictIsSymbo
 var monadAffAff = { liftAff: (x2) => x2, MonadEffect0: () => monadEffectAff };
 
 // output-es/App.LoadFigure/index.js
-var gDecodeJsonCons2 = /* @__PURE__ */ gDecodeJsonCons({
-  decodeJsonField: (j) => {
-    if (j.tag === "Just") {
-      return $Maybe(
-        "Just",
-        _caseJson(
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          Right,
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          j._1
-        )
-      );
-    }
-    return Nothing;
-  }
-});
-var gDecodeJsonCons1 = /* @__PURE__ */ gDecodeJsonCons(/* @__PURE__ */ (() => {
+var gDecodeJsonCons2 = /* @__PURE__ */ gDecodeJsonCons(/* @__PURE__ */ (() => {
   const $0 = decodeArray(caseJsonString($Either(
     "Left",
     $JsonDecodeError("TypeMismatch", "String")
@@ -44262,10 +44280,28 @@ var decodeJson = /* @__PURE__ */ (() => decodeRecord(gDecodeJsonCons((() => {
       return Nothing;
     }
   };
-})())(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonCons1(gDecodeJsonCons1(gDecodeJsonNil)({ reflectSymbol: () => "inputs" })()())({
-  reflectSymbol: () => "imports"
-})()())({ reflectSymbol: () => "fluidSrcPath" })()())({ reflectSymbol: () => "file" })()())({ reflectSymbol: () => "datasets" })()())().decodeJson)();
-var figSpecFromJson = (spec) => ({ fluidSrcPath: spec.fluidSrcPath, datasets: spec.datasets, imports: spec.imports, file: spec.file, inputs: spec.inputs });
+})())(gDecodeJsonCons({
+  decodeJsonField: (j) => {
+    if (j.tag === "Just") {
+      return $Maybe(
+        "Just",
+        _caseJson(
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          Right,
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          j._1
+        )
+      );
+    }
+    return Nothing;
+  }
+})(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonNil)({ reflectSymbol: () => "inputs" })()())({ reflectSymbol: () => "imports" })()())({
+  reflectSymbol: () => "fluidSrcPath"
+})()())({ reflectSymbol: () => "file" })()())({ reflectSymbol: () => "datasets" })()())().decodeJson)();
+var figSpecFromJson = (spec) => ({ fluidSrcPaths: arrayMap(Folder)(spec.fluidSrcPath), datasets: spec.datasets, imports: spec.imports, file: spec.file, inputs: spec.inputs });
 var loadFigure = (fileName) => runAffs_((v) => drawFig(v._1)(v._2))([
   _bind($$get(driver)($ResponseFormat("Json", identity))(fileName))((result) => {
     if (result.tag === "Left") {
@@ -44277,24 +44313,17 @@ var loadFigure = (fileName) => runAffs_((v) => drawFig(v._1)(v._2))([
         return throwException(error("JSON decoding failed with " + showJsonDecodeError.show(v._1)))();
       }
       if (v.tag === "Right") {
-        return _map((v1) => $Tuple("fig", v1))(loadFig({
-          fluidSrcPath: v._1.fluidSrcPath,
-          datasets: v._1.datasets,
-          imports: v._1.imports,
-          file: v._1.file,
-          inputs: v._1.inputs
-        })(monadAffAff)(monadErrorAff));
+        return _map((v1) => $Tuple("fig", v1))(loadFig(figSpecFromJson(v._1))(monadAffAff)(monadErrorAff));
       }
     }
     fail();
   })
 ]);
-var drawCode2 = (folder) => (file) => runAffs_(drawFile)([loadFile$p(folder)(file)(monadAffAff)(monadErrorAff)]);
+var drawCode2 = (folder) => (file) => runAffs_(drawFile)([loadFile$p([folder])(file)(monadAffAff)(monadErrorAff)]);
 export {
   decodeJson,
   drawCode2 as drawCode,
   figSpecFromJson,
   gDecodeJsonCons2 as gDecodeJsonCons,
-  gDecodeJsonCons1,
   loadFigure
 };

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@explorable-viz/fluid",
-  "version": "0.7.62",
+  "version": "0.7.64",
   "description": "Fluid is an experimental programming language which integrates a bidirectional dynamic analysis to connect outputs to data sources in a fine-grained way. Fluid is implemented in PureScript and runs in the browser.",
   "main": "index.js",
   "repository": {

package/script/bundle-website.sh

@@ -12,25 +12,24 @@ done
 
 WEBSITE_LISP_CASE=$(./$PREFIX/script/util/lisp-case.sh "$WEBSITE")
 echo "$WEBSITE -> $WEBSITE_LISP_CASE"
-mkdir -p "dist/$WEBSITE_LISP_CASE"
+echo "Cleaning dist/$WEBSITE_LISP_CASE"
+. "${PREFIX:+$PREFIX/}script/util/clean.sh" $WEBSITE_LISP_CASE
 
 . "${PREFIX:+$PREFIX/}script/bundle-page.sh" $WEBSITE ${PREFIX:+$PREFIX}
 
 shopt -s nullglob
 
 # Only support one level of nesting for now
-set +x
 PAGES=($(for FILE in website/$WEBSITE/*.html; do
    basename "$FILE" | sed 's/\.[^.]*$//'
 done | sort -u))
-set -x
 
 for PAGE in "${PAGES[@]}"; do
    . "${PREFIX:+$PREFIX/}script/bundle-page.sh" $WEBSITE.$PAGE ${PREFIX:+$PREFIX}
 done
 
 echo "Processing other static files:"
-set +xu  # try to remove +u
+set +u  # try to remove +u
 TO_COPY=()
 shopt -s extglob
 for CHILD in website/$WEBSITE/!(.|..); do
@@ -40,15 +39,16 @@ for CHILD in website/$WEBSITE/!(.|..); do
    fi
 done
 shopt -u extglob
-set -xu
+set -u
 
 for CHILD in "${TO_COPY[@]}"; do
    cp -rL "$CHILD" dist/$WEBSITE_LISP_CASE
 done
 
 echo "Processing shared js files:"
-cp -r "${PREFIX:+$PREFIX/}dist/fluid/shared" dist/$WEBSITE_LISP_CASE
 cp -r fluid dist/$WEBSITE_LISP_CASE
+cp -r "${PREFIX:+$PREFIX/}dist/fluid/shared" dist/$WEBSITE_LISP_CASE
+
 
 if [[ -e "website/$SRC_PATH/test.mjs" ]]; then
    cp website/$SRC_PATH/test.mjs dist/SRC_PATH_LISP_CASE/test.mjs

package/.spago/node-process/v11.0.0/.eslintrc.json

@@ -1,29 +0,0 @@
-{
-  "parserOptions": {
-    "ecmaVersion": 6,
-    "sourceType": "module"
-  },
-  "extends": "eslint:recommended",
-  "env": {
-    "node": true
-  },
-  "rules": {
-    "strict": [2, "global"],
-    "block-scoped-var": 2,
-    "consistent-return": 2,
-    "eqeqeq": [2, "smart"],
-    "guard-for-in": 2,
-    "no-caller": 2,
-    "no-extend-native": 2,
-    "no-loop-func": 2,
-    "no-new": 2,
-    "no-param-reassign": 2,
-    "no-return-assign": 2,
-    "no-unused-expressions": 2,
-    "no-use-before-define": 2,
-    "radix": [2, "always"],
-    "indent": [2, 2],
-    "quotes": [2, "double"],
-    "semi": [2, "always"]
-  }
-}

package/.spago/node-process/v11.0.0/.gitignore

@@ -1,8 +0,0 @@
-/.*
-!/.gitignore
-!/.eslintrc.json
-!/.github/
-/bower_components/
-/node_modules/
-/output/
-package-lock.json

package/.spago/node-process/v11.1.0/.eslintrc.json

@@ -1,29 +0,0 @@
-{
-  "parserOptions": {
-    "ecmaVersion": 6,
-    "sourceType": "module"
-  },
-  "extends": "eslint:recommended",
-  "env": {
-    "node": true
-  },
-  "rules": {
-    "strict": [2, "global"],
-    "block-scoped-var": 2,
-    "consistent-return": 2,
-    "eqeqeq": [2, "smart"],
-    "guard-for-in": 2,
-    "no-caller": 2,
-    "no-extend-native": 2,
-    "no-loop-func": 2,
-    "no-new": 2,
-    "no-param-reassign": 2,
-    "no-return-assign": 2,
-    "no-unused-expressions": 2,
-    "no-use-before-define": 2,
-    "radix": [2, "always"],
-    "indent": [2, 2],
-    "quotes": [2, "double"],
-    "semi": [2, "always"]
-  }
-}

package/.spago/node-process/v11.1.0/.gitignore

@@ -1,8 +0,0 @@
-/.*
-!/.gitignore
-!/.eslintrc.json
-!/.github/
-/bower_components/
-/node_modules/
-/output/
-package-lock.json

package/.spago/node-process/v11.2.0/.eslintrc.json

@@ -1,29 +0,0 @@
-{
-  "parserOptions": {
-    "ecmaVersion": 6,
-    "sourceType": "module"
-  },
-  "extends": "eslint:recommended",
-  "env": {
-    "node": true
-  },
-  "rules": {
-    "strict": [2, "global"],
-    "block-scoped-var": 2,
-    "consistent-return": 2,
-    "eqeqeq": [2, "smart"],
-    "guard-for-in": 2,
-    "no-caller": 2,
-    "no-extend-native": 2,
-    "no-loop-func": 2,
-    "no-new": 2,
-    "no-param-reassign": 2,
-    "no-return-assign": 2,
-    "no-unused-expressions": 2,
-    "no-use-before-define": 2,
-    "radix": [2, "always"],
-    "indent": [2, 2],
-    "quotes": [2, "double"],
-    "semi": [2, "always"]
-  }
-}

package/.spago/node-process/v11.2.0/.gitignore

@@ -1,8 +0,0 @@
-/.*
-!/.gitignore
-!/.eslintrc.json
-!/.github/
-/bower_components/
-/node_modules/
-/output/
-package-lock.json

package/.spago/optparse/v6.0.0/.gitignore

@@ -1,8 +0,0 @@
-/.*
-!/.github
-!/.gitignore
-!/.npmrc
-!/.travis.yml
-/bower_components/
-/node_modules/
-/output/

package/.spago/optparse/v6.0.0/.npmrc

@@ -1 +0,0 @@
-package-lock=false

package/dist/fluid/fluid/example/linked-outputs/pairs.fld

@@ -1,2 +0,0 @@
-let q = 1 in
-((fun (w, x) -> (w, (w, x))) data)