@explorable-viz/fluid 0.7.95 → 0.7.96

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
@@ -1851,7 +1851,7 @@ var foldableNonEmptyList = {
1851
1851
  };
1852
1852
  var semigroupNonEmptyList = { append: (v) => (as$p) => $NonEmpty(v._1, foldableList.foldr(Cons)($List("Cons", as$p._1, as$p._2))(v._2)) };
1853
1853
  var showList = (dictShow) => {
1854
- const show5 = dictShow.show;
1854
+ const show4 = dictShow.show;
1855
1855
  return {
1856
1856
  show: (v) => {
1857
1857
  if (v.tag === "Nil") {
@@ -1875,7 +1875,7 @@ var showList = (dictShow) => {
1875
1875
  }
1876
1876
  return go$r;
1877
1877
  };
1878
- return "(" + go({ init: true, acc: "" })(listMap(show5)(v)).acc + " : Nil)";
1878
+ return "(" + go({ init: true, acc: "" })(listMap(show4)(v)).acc + " : Nil)";
1879
1879
  }
1880
1880
  };
1881
1881
  };
@@ -27828,8 +27828,8 @@ var dataTypes = /* @__PURE__ */ foldrArray(Cons)(Nil)([
27828
27828
  /* @__PURE__ */ dataType("View")([
27829
27829
  /* @__PURE__ */ $Tuple("BarChart", 1),
27830
27830
  /* @__PURE__ */ $Tuple("LineChart", 1),
27831
- /* @__PURE__ */ $Tuple("Paragraph", 1),
27832
27831
  /* @__PURE__ */ $Tuple("MultiView", 1),
27832
+ /* @__PURE__ */ $Tuple("Paragraph", 1),
27833
27833
  /* @__PURE__ */ $Tuple("ScatterPlot", 1)
27834
27834
  ]),
27835
27835
  /* @__PURE__ */ dataType("Point")([/* @__PURE__ */ $Tuple("Point", 2)]),
@@ -36216,7 +36216,7 @@ var unary = (dictBoundedJoinSemilattice) => {
36216
36216
  arity: 1,
36217
36217
  op: (dictMonadWithGraphAlloc) => {
36218
36218
  const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
36219
- return (dictMonadError) => (v) => {
36219
+ return (dictMonadError) => (dictLoadFile) => (v) => {
36220
36220
  if (v.tag === "Cons" && v._2.tag === "Nil") {
36221
36221
  const $0 = v._1._2;
36222
36222
  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))));
@@ -36365,7 +36365,7 @@ var binaryZero = (dictBoundedJoinSemilattice) => {
36365
36365
  arity: 2,
36366
36366
  op: (dictMonadWithGraphAlloc) => {
36367
36367
  const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
36368
- return (dictMonadError) => (v) => {
36368
+ return (dictMonadError) => (dictLoadFile) => (v) => {
36369
36369
  if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._2.tag === "Nil") {
36370
36370
  const $0 = f.i.unpack(v._1._3);
36371
36371
  const $1 = f.i.unpack(v._2._1._3);
@@ -36413,7 +36413,7 @@ var binary = (dictBoundedJoinSemilattice) => {
36413
36413
  arity: 2,
36414
36414
  op: (dictMonadWithGraphAlloc) => {
36415
36415
  const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
36416
- return (dictMonadError) => (v) => {
36416
+ return (dictMonadError) => (dictLoadFile) => (v) => {
36417
36417
  if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._2.tag === "Nil") {
36418
36418
  return $$new((a) => Val(a)(None))(insert3(ordVertex)(v._2._1._1)()($$$Map(
36419
36419
  "Two",
@@ -36654,7 +36654,7 @@ var runAffs_ = (f) => (as1) => {
36654
36654
  $0();
36655
36655
  };
36656
36656
  };
36657
- var primary = (dictApply) => (f) => dictApply.Functor0().map((v) => {
36657
+ var primary = (dictApply) => (x2) => dictApply.Functor0().map((v) => {
36658
36658
  if (v.tag === "Inert") {
36659
36659
  return Inert;
36660
36660
  }
@@ -36662,7 +36662,7 @@ var primary = (dictApply) => (f) => dictApply.Functor0().map((v) => {
36662
36662
  return $SelState("Reactive", v._1 ? Primary : None2);
36663
36663
  }
36664
36664
  fail();
36665
- })(f);
36665
+ })(x2);
36666
36666
  var get_intOrNumber = (x2) => (r) => {
36667
36667
  const $0 = $$get2(showString)(mapDictString)(x2)(r);
36668
36668
  const $1 = intOrNumber.unpack($0._2._3);
@@ -36887,7 +36887,7 @@ var as\u{1D54A} = (v) => (v1) => {
36887
36887
  };
36888
36888
  var primaryOrSecondary = (dictApply) => {
36889
36889
  const $0 = dictApply.Functor0();
36890
- return (selType) => (f) => (f1) => dictApply.apply($0.map((a) => (b) => applySelState.apply((() => {
36890
+ return (selType) => (x2) => (x$p) => dictApply.apply($0.map((a) => (b) => applySelState.apply((() => {
36891
36891
  if (a.tag === "Inert") {
36892
36892
  return Inert;
36893
36893
  }
@@ -36895,7 +36895,7 @@ var primaryOrSecondary = (dictApply) => {
36895
36895
  return $SelState("Reactive", as\u{1D54A}(a._1));
36896
36896
  }
36897
36897
  fail();
36898
- })())(b))($0.map(getSel(selType))(f)))(f1);
36898
+ })())(b))($0.map(getSel(selType))(x2)))(x$p);
36899
36899
  };
36900
36900
 
36901
36901
  // output-es/App.Util.Selector/index.js
@@ -37218,10 +37218,12 @@ var $ElementType = (tag) => tag;
37218
37218
  var fromFoldable9 = /* @__PURE__ */ fromFoldable(foldableArray);
37219
37219
  var Caption = /* @__PURE__ */ $ElementType("Caption");
37220
37220
  var Circle = /* @__PURE__ */ $ElementType("Circle");
37221
+ var Div = /* @__PURE__ */ $ElementType("Div");
37221
37222
  var G = /* @__PURE__ */ $ElementType("G");
37222
37223
  var Line2 = /* @__PURE__ */ $ElementType("Line");
37223
37224
  var Path2 = /* @__PURE__ */ $ElementType("Path");
37224
37225
  var Rect = /* @__PURE__ */ $ElementType("Rect");
37226
+ var Span = /* @__PURE__ */ $ElementType("Span");
37225
37227
  var SVG = /* @__PURE__ */ $ElementType("SVG");
37226
37228
  var Table = /* @__PURE__ */ $ElementType("Table");
37227
37229
  var Text2 = /* @__PURE__ */ $ElementType("Text");
@@ -37242,54 +37244,64 @@ var genericElementType_ = {
37242
37244
  }
37243
37245
  if (x2._1.tag === "Inr") {
37244
37246
  if (x2._1._1.tag === "Inl") {
37245
- return G;
37247
+ return Div;
37246
37248
  }
37247
37249
  if (x2._1._1.tag === "Inr") {
37248
37250
  if (x2._1._1._1.tag === "Inl") {
37249
- return Line2;
37251
+ return G;
37250
37252
  }
37251
37253
  if (x2._1._1._1.tag === "Inr") {
37252
37254
  if (x2._1._1._1._1.tag === "Inl") {
37253
- return Path2;
37255
+ return Line2;
37254
37256
  }
37255
37257
  if (x2._1._1._1._1.tag === "Inr") {
37256
37258
  if (x2._1._1._1._1._1.tag === "Inl") {
37257
- return Rect;
37259
+ return Path2;
37258
37260
  }
37259
37261
  if (x2._1._1._1._1._1.tag === "Inr") {
37260
37262
  if (x2._1._1._1._1._1._1.tag === "Inl") {
37261
- return SVG;
37263
+ return Rect;
37262
37264
  }
37263
37265
  if (x2._1._1._1._1._1._1.tag === "Inr") {
37264
37266
  if (x2._1._1._1._1._1._1._1.tag === "Inl") {
37265
- return Table;
37267
+ return Span;
37266
37268
  }
37267
37269
  if (x2._1._1._1._1._1._1._1.tag === "Inr") {
37268
37270
  if (x2._1._1._1._1._1._1._1._1.tag === "Inl") {
37269
- return Text2;
37271
+ return SVG;
37270
37272
  }
37271
37273
  if (x2._1._1._1._1._1._1._1._1.tag === "Inr") {
37272
37274
  if (x2._1._1._1._1._1._1._1._1._1.tag === "Inl") {
37273
- return TBody;
37275
+ return Table;
37274
37276
  }
37275
37277
  if (x2._1._1._1._1._1._1._1._1._1.tag === "Inr") {
37276
37278
  if (x2._1._1._1._1._1._1._1._1._1._1.tag === "Inl") {
37277
- return TD;
37279
+ return Text2;
37278
37280
  }
37279
37281
  if (x2._1._1._1._1._1._1._1._1._1._1.tag === "Inr") {
37280
37282
  if (x2._1._1._1._1._1._1._1._1._1._1._1.tag === "Inl") {
37281
- return TH;
37283
+ return TBody;
37282
37284
  }
37283
37285
  if (x2._1._1._1._1._1._1._1._1._1._1._1.tag === "Inr") {
37284
37286
  if (x2._1._1._1._1._1._1._1._1._1._1._1._1.tag === "Inl") {
37285
- return THead;
37287
+ return TD;
37286
37288
  }
37287
37289
  if (x2._1._1._1._1._1._1._1._1._1._1._1._1.tag === "Inr") {
37288
37290
  if (x2._1._1._1._1._1._1._1._1._1._1._1._1._1.tag === "Inl") {
37289
- return TR;
37291
+ return TH;
37290
37292
  }
37291
37293
  if (x2._1._1._1._1._1._1._1._1._1._1._1._1._1.tag === "Inr") {
37292
- return Pattern;
37294
+ if (x2._1._1._1._1._1._1._1._1._1._1._1._1._1._1.tag === "Inl") {
37295
+ return THead;
37296
+ }
37297
+ if (x2._1._1._1._1._1._1._1._1._1._1._1._1._1._1.tag === "Inr") {
37298
+ if (x2._1._1._1._1._1._1._1._1._1._1._1._1._1._1._1.tag === "Inl") {
37299
+ return TR;
37300
+ }
37301
+ if (x2._1._1._1._1._1._1._1._1._1._1._1._1._1._1._1.tag === "Inr") {
37302
+ return Pattern;
37303
+ }
37304
+ }
37293
37305
  }
37294
37306
  }
37295
37307
  }
@@ -37313,19 +37325,19 @@ var genericElementType_ = {
37313
37325
  if (x2 === "Circle") {
37314
37326
  return $Sum("Inr", $Sum("Inl", NoArguments));
37315
37327
  }
37316
- if (x2 === "G") {
37328
+ if (x2 === "Div") {
37317
37329
  return $Sum("Inr", $Sum("Inr", $Sum("Inl", NoArguments)));
37318
37330
  }
37319
- if (x2 === "Line") {
37331
+ if (x2 === "G") {
37320
37332
  return $Sum("Inr", $Sum("Inr", $Sum("Inr", $Sum("Inl", NoArguments))));
37321
37333
  }
37322
- if (x2 === "Path") {
37334
+ if (x2 === "Line") {
37323
37335
  return $Sum(
37324
37336
  "Inr",
37325
37337
  $Sum("Inr", $Sum("Inr", $Sum("Inr", $Sum("Inl", NoArguments))))
37326
37338
  );
37327
37339
  }
37328
- if (x2 === "Rect") {
37340
+ if (x2 === "Path") {
37329
37341
  return $Sum(
37330
37342
  "Inr",
37331
37343
  $Sum(
@@ -37334,7 +37346,7 @@ var genericElementType_ = {
37334
37346
  )
37335
37347
  );
37336
37348
  }
37337
- if (x2 === "SVG") {
37349
+ if (x2 === "Rect") {
37338
37350
  return $Sum(
37339
37351
  "Inr",
37340
37352
  $Sum(
@@ -37346,7 +37358,7 @@ var genericElementType_ = {
37346
37358
  )
37347
37359
  );
37348
37360
  }
37349
- if (x2 === "Table") {
37361
+ if (x2 === "Span") {
37350
37362
  return $Sum(
37351
37363
  "Inr",
37352
37364
  $Sum(
@@ -37361,7 +37373,7 @@ var genericElementType_ = {
37361
37373
  )
37362
37374
  );
37363
37375
  }
37364
- if (x2 === "Text") {
37376
+ if (x2 === "SVG") {
37365
37377
  return $Sum(
37366
37378
  "Inr",
37367
37379
  $Sum(
@@ -37379,7 +37391,7 @@ var genericElementType_ = {
37379
37391
  )
37380
37392
  );
37381
37393
  }
37382
- if (x2 === "TBody") {
37394
+ if (x2 === "Table") {
37383
37395
  return $Sum(
37384
37396
  "Inr",
37385
37397
  $Sum(
@@ -37400,7 +37412,7 @@ var genericElementType_ = {
37400
37412
  )
37401
37413
  );
37402
37414
  }
37403
- if (x2 === "TD") {
37415
+ if (x2 === "Text") {
37404
37416
  return $Sum(
37405
37417
  "Inr",
37406
37418
  $Sum(
@@ -37424,7 +37436,7 @@ var genericElementType_ = {
37424
37436
  )
37425
37437
  );
37426
37438
  }
37427
- if (x2 === "TH") {
37439
+ if (x2 === "TBody") {
37428
37440
  return $Sum(
37429
37441
  "Inr",
37430
37442
  $Sum(
@@ -37451,7 +37463,7 @@ var genericElementType_ = {
37451
37463
  )
37452
37464
  );
37453
37465
  }
37454
- if (x2 === "THead") {
37466
+ if (x2 === "TD") {
37455
37467
  return $Sum(
37456
37468
  "Inr",
37457
37469
  $Sum(
@@ -37484,7 +37496,7 @@ var genericElementType_ = {
37484
37496
  )
37485
37497
  );
37486
37498
  }
37487
- if (x2 === "TR") {
37499
+ if (x2 === "TH") {
37488
37500
  return $Sum(
37489
37501
  "Inr",
37490
37502
  $Sum(
@@ -37520,6 +37532,87 @@ var genericElementType_ = {
37520
37532
  )
37521
37533
  );
37522
37534
  }
37535
+ if (x2 === "THead") {
37536
+ return $Sum(
37537
+ "Inr",
37538
+ $Sum(
37539
+ "Inr",
37540
+ $Sum(
37541
+ "Inr",
37542
+ $Sum(
37543
+ "Inr",
37544
+ $Sum(
37545
+ "Inr",
37546
+ $Sum(
37547
+ "Inr",
37548
+ $Sum(
37549
+ "Inr",
37550
+ $Sum(
37551
+ "Inr",
37552
+ $Sum(
37553
+ "Inr",
37554
+ $Sum(
37555
+ "Inr",
37556
+ $Sum(
37557
+ "Inr",
37558
+ $Sum(
37559
+ "Inr",
37560
+ $Sum("Inr", $Sum("Inr", $Sum("Inl", NoArguments)))
37561
+ )
37562
+ )
37563
+ )
37564
+ )
37565
+ )
37566
+ )
37567
+ )
37568
+ )
37569
+ )
37570
+ )
37571
+ )
37572
+ );
37573
+ }
37574
+ if (x2 === "TR") {
37575
+ return $Sum(
37576
+ "Inr",
37577
+ $Sum(
37578
+ "Inr",
37579
+ $Sum(
37580
+ "Inr",
37581
+ $Sum(
37582
+ "Inr",
37583
+ $Sum(
37584
+ "Inr",
37585
+ $Sum(
37586
+ "Inr",
37587
+ $Sum(
37588
+ "Inr",
37589
+ $Sum(
37590
+ "Inr",
37591
+ $Sum(
37592
+ "Inr",
37593
+ $Sum(
37594
+ "Inr",
37595
+ $Sum(
37596
+ "Inr",
37597
+ $Sum(
37598
+ "Inr",
37599
+ $Sum(
37600
+ "Inr",
37601
+ $Sum("Inr", $Sum("Inr", $Sum("Inl", NoArguments)))
37602
+ )
37603
+ )
37604
+ )
37605
+ )
37606
+ )
37607
+ )
37608
+ )
37609
+ )
37610
+ )
37611
+ )
37612
+ )
37613
+ )
37614
+ );
37615
+ }
37523
37616
  if (x2 === "Pattern") {
37524
37617
  return $Sum(
37525
37618
  "Inr",
@@ -37543,7 +37636,13 @@ var genericElementType_ = {
37543
37636
  "Inr",
37544
37637
  $Sum(
37545
37638
  "Inr",
37546
- $Sum("Inr", $Sum("Inr", $Sum("Inr", NoArguments)))
37639
+ $Sum(
37640
+ "Inr",
37641
+ $Sum(
37642
+ "Inr",
37643
+ $Sum("Inr", $Sum("Inr", $Sum("Inr", NoArguments)))
37644
+ )
37645
+ )
37547
37646
  )
37548
37647
  )
37549
37648
  )
@@ -37566,38 +37665,66 @@ var showElementType = {
37566
37665
  const $2 = (() => {
37567
37666
  const $22 = (() => {
37568
37667
  const $23 = (() => {
37569
- const $24 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "G" });
37668
+ const $24 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Div" });
37570
37669
  const $3 = (() => {
37571
- const $32 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Line" });
37670
+ const $32 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "G" });
37572
37671
  const $4 = (() => {
37573
- const $42 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Path" });
37672
+ const $42 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Line" });
37574
37673
  const $5 = (() => {
37575
- const $52 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Rect" });
37674
+ const $52 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Path" });
37576
37675
  const $6 = (() => {
37577
- const $62 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "SVG" });
37676
+ const $62 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Rect" });
37578
37677
  const $7 = (() => {
37579
- const $72 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Table" });
37678
+ const $72 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Span" });
37580
37679
  const $8 = (() => {
37581
- const $82 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Text" });
37680
+ const $82 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "SVG" });
37582
37681
  const $9 = (() => {
37583
- const $92 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "TBody" });
37682
+ const $92 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Table" });
37584
37683
  const $10 = (() => {
37585
- const $102 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "TD" });
37684
+ const $102 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Text" });
37586
37685
  const $11 = (() => {
37587
- const $112 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "TH" });
37686
+ const $112 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "TBody" });
37588
37687
  const $12 = (() => {
37589
- const $122 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "THead" });
37688
+ const $122 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "TD" });
37590
37689
  const $13 = (() => {
37591
- const $132 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "TR" });
37690
+ const $132 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "TH" });
37592
37691
  const $14 = (() => {
37593
- const $142 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Pattern" });
37692
+ const $142 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "THead" });
37693
+ const $15 = (() => {
37694
+ const $152 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "TR" });
37695
+ const $16 = (() => {
37696
+ const $162 = genericShowConstructor(genericShowArgsNoArguments)({ reflectSymbol: () => "Pattern" });
37697
+ return {
37698
+ "genericShow'": (v) => {
37699
+ if (v.tag === "Inl") {
37700
+ return $152["genericShow'"](v._1);
37701
+ }
37702
+ if (v.tag === "Inr") {
37703
+ return $162["genericShow'"](v._1);
37704
+ }
37705
+ fail();
37706
+ }
37707
+ };
37708
+ })();
37709
+ return {
37710
+ "genericShow'": (v) => {
37711
+ if (v.tag === "Inl") {
37712
+ return $142["genericShow'"](v._1);
37713
+ }
37714
+ if (v.tag === "Inr") {
37715
+ return $16["genericShow'"](v._1);
37716
+ }
37717
+ fail();
37718
+ }
37719
+ };
37720
+ })();
37594
37721
  return {
37595
37722
  "genericShow'": (v) => {
37596
37723
  if (v.tag === "Inl") {
37597
37724
  return $132["genericShow'"](v._1);
37598
37725
  }
37599
37726
  if (v.tag === "Inr") {
37600
- return $142["genericShow'"](v._1);
37727
+ return $15["genericShow'"](v._1);
37601
37728
  }
37602
37729
  fail();
37603
37730
  }
@@ -38119,7 +38246,9 @@ var setSelStates$p = (v) => (select2) => (rootElement) => {
38119
38246
  };
38120
38247
  var createRootElement$p = (v) => (parent) => {
38121
38248
  const $0 = v._2;
38122
- const $1 = createChild(parent)(showElementType.show(G))(fromFoldable9([]));
38249
+ const $1 = createChild(parent)(showElementType.show(Div))(fromFoldable9([
38250
+ $Tuple("class", "para-text")
38251
+ ]));
38123
38252
  return () => {
38124
38253
  const rootElement = $1();
38125
38254
  sequence_2(arrayMap((view2) => view2((dictView) => (v1) => dictView.createElement()(v1)(rootElement)))($0))();
@@ -38504,6 +38633,7 @@ function createElement_({ val }, { title: title2, matrix }, parent) {
38504
38633
  const vMargin = h / 2;
38505
38634
  const rootElement = parent.append("svg");
38506
38635
  rootElement.attr("width", width + hMargin).attr("height", height + vMargin);
38636
+ rootElement.append("text").text(title2 === "intermediate" ? " " : title2).attr("x", hMargin / 2).attr("y", vMargin / 2).attr("class", "title-text").attr("dominant-baseline", "middle").attr("text-anchor", "left");
38507
38637
  const matrixGrp = rootElement.append("g").attr("transform", `translate(${highlightStrokeWidth / 2 + hMargin / 2}, ${highlightStrokeWidth / 2 + vMargin})`).attr("fill", "currentColor").attr("stroke", "currentColor").attr("stroke-width", ".25");
38508
38638
  const rowGrp = matrixGrp.selectAll("g").data([...matrix.cells.entries()].map(([i, ns]) => {
38509
38639
  return { i: i + 1, ns };
@@ -38604,7 +38734,7 @@ var setSelStates$p2 = (v) => (select2) => (rootElement) => sequence_3((() => {
38604
38734
  })());
38605
38735
  var createRootElement$p2 = (v) => (parent) => {
38606
38736
  const views$p = toUnfoldable9(v._1);
38607
- const $0 = createChild(parent)(showElementType.show(G))(fromFoldable9([]));
38737
+ const $0 = createChild(parent)(showElementType.show(Div))(fromFoldable9([]));
38608
38738
  return () => {
38609
38739
  const rootElement = $0();
38610
38740
  sequence_3(arrayMap((v1) => v1._2((dictView) => (v2) => dictView.createElement()(v2)(rootElement)))(views$p))();
@@ -39027,9 +39157,7 @@ var textAttrs = (dictTextual) => (x2) => {
39027
39157
  var viewTextUnit = {
39028
39158
  createElement: (v) => (v1) => (parent) => {
39029
39159
  const $0 = v1._1;
39030
- const $1 = createChild(parent)(showElementType.show(Text2))(fromFoldable9([
39031
- $Tuple("class", "para-text")
39032
- ]));
39160
+ const $1 = createChild(parent)(showElementType.show(Span))(fromFoldable9([]));
39033
39161
  return () => {
39034
39162
  const rootElement = $1();
39035
39163
  return setText($0)(rootElement)();
@@ -39037,7 +39165,7 @@ var viewTextUnit = {
39037
39165
  },
39038
39166
  setSelection: (v) => (v1) => (redraw) => (rootElement) => {
39039
39167
  const $0 = v1._1;
39040
- const $1 = select(".para-text")(rootElement);
39168
+ const $1 = select(":nth-child(1)")(rootElement);
39041
39169
  return () => {
39042
39170
  const elem2 = $1();
39043
39171
  const listener = eventListener((x2) => redraw(selectionEventData$p(x2)._2))();
@@ -39128,18 +39256,26 @@ var viewLinkUnit = {
39128
39256
  };
39129
39257
 
39130
39258
  // output-es/App.View/index.js
39131
- var pack3 = (x2) => (v) => v(viewBarChartUnit)(x2);
39132
- var pack14 = (x2) => (v) => v(viewLineChartUnit)(x2);
39133
- var pack23 = (x2) => (v) => v(viewScatterPlotUnit)(x2);
39134
- var pack32 = (x2) => (v) => v(viewMultiViewUnit)(x2);
39135
- var pack4 = (x2) => (v) => v(viewParagraphUnit)(x2);
39136
- var pack5 = (x2) => (v) => v(viewLinkUnit)(x2);
39259
+ var pack3 = (x2) => (v) => v(viewTextUnit)(x2);
39260
+ var pack14 = (x2) => (v) => v(viewBarChartUnit)(x2);
39261
+ var pack23 = (x2) => (v) => v(viewLineChartUnit)(x2);
39262
+ var pack32 = (x2) => (v) => v(viewScatterPlotUnit)(x2);
39263
+ var pack4 = (x2) => (v) => v(viewMultiViewUnit)(x2);
39264
+ var pack5 = (x2) => (v) => v(viewParagraphUnit)(x2);
39265
+ var pack6 = (x2) => (v) => v(viewLinkUnit)(x2);
39137
39266
  var identity29 = (x2) => x2;
39138
- var pack6 = (x2) => (v) => v(viewTableViewUnit)(x2);
39139
- var pack7 = (x2) => (v) => v(viewMatrixViewUnit)(x2);
39140
- var pack8 = (x2) => (v) => v(viewTextUnit)(x2);
39267
+ var pack7 = (x2) => (v) => v(viewTableViewUnit)(x2);
39268
+ var pack8 = (x2) => (v) => v(viewMatrixViewUnit)(x2);
39141
39269
  var fromFoldable11 = /* @__PURE__ */ (() => fromFoldableImpl(foldableList.foldr))();
39142
39270
  var pack9 = (x2) => (v) => v(viewDocViewUnit)(x2);
39271
+ var reflectValSelStates\u{1D54A}Text = {
39272
+ from: () => (v) => {
39273
+ if (v._3.tag === "Str") {
39274
+ return $Tuple(v._3._1, v._1);
39275
+ }
39276
+ return typeError(v._3)("Text");
39277
+ }
39278
+ };
39143
39279
  var reflectValSelStates\u{1D54A}Link = {
39144
39280
  from: () => (v) => {
39145
39281
  if (v._3.tag === "Constr" && v._3._2.tag === "Cons" && v._3._2._2.tag === "Cons" && v._3._2._2._1._3.tag === "Str" && v._3._2._2._2.tag === "Nil" && v._3._1 === "Link") {
@@ -39287,14 +39423,17 @@ var view = () => (v) => (v1) => (v2) => {
39287
39423
  if (v1._3.tag === "Constr") {
39288
39424
  if (v1._3._2.tag === "Cons") {
39289
39425
  if (v1._3._2._2.tag === "Nil") {
39426
+ if (v1._3._1 === "Text") {
39427
+ return pack3(reflectValSelStates\u{1D54A}Text.from()(v1._3._2._1));
39428
+ }
39290
39429
  if (v1._3._1 === "BarChart") {
39291
- return pack3(dict(reflectDictSelStates\u{1D54A}$x215Val9.from())(v1._3._2._1));
39430
+ return pack14(dict(reflectDictSelStates\u{1D54A}$x215Val9.from())(v1._3._2._1));
39292
39431
  }
39293
39432
  if (v1._3._1 === "LineChart") {
39294
- return pack14(dict(reflectDictSelStates\u{1D54A}$x215Val7.from())(v1._3._2._1));
39433
+ return pack23(dict(reflectDictSelStates\u{1D54A}$x215Val7.from())(v1._3._2._1));
39295
39434
  }
39296
39435
  if (v1._3._1 === "ScatterPlot") {
39297
- return pack23(dict(reflectDictSelStates\u{1D54A}$x215Val6.from())(v1._3._2._1));
39436
+ return pack32(dict(reflectDictSelStates\u{1D54A}$x215Val6.from())(v1._3._2._1));
39298
39437
  }
39299
39438
  if (v1._3._1 === "MultiView") {
39300
39439
  const vws = _fmapObject(
@@ -39309,16 +39448,16 @@ var view = () => (v) => (v1) => (v2) => {
39309
39448
  ),
39310
39449
  view()(v)
39311
39450
  );
39312
- return pack32($MultiView(intersectionWith_Object(apply)(vws)(_fmapObject(vws, (v$1) => Nothing))));
39451
+ return pack4($MultiView(intersectionWith_Object(apply)(vws)(_fmapObject(vws, (v$1) => Nothing))));
39313
39452
  }
39314
39453
  if (v1._3._1 === "Paragraph") {
39315
39454
  const vws = arrayMap(view()(v))(reflectValSelStates\u{1D54A}Array.from()(v1._3._2._1));
39316
- return pack4($Paragraph(false, arrayApply(vws)(arrayMap((v$1) => Nothing)(vws))));
39455
+ return pack5($Paragraph(false, arrayApply(vws)(arrayMap((v$1) => Nothing)(vws))));
39317
39456
  }
39318
39457
  if (v1._3._1 === "Nil" || v1._3._1 === ":") {
39319
39458
  const records = arrayMap(dict(identity29))(reflectValSelStates\u{1D54A}Array.from()(v1));
39320
39459
  const colNames = headers(records);
39321
- return pack6({
39460
+ return pack7({
39322
39461
  title: v,
39323
39462
  filter: Interactive,
39324
39463
  colNames,
@@ -39328,13 +39467,13 @@ var view = () => (v) => (v1) => (v2) => {
39328
39467
  fail();
39329
39468
  }
39330
39469
  if (v1._3._2._2.tag === "Cons" && v1._3._2._2._2.tag === "Nil" && v1._3._1 === "Link") {
39331
- return pack5(reflectValSelStates\u{1D54A}Link.from()(v1));
39470
+ return pack6(reflectValSelStates\u{1D54A}Link.from()(v1));
39332
39471
  }
39333
39472
  }
39334
39473
  if (v1._3._1 === "Nil" || v1._3._1 === ":") {
39335
39474
  const records = arrayMap(dict(identity29))(reflectValSelStates\u{1D54A}Array.from()(v1));
39336
39475
  const colNames = headers(records);
39337
- return pack6({
39476
+ return pack7({
39338
39477
  title: v,
39339
39478
  filter: Interactive,
39340
39479
  colNames,
@@ -39344,7 +39483,7 @@ var view = () => (v) => (v1) => (v2) => {
39344
39483
  fail();
39345
39484
  }
39346
39485
  if (v1._3.tag === "Matrix") {
39347
- return pack7({ title: v, matrix: matrixRep(v1._3._1) });
39486
+ return pack8({ title: v, matrix: matrixRep(v1._3._1) });
39348
39487
  }
39349
39488
  fail();
39350
39489
  };
@@ -39362,11 +39501,11 @@ var viewPara = () => (v) => {
39362
39501
  if (v1._2.tag === "Cons" && v1._2._1.tag === "Token") {
39363
39502
  return formatPara($List("Cons", $DocCommentElem("Token", v1._1._1 + " " + v1._2._1._1), v1._2._2));
39364
39503
  }
39365
- return $List("Cons", pack8($Tuple(v1._1._1, Inert)), formatPara(v1._2));
39504
+ return $List("Cons", pack3($Tuple(v1._1._1, Inert)), formatPara(v1._2));
39366
39505
  }
39367
39506
  if (v1._1.tag === "Unquote") {
39368
39507
  if (v1._1._1._3.tag === "Int") {
39369
- return $List("Cons", pack8($Tuple(showIntImpl(v1._1._1._3._1), v1._1._1._1)), formatPara(v1._2));
39508
+ return $List("Cons", pack3($Tuple(showIntImpl(v1._1._1._3._1), v1._1._1._1)), formatPara(v1._2));
39370
39509
  }
39371
39510
  return $List("Cons", view()("")(v1._1._1)(Nothing), formatPara(v1._2));
39372
39511
  }
@@ -39393,6 +39532,17 @@ var applyStateT = (dictMonad) => {
39393
39532
  };
39394
39533
  };
39395
39534
  var applicativeStateT = (dictMonad) => ({ pure: (a) => (s) => dictMonad.Applicative0().pure($Tuple(a, s)), Apply0: () => applyStateT(dictMonad) });
39535
+ var monadEffectState = (dictMonadEffect) => {
39536
+ const Monad0 = dictMonadEffect.Monad0();
39537
+ const monadStateT1 = { Applicative0: () => applicativeStateT(Monad0), Bind1: () => bindStateT(Monad0) };
39538
+ return {
39539
+ liftEffect: (x2) => {
39540
+ const $0 = dictMonadEffect.liftEffect(x2);
39541
+ return (s) => Monad0.Bind1().bind($0)((x$1) => Monad0.Applicative0().pure($Tuple(x$1, s)));
39542
+ },
39543
+ Monad0: () => monadStateT1
39544
+ };
39545
+ };
39396
39546
  var monadRecStateT = (dictMonadRec) => {
39397
39547
  const Monad0 = dictMonadRec.Monad0();
39398
39548
  const monadStateT1 = { Applicative0: () => applicativeStateT(Monad0), Bind1: () => bindStateT(Monad0) };
@@ -39429,6 +39579,23 @@ var monadErrorStateT = (dictMonadError) => {
39429
39579
  return { catchError: (v) => (h) => (s) => dictMonadError.catchError(v(s))((e) => h(e)(s)), MonadThrow0: () => monadThrowStateT1 };
39430
39580
  };
39431
39581
 
39582
+ // output-es/Effect.Aff.Class/index.js
39583
+ var monadAffAff = { liftAff: (x2) => x2, MonadEffect0: () => monadEffectAff };
39584
+ var monadAffState = (dictMonadAff) => {
39585
+ const MonadEffect0 = dictMonadAff.MonadEffect0();
39586
+ const monadEffectState2 = monadEffectState(MonadEffect0);
39587
+ return {
39588
+ liftAff: (() => {
39589
+ const $0 = MonadEffect0.Monad0();
39590
+ return (x2) => {
39591
+ const $1 = dictMonadAff.liftAff(x2);
39592
+ return (s) => $0.Bind1().bind($1)((x$1) => $0.Applicative0().pure($Tuple(x$1, s)));
39593
+ };
39594
+ })(),
39595
+ MonadEffect0: () => monadEffectState2
39596
+ };
39597
+ };
39598
+
39432
39599
  // output-es/Graph.WithGraph/index.js
39433
39600
  var fromFoldable17 = /* @__PURE__ */ (() => {
39434
39601
  const go = (go$a0$copy) => (go$a1$copy) => {
@@ -39823,11 +39990,11 @@ var new$p = (dictMonadWithGraphAlloc) => {
39823
39990
  const Monad0 = MonadWithGraph2.Monad0();
39824
39991
  const Bind1 = Monad0.Bind1();
39825
39992
  const fresh = dictMonadWithGraphAlloc.MonadAlloc0().fresh;
39826
- return (v) => (v1) => (v2) => (v3) => {
39993
+ return (dictLoadFile) => (v) => (v1) => (v2) => (v3) => {
39827
39994
  if (v2.tag === "None") {
39828
39995
  return $$new((\u03B1s$p) => (u$p) => $Val(\u03B1s$p, None, u$p))(v1)(v3);
39829
39996
  }
39830
- return Bind1.bind(fresh)((\u03B1) => Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(unionWith((v$1) => identity18)(v)((() => {
39997
+ return Bind1.bind(fresh)((\u03B1) => Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith((v$1) => identity18)(v)((() => {
39831
39998
  const $0 = {};
39832
39999
  $0.this = $Val(\u03B1, None, v3);
39833
40000
  return $0;
@@ -39839,7 +40006,7 @@ var evalDocOpt = (dictMonadWithGraphAlloc) => {
39839
40006
  const Applicative0 = Monad0.Applicative0();
39840
40007
  const $0 = Monad0.Bind1().Apply0().Functor0();
39841
40008
  const sequence2 = traversableList.traverse(Applicative0)(identity7);
39842
- return (v) => (v1) => {
40009
+ return (dictLoadFile) => (v) => (v1) => {
39843
40010
  if (v1.tag === "None") {
39844
40011
  return Applicative0.pure(None);
39845
40012
  }
@@ -39849,7 +40016,7 @@ var evalDocOpt = (dictMonadWithGraphAlloc) => {
39849
40016
  return Applicative0.pure($DocCommentElem("Token", v2._1));
39850
40017
  }
39851
40018
  if (v2.tag === "Unquote") {
39852
- return $0.map(Unquote)($$eval(dictMonadWithGraphAlloc)(v)(v2._1)(setSet4.empty));
40019
+ return $0.map(Unquote)($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v2._1)(setSet4.empty));
39853
40020
  }
39854
40021
  fail();
39855
40022
  })(v1._1)));
@@ -39872,7 +40039,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
39872
40039
  const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
39873
40040
  const match1 = match(dictMonadWithGraphAlloc);
39874
40041
  const closeDefs1 = closeDefs(dictMonadWithGraphAlloc);
39875
- return (v) => (v1) => (v2) => {
40042
+ return (dictLoadFile) => (v) => (v1) => (v2) => {
39876
40043
  if (v1.tag === "Var") {
39877
40044
  return withMsg2("Variable lookup")(lookup$p(MonadThrow0)(showString)(mapEnvStringVal)(v1._1)(v));
39878
40045
  }
@@ -39880,23 +40047,23 @@ var $$eval = (dictMonadWithGraphAlloc) => {
39880
40047
  return withMsg2("Variable lookup")(lookup$p(MonadThrow0)(showString)(mapEnvStringVal)(v1._1)(v));
39881
40048
  }
39882
40049
  if (v1.tag === "Int") {
39883
- return new$p(dictMonadWithGraphAlloc)(v)(insert3(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Int", v1._3));
40050
+ return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert3(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Int", v1._3));
39884
40051
  }
39885
40052
  if (v1.tag === "Float") {
39886
- return new$p(dictMonadWithGraphAlloc)(v)(insert3(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Float", v1._3));
40053
+ return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert3(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Float", v1._3));
39887
40054
  }
39888
40055
  if (v1.tag === "Str") {
39889
- return new$p(dictMonadWithGraphAlloc)(v)(insert3(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Str", v1._3));
40056
+ return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert3(ordVertex)(v1._1)()(v2))(v1._2)($BaseVal("Str", v1._3));
39890
40057
  }
39891
40058
  if (v1.tag === "Dictionary") {
39892
40059
  const $1 = v1._2;
39893
40060
  const $2 = v1._1;
39894
40061
  return Bind1.bind($0.map(unzip3)(traverse2(traverse3((() => {
39895
- const $3 = $$eval(dictMonadWithGraphAlloc)(v);
40062
+ const $3 = $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v);
39896
40063
  return (a) => $3(a)(v2);
39897
40064
  })()))(v1._3)))((v3) => {
39898
40065
  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));
39899
- return new$p(dictMonadWithGraphAlloc)(v)(insert3(ordVertex)($2)()(v2))($1)($BaseVal(
40066
+ return new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert3(ordVertex)($2)()(v2))($1)($BaseVal(
39900
40067
  "Dictionary",
39901
40068
  fromFoldable110(zipWith2(Tuple)(v4._1)(zipWith2(Tuple)(v4._2)(v3._2)))
39902
40069
  ));
@@ -39928,9 +40095,9 @@ var $$eval = (dictMonadWithGraphAlloc) => {
39928
40095
  };
39929
40096
  return go(0)($3);
39930
40097
  })()))(() => Bind1.bind(traverse2((() => {
39931
- const $5 = $$eval(dictMonadWithGraphAlloc)(v);
40098
+ const $5 = $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v);
39932
40099
  return (a) => $5(a)(v2);
39933
- })())($3))((vs) => new$p(dictMonadWithGraphAlloc)(v)(insert3(ordVertex)($4)()(v2))($2)($BaseVal("Constr", $1, vs))));
40100
+ })())($3))((vs) => new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert3(ordVertex)($4)()(v2))($2)($BaseVal("Constr", $1, vs))));
39934
40101
  }
39935
40102
  if (v1.tag === "Matrix") {
39936
40103
  const $1 = v1._2;
@@ -39938,7 +40105,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
39938
40105
  const $3 = v1._4._1;
39939
40106
  const $4 = v1._4._2;
39940
40107
  const $5 = v1._1;
39941
- return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._5)(v2))((v3) => {
40108
+ return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._5)(v2))((v3) => {
39942
40109
  const v5 = intPair.unpack(v3._3);
39943
40110
  const $6 = v5._1._1;
39944
40111
  const $7 = v5._2._1;
@@ -39949,7 +40116,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
39949
40116
  $7
39950
40117
  )) + ")"))(() => Bind1.bind(sequence2(arrayBind(range(1)($6))((i) => [
39951
40118
  sequence2(arrayBind(range(1)($7))((j) => [
39952
- $$eval(dictMonadWithGraphAlloc)(unionWith((v$1) => identity18)(v)(disjointUnion2((() => {
40119
+ $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith((v$1) => identity18)(v)(disjointUnion2((() => {
39953
40120
  const $10 = {};
39954
40121
  $10[$3] = $Val($8, None, $BaseVal("Int", i));
39955
40122
  return $10;
@@ -39959,7 +40126,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
39959
40126
  return $10;
39960
40127
  })())))($2)(v2)
39961
40128
  ]))
39962
- ])))((vss) => new$p(dictMonadWithGraphAlloc)(v)(insert3(ordVertex)($5)()(v2))($1)($BaseVal(
40129
+ ])))((vss) => new$p(dictMonadWithGraphAlloc)(dictLoadFile)(v)(insert3(ordVertex)($5)()(v2))($1)($BaseVal(
39963
40130
  "Matrix",
39964
40131
  $Tuple(vss, $Tuple($Tuple($6, $8), $Tuple($7, $9)))
39965
40132
  ))));
@@ -39985,7 +40152,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
39985
40152
  if (v1.tag === "Project") {
39986
40153
  const $1 = v1._1;
39987
40154
  const $2 = v1._3;
39988
- return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._2)(v2))((v3) => {
40155
+ return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._2)(v2))((v3) => {
39989
40156
  if (v3._3.tag === "Dictionary") {
39990
40157
  return Bind1.bind(withMsg2("Dict lookup")(orElse(MonadThrow0)('Key "' + $2 + '" not found')((() => {
39991
40158
  const $3 = _lookup(Nothing, Just, $2, v3._3._1);
@@ -39993,7 +40160,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
39993
40160
  return $Maybe("Just", $3._1._2);
39994
40161
  }
39995
40162
  return Nothing;
39996
- })())))((v$p) => concatDocs(dictMonadWithGraphAlloc)(v)(v$p)($1));
40163
+ })())))((v$p) => concatDocs(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v$p)($1));
39997
40164
  }
39998
40165
  return MonadThrow0.throwError(error("Found " + intercalate4("\n")(removeDocWS(prettyVal(highlightableVertex).pretty(v3)).lines) + ", expected dictionary"));
39999
40166
  });
@@ -40001,7 +40168,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
40001
40168
  if (v1.tag === "DProject") {
40002
40169
  const $1 = v1._1;
40003
40170
  const $2 = v1._3;
40004
- return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._2)(v2))((v3) => Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)($2)(v2))((v$p) => {
40171
+ return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._2)(v2))((v3) => Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)($2)(v2))((v$p) => {
40005
40172
  if (v3._3.tag === "Dictionary") {
40006
40173
  if (v$p._3.tag === "Str") {
40007
40174
  return Bind1.bind(withMsg2("Dict lookup")(orElse(MonadThrow0)('Key "' + v$p._3._1 + '" not found')((() => {
@@ -40010,7 +40177,7 @@ var $$eval = (dictMonadWithGraphAlloc) => {
40010
40177
  return $Maybe("Just", $3._1._2);
40011
40178
  }
40012
40179
  return Nothing;
40013
- })())))((v$p$p) => concatDocs(dictMonadWithGraphAlloc)(v)(v$p$p)($1));
40180
+ })())))((v$p$p) => concatDocs(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v$p$p)($1));
40014
40181
  }
40015
40182
  return MonadThrow0.throwError(error("Found " + intercalate4("\n")(removeDocWS(prettyVal(highlightableVertex).pretty(v$p)).lines) + ", expected string"));
40016
40183
  }
@@ -40020,10 +40187,10 @@ var $$eval = (dictMonadWithGraphAlloc) => {
40020
40187
  if (v1.tag === "App") {
40021
40188
  const $1 = v1._1;
40022
40189
  const $2 = v1._3;
40023
- 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) => {
40190
+ 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) => {
40024
40191
  const $3 = v4._3;
40025
40192
  const $4 = v4._1;
40026
- return Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(unionWith((v$1) => identity18)(v)((() => {
40193
+ return Bind1.bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith((v$1) => identity18)(v)((() => {
40027
40194
  const $5 = {};
40028
40195
  $5.this = v4;
40029
40196
  return $5;
@@ -40033,23 +40200,23 @@ var $$eval = (dictMonadWithGraphAlloc) => {
40033
40200
  if (v1.tag === "Let") {
40034
40201
  const $1 = v1._2;
40035
40202
  const $2 = v1._1._1;
40036
- return Bind1.bind($$eval(dictMonadWithGraphAlloc)(v)(v1._1._2)(v2))((v3) => Bind1.bind(match1(v3)($2))((v4) => $$eval(dictMonadWithGraphAlloc)(unionWith((v$1) => identity18)(v)(v4._1))($1)(v4._2._2)));
40203
+ return Bind1.bind($$eval(dictMonadWithGraphAlloc)(dictLoadFile)(v)(v1._1._2)(v2))((v3) => Bind1.bind(match1(v3)($2))((v4) => $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith((v$1) => identity18)(v)(v4._1))($1)(v4._2._2)));
40037
40204
  }
40038
40205
  if (v1.tag === "LetRec") {
40039
40206
  const $1 = v1._2;
40040
40207
  const $2 = v1._1._1;
40041
- return Bind1.bind(closeDefs1(v)(v1._1._2)(insert3(ordVertex)($2)()(v2)))((\u03B3$p) => $$eval(dictMonadWithGraphAlloc)(unionWith((v$1) => identity18)(v)(\u03B3$p))($1)(insert3(ordVertex)($2)()(v2)));
40208
+ return Bind1.bind(closeDefs1(v)(v1._1._2)(insert3(ordVertex)($2)()(v2)))((\u03B3$p) => $$eval(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith((v$1) => identity18)(v)(\u03B3$p))($1)(insert3(ordVertex)($2)()(v2)));
40042
40209
  }
40043
40210
  fail();
40044
40211
  };
40045
40212
  };
40046
40213
  var concatDocs = (dictMonadWithGraphAlloc) => {
40047
40214
  const Monad0 = dictMonadWithGraphAlloc.MonadWithGraph2().Monad0();
40048
- return (\u03B3) => (v) => (doc2) => {
40215
+ return (dictLoadFile) => (\u03B3) => (v) => (doc2) => {
40049
40216
  const $0 = v._3;
40050
40217
  const $1 = v._2;
40051
40218
  const $2 = v._1;
40052
- return Monad0.Bind1().bind(evalDocOpt(dictMonadWithGraphAlloc)(unionWith((v$1) => identity18)(\u03B3)((() => {
40219
+ return Monad0.Bind1().bind(evalDocOpt(dictMonadWithGraphAlloc)(dictLoadFile)(unionWith((v$1) => identity18)(\u03B3)((() => {
40053
40220
  const $3 = {};
40054
40221
  $3.this = $Val($2, None, $0);
40055
40222
  return $3;
@@ -40063,14 +40230,14 @@ var apply2 = (dictMonadWithGraphAlloc) => {
40063
40230
  const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
40064
40231
  const MonadError1 = dictMonadWithGraphAlloc.MonadError1();
40065
40232
  const MonadThrow0 = MonadError1.MonadThrow0();
40066
- return (v) => (v1) => {
40233
+ return (dictLoadFile) => (v) => (v1) => {
40067
40234
  const $0 = (v2) => MonadThrow0.throwError(error("Found " + intercalate4("\n")(removeDocWS(prettyVal(highlightableVertex).pretty(v2)).lines) + ", expected function"));
40068
40235
  if (v._3.tag === "Fun") {
40069
40236
  if (v._3._1.tag === "Closure") {
40070
40237
  const $1 = v._1;
40071
40238
  const $2 = v._3._1._1;
40072
40239
  const $3 = v._3._1._3;
40073
- 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)(unionWith((v$1) => identity18)(unionWith((v$1) => identity18)($2)(\u03B32))(v3._1))(v3._2._1.tag === "ContExpr" ? v3._2._1._1 : throwException(error("Expression expected"))())(insert3(ordVertex)($1)()(v3._2._2))));
40240
+ 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)(unionWith((v$1) => identity18)(unionWith((v$1) => identity18)($2)(\u03B32))(v3._1))(v3._2._1.tag === "ContExpr" ? v3._2._1._1 : throwException(error("Expression expected"))())(insert3(ordVertex)($1)()(v3._2._2))));
40074
40241
  }
40075
40242
  if (v._3._1.tag === "Foreign") {
40076
40243
  const $1 = v._3._1._1._2;
@@ -40101,7 +40268,7 @@ var apply2 = (dictMonadWithGraphAlloc) => {
40101
40268
  $Fun("Foreign", $Tuple(v._3._1._1._1, $1), vs$p)
40102
40269
  ));
40103
40270
  }
40104
- return $1._1.op(dictMonadWithGraphAlloc)(MonadError1)(vs$p);
40271
+ return $1._1.op(dictMonadWithGraphAlloc)(MonadError1)(dictLoadFile)(vs$p);
40105
40272
  }
40106
40273
  if (v._3._1.tag === "PartialConstr") {
40107
40274
  const $1 = v._1;
@@ -40172,25 +40339,28 @@ var eval_module = (dictMonadWithGraphAlloc) => {
40172
40339
  const eval1 = $$eval(dictMonadWithGraphAlloc);
40173
40340
  const match1 = match(dictMonadWithGraphAlloc);
40174
40341
  const closeDefs1 = closeDefs(dictMonadWithGraphAlloc);
40175
- return (\u03B3) => {
40176
- const go = (v) => (v1) => (v2) => {
40177
- if (v1.tag === "Nil") {
40178
- return Monad0.Applicative0().pure(v);
40179
- }
40180
- if (v1.tag === "Cons") {
40181
- if (v1._1.tag === "Left") {
40182
- const $1 = v1._2;
40183
- const $2 = v1._1._1._1;
40184
- return $0.bind(eval1(unionWith((v$1) => identity18)(\u03B3)(v))(v1._1._1._2)(v2))((v3) => $0.bind(match1(v3)($2))((v4) => go(unionWith((v$1) => identity18)(v)(v4._1))($1)(v4._2._2)));
40342
+ return (dictLoadFile) => {
40343
+ const eval2 = eval1(dictLoadFile);
40344
+ return (\u03B3) => {
40345
+ const go = (v) => (v1) => (v2) => {
40346
+ if (v1.tag === "Nil") {
40347
+ return Monad0.Applicative0().pure(v);
40185
40348
  }
40186
- if (v1._1.tag === "Right") {
40187
- const $1 = v1._2;
40188
- return $0.bind(closeDefs1(unionWith((v$1) => identity18)(\u03B3)(v))(v1._1._1._2)(insert3(ordVertex)(v1._1._1._1)()(v2)))((\u03B3$p$p) => go(unionWith((v$1) => identity18)(v)(\u03B3$p$p))($1)(v2));
40349
+ if (v1.tag === "Cons") {
40350
+ if (v1._1.tag === "Left") {
40351
+ const $1 = v1._2;
40352
+ const $2 = v1._1._1._1;
40353
+ return $0.bind(eval2(unionWith((v$1) => identity18)(\u03B3)(v))(v1._1._1._2)(v2))((v3) => $0.bind(match1(v3)($2))((v4) => go(unionWith((v$1) => identity18)(v)(v4._1))($1)(v4._2._2)));
40354
+ }
40355
+ if (v1._1.tag === "Right") {
40356
+ const $1 = v1._2;
40357
+ return $0.bind(closeDefs1(unionWith((v$1) => identity18)(\u03B3)(v))(v1._1._1._2)(insert3(ordVertex)(v1._1._1._1)()(v2)))((\u03B3$p$p) => go(unionWith((v$1) => identity18)(v)(\u03B3$p$p))($1)(v2));
40358
+ }
40189
40359
  }
40190
- }
40191
- fail();
40360
+ fail();
40361
+ };
40362
+ return go(empty);
40192
40363
  };
40193
- return go(empty);
40194
40364
  };
40195
40365
  };
40196
40366
  var eval_progCxt = (dictMonadWithGraphAlloc) => {
@@ -40200,18 +40370,21 @@ var eval_progCxt = (dictMonadWithGraphAlloc) => {
40200
40370
  const $1 = Monad0.Applicative0();
40201
40371
  const eval1 = $$eval(dictMonadWithGraphAlloc);
40202
40372
  const concatM1 = concatM(Monad0);
40203
- return (v) => concatM1(foldableList.foldr(Cons)(listMap((v1) => (\u03B3) => {
40204
- const $2 = v1._1;
40205
- return $0.bind(eval1(\u03B3)(v1._2)(setSet4.empty))((v2) => $1.pure(unionWith((v$1) => identity18)(\u03B3)((() => {
40206
- const $3 = {};
40207
- $3[$2] = v2;
40208
- return $3;
40209
- })())));
40210
- })(reverse2(v.datasets)))(listMap((mod) => (\u03B3) => $0.bind(eval_module1(\u03B3)(mod)(setSet4.empty))((\u03B3$p) => $1.pure(unionWith((v$1) => identity18)(\u03B3)(\u03B3$p))))(reverse2(v.mods))))(v.primitives);
40373
+ return (dictLoadFile) => {
40374
+ const eval_module2 = eval_module1(dictLoadFile);
40375
+ const eval2 = eval1(dictLoadFile);
40376
+ return (v) => concatM1(foldableList.foldr(Cons)(listMap((v1) => (\u03B3) => {
40377
+ const $2 = v1._1;
40378
+ return $0.bind(eval2(\u03B3)(v1._2)(setSet4.empty))((v2) => $1.pure(unionWith((v$1) => identity18)(\u03B3)((() => {
40379
+ const $3 = {};
40380
+ $3[$2] = v2;
40381
+ return $3;
40382
+ })())));
40383
+ })(reverse2(v.datasets)))(listMap((mod) => (\u03B3) => $0.bind(eval_module2(\u03B3)(mod)(setSet4.empty))((\u03B3$p) => $1.pure(unionWith((v$1) => identity18)(\u03B3)(\u03B3$p))))(reverse2(v.mods))))(v.primitives);
40384
+ };
40211
40385
  };
40212
- var graphEval = (dictMonadError) => {
40213
- const MonadThrow0 = dictMonadError.MonadThrow0();
40214
- const Monad0 = MonadThrow0.Monad0();
40386
+ var graphEval = (dictMonadAff) => {
40387
+ const Monad0 = dictMonadAff.MonadEffect0().Monad0();
40215
40388
  const bindStateT2 = bindStateT(Monad0);
40216
40389
  const $0 = monadAllocAllocT(Monad0);
40217
40390
  const fresh1 = $0.fresh;
@@ -40220,29 +40393,47 @@ var graphEval = (dictMonadError) => {
40220
40393
  Applicative0: () => applicativeStateT(Monad0),
40221
40394
  Bind1: () => bindStateT(Monad0)
40222
40395
  })(graphGraphImpl);
40223
- const eval1 = $$eval(monadWithGraphAllocWithGr(dictMonadError));
40224
- const check2 = check(monadThrowStateT(MonadThrow0));
40225
- return (v) => (e) => {
40226
- const $1 = v["\u03B3"];
40227
- const $2 = spyFunWhen(false)("fwdSlice")((x2) => $Tuple(showVertices(x2._1), showEdgeList(toEdgeList(graphGraphImpl)(x2._2))))(showGraph(graphGraphImpl))(fwdSlice2);
40228
- const $3 = spyFunWhen(false)("bwdSlice")((x2) => $Tuple(showVertices(x2._1), showEdgeList(toEdgeList(graphGraphImpl)(x2._2))))(showGraph(graphGraphImpl))(bwdSlice2);
40229
- return Monad0.Bind1().bind(runAllocT(Monad0)(bindStateT2.bind(alloc(e))((e\u03B1) => bindStateT2.bind(runWithGraphT_spy2(eval1($1)(e\u03B1)(Leaf2))(verticesEnvExprVertex.vertices($EnvExpr(
40230
- $1,
40231
- e\u03B1
40232
- ))))((v1) => {
40233
- const $4 = v1._1;
40234
- const $5 = v1._2;
40235
- return bindStateT2.bind(check2(difference2(ordDVertex$p)(verticesValVertex.vertices($5))(verticesGraphImpl.vertices($4)).tag === "Leaf")("outputs in graph"))(() => applicativeStateT(Monad0).pure($Tuple(
40236
- $4,
40237
- $Tuple($EnvExpr($1, e\u03B1), $5)
40238
- )));
40239
- })))(v.n))((v1) => Monad0.Applicative0().pure({
40240
- g: v1._2._2._1,
40241
- graph_fwd: (a) => (b) => $2($Tuple(a, b)),
40242
- graph_bwd: (a) => (b) => $3($Tuple(a, b)),
40243
- "in\u03B1": v1._2._2._2._1,
40244
- "out\u03B1": v1._2._2._2._2
40245
- }));
40396
+ const $1 = monadAffState(dictMonadAff).MonadEffect0().Monad0();
40397
+ const $2 = dictMonadAff.MonadEffect0().Monad0();
40398
+ return (dictLoadFile) => (dictMonadError) => {
40399
+ const eval1 = $$eval(monadWithGraphAllocWithGr(dictMonadError))((() => {
40400
+ const loadFile1 = dictLoadFile.loadFile(dictMonadError)(dictMonadAff);
40401
+ return {
40402
+ loadFile: (dictMonadError1) => (dictMonadAff1) => (folders) => {
40403
+ const $3 = loadFile1(folders);
40404
+ return (x2) => {
40405
+ const $4 = $3(x2);
40406
+ 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(
40407
+ x$1,
40408
+ s
40409
+ )));
40410
+ };
40411
+ }
40412
+ };
40413
+ })());
40414
+ const check2 = check(monadThrowStateT(dictMonadError.MonadThrow0()));
40415
+ return (v) => (e) => {
40416
+ const $3 = v["\u03B3"];
40417
+ const $4 = spyFunWhen(false)("fwdSlice")((x2) => $Tuple(showVertices(x2._1), showEdgeList(toEdgeList(graphGraphImpl)(x2._2))))(showGraph(graphGraphImpl))(fwdSlice2);
40418
+ const $5 = spyFunWhen(false)("bwdSlice")((x2) => $Tuple(showVertices(x2._1), showEdgeList(toEdgeList(graphGraphImpl)(x2._2))))(showGraph(graphGraphImpl))(bwdSlice2);
40419
+ return Monad0.Bind1().bind(runAllocT(Monad0)(bindStateT2.bind(alloc(e))((e\u03B1) => bindStateT2.bind(runWithGraphT_spy2(eval1($3)(e\u03B1)(Leaf2))(verticesEnvExprVertex.vertices($EnvExpr(
40420
+ $3,
40421
+ e\u03B1
40422
+ ))))((v1) => {
40423
+ const $6 = v1._1;
40424
+ const $7 = v1._2;
40425
+ return bindStateT2.bind(check2(difference2(ordDVertex$p)(verticesValVertex.vertices($7))(verticesGraphImpl.vertices($6)).tag === "Leaf")("outputs in graph"))(() => applicativeStateT(Monad0).pure($Tuple(
40426
+ $6,
40427
+ $Tuple($EnvExpr($3, e\u03B1), $7)
40428
+ )));
40429
+ })))(v.n))((v1) => Monad0.Applicative0().pure({
40430
+ g: v1._2._2._1,
40431
+ graph_fwd: (a) => (b) => $4($Tuple(a, b)),
40432
+ graph_bwd: (a) => (b) => $5($Tuple(a, b)),
40433
+ "in\u03B1": v1._2._2._2._1,
40434
+ "out\u03B1": v1._2._2._2._2
40435
+ }));
40436
+ };
40246
40437
  };
40247
40438
  };
40248
40439
 
@@ -43530,7 +43721,7 @@ var matrixUpdate = /* @__PURE__ */ $Tuple(
43530
43721
  const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
43531
43722
  return (dictMonadError) => {
43532
43723
  const $$throw2 = $$throw(dictMonadError.MonadThrow0());
43533
- return (v) => {
43724
+ return (dictLoadFile) => (v) => {
43534
43725
  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") {
43535
43726
  const $0 = v._2._2._1;
43536
43727
  return $$new((a) => Val(a)(None))($$$Map("Two", Leaf2, v._1._1, void 0, Leaf2))($BaseVal(
@@ -43550,7 +43741,7 @@ var matrixLookup = /* @__PURE__ */ $Tuple(
43550
43741
  arity: 2,
43551
43742
  op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
43552
43743
  const MonadThrow0 = dictMonadError.MonadThrow0();
43553
- return (v) => {
43744
+ return (dictLoadFile) => (v) => {
43554
43745
  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") {
43555
43746
  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));
43556
43747
  }
@@ -43583,7 +43774,7 @@ var error_ = /* @__PURE__ */ $Tuple(
43583
43774
  arity: 1,
43584
43775
  op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
43585
43776
  const MonadThrow0 = dictMonadError.MonadThrow0();
43586
- return (v) => {
43777
+ return (dictLoadFile) => (v) => {
43587
43778
  if (v.tag === "Cons" && v._1._3.tag === "Str" && v._2.tag === "Nil") {
43588
43779
  return MonadThrow0.Monad0().Applicative0().pure(throwException(error(v._1._3._1))());
43589
43780
  }
@@ -43602,7 +43793,7 @@ var dims = /* @__PURE__ */ $Tuple(
43602
43793
  return (dictMonadError) => {
43603
43794
  const MonadThrow0 = dictMonadError.MonadThrow0();
43604
43795
  const $0 = MonadThrow0.Monad0().Bind1();
43605
- return (v) => {
43796
+ return (dictLoadFile) => (v) => {
43606
43797
  if (v.tag === "Cons" && v._1._3.tag === "Matrix" && v._2.tag === "Nil") {
43607
43798
  const $1 = v._1._3._1._2._2._1;
43608
43799
  const $2 = v._1._1;
@@ -43637,19 +43828,22 @@ var dict_map = /* @__PURE__ */ $Tuple(
43637
43828
  const Monad0 = MonadThrow0.Monad0();
43638
43829
  const Bind1 = Monad0.Bind1();
43639
43830
  const traverse1 = traversableDict.traverse(Monad0.Applicative0());
43640
- return (v) => {
43641
- if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
43642
- const $0 = v._1;
43643
- const $1 = v._2._1._1;
43644
- return Bind1.bind(traverse1((v2) => {
43645
- const $2 = v2._1;
43646
- return Bind1.Apply0().Functor0().map((v3) => $Tuple($2, v3))(apply3($0)(v2._2));
43647
- })(v._2._1._3._1))((d$p) => $$new((a) => Val(a)(None))($$$Map("Two", Leaf2, $1, void 0, Leaf2))($BaseVal(
43648
- "Dictionary",
43649
- d$p
43650
- )));
43651
- }
43652
- return MonadThrow0.throwError(error("Function and dictionary expected"));
43831
+ return (dictLoadFile) => {
43832
+ const apply1 = apply3(dictLoadFile);
43833
+ return (v) => {
43834
+ if (v.tag === "Cons" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
43835
+ const $0 = v._1;
43836
+ const $1 = v._2._1._1;
43837
+ return Bind1.bind(traverse1((v2) => {
43838
+ const $2 = v2._1;
43839
+ return Bind1.Apply0().Functor0().map((v3) => $Tuple($2, v3))(apply1($0)(v2._2));
43840
+ })(v._2._1._3._1))((d$p) => $$new((a) => Val(a)(None))($$$Map("Two", Leaf2, $1, void 0, Leaf2))($BaseVal(
43841
+ "Dictionary",
43842
+ d$p
43843
+ )));
43844
+ }
43845
+ return MonadThrow0.throwError(error("Function and dictionary expected"));
43846
+ };
43653
43847
  };
43654
43848
  };
43655
43849
  }
@@ -43668,31 +43862,34 @@ var dict_intersectionWith = /* @__PURE__ */ $Tuple(
43668
43862
  const Bind1 = Monad0.Bind1();
43669
43863
  const Applicative0 = Monad0.Applicative0();
43670
43864
  const $0 = Bind1.Apply0().Functor0();
43671
- return (v) => {
43672
- 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") {
43673
- const $1 = v._1;
43674
- const $2 = v._2._1._1;
43675
- const $3 = v._2._2._1._1;
43676
- return Bind1.bind($0.map(Dictionary3)($0.map(DictRep)(traversableDict.traverse(Applicative0)(identity19)(intersectionWith_Object((v2) => (v3) => {
43677
- const $4 = v3._2;
43678
- const $5 = v2._1;
43679
- const $6 = v3._1;
43680
- return Bind1.bind(Bind1.bind(apply3($1)(v2._2))((a) => apply3(a)($4)))((v4) => Bind1.bind($$new((a) => Val(a)(None))(insert3(ordVertex)($6)()($$$Map(
43865
+ return (dictLoadFile) => {
43866
+ const apply1 = apply3(dictLoadFile);
43867
+ return (v) => {
43868
+ 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") {
43869
+ const $1 = v._1;
43870
+ const $2 = v._2._1._1;
43871
+ const $3 = v._2._2._1._1;
43872
+ return Bind1.bind($0.map(Dictionary3)($0.map(DictRep)(traversableDict.traverse(Applicative0)(identity19)(intersectionWith_Object((v2) => (v3) => {
43873
+ const $4 = v3._2;
43874
+ const $5 = v2._1;
43875
+ const $6 = v3._1;
43876
+ return Bind1.bind(Bind1.bind(apply1($1)(v2._2))((a) => apply1(a)($4)))((v4) => Bind1.bind($$new((a) => Val(a)(None))(insert3(ordVertex)($6)()($$$Map(
43877
+ "Two",
43878
+ Leaf2,
43879
+ $5,
43880
+ void 0,
43881
+ Leaf2
43882
+ )))(v4._3))((v5) => Applicative0.pure($Tuple(v5._1, v4))));
43883
+ })(v._2._1._3._1)(v._2._2._1._3._1)))))((v$p) => $$new((a) => Val(a)(None))(insert3(ordVertex)($3)()($$$Map(
43681
43884
  "Two",
43682
43885
  Leaf2,
43683
- $5,
43886
+ $2,
43684
43887
  void 0,
43685
43888
  Leaf2
43686
- )))(v4._3))((v5) => Applicative0.pure($Tuple(v5._1, v4))));
43687
- })(v._2._1._3._1)(v._2._2._1._3._1)))))((v$p) => $$new((a) => Val(a)(None))(insert3(ordVertex)($3)()($$$Map(
43688
- "Two",
43689
- Leaf2,
43690
- $2,
43691
- void 0,
43692
- Leaf2
43693
- )))(v$p));
43694
- }
43695
- return MonadThrow0.throwError(error("Function and two dictionaries expected"));
43889
+ )))(v$p));
43890
+ }
43891
+ return MonadThrow0.throwError(error("Function and two dictionaries expected"));
43892
+ };
43696
43893
  };
43697
43894
  };
43698
43895
  }
@@ -43704,7 +43901,7 @@ var dict_get = /* @__PURE__ */ $Tuple(
43704
43901
  arity: 2,
43705
43902
  op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
43706
43903
  const MonadThrow0 = dictMonadError.MonadThrow0();
43707
- return (v) => {
43904
+ return (dictLoadFile) => (v) => {
43708
43905
  if (v.tag === "Cons" && v._1._3.tag === "Str" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
43709
43906
  return orElse(MonadThrow0)('Key "' + v._1._3._1 + '" not found')((() => {
43710
43907
  const $0 = _lookup(Nothing, Just, v._1._3._1, v._2._1._3._1);
@@ -43728,15 +43925,18 @@ var dict_foldl = /* @__PURE__ */ $Tuple(
43728
43925
  return (dictMonadError) => {
43729
43926
  const MonadThrow0 = dictMonadError.MonadThrow0();
43730
43927
  const Monad0 = MonadThrow0.Monad0();
43731
- return (v) => {
43732
- 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") {
43733
- const $0 = v._1;
43734
- return foldM4(Monad0)((u1) => (v2) => {
43735
- const $1 = v2._2;
43736
- return Monad0.Bind1().bind(apply3($0)(u1))((a) => apply3(a)($1));
43737
- })(v._2._1)(v._2._2._1._3._1);
43738
- }
43739
- return MonadThrow0.throwError(error("Function, value and dictionary expected"));
43928
+ return (dictLoadFile) => {
43929
+ const apply1 = apply3(dictLoadFile);
43930
+ return (v) => {
43931
+ 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") {
43932
+ const $0 = v._1;
43933
+ return foldM4(Monad0)((u1) => (v2) => {
43934
+ const $1 = v2._2;
43935
+ return Monad0.Bind1().bind(apply1($0)(u1))((a) => apply1(a)($1));
43936
+ })(v._2._1)(v._2._2._1._3._1);
43937
+ }
43938
+ return MonadThrow0.throwError(error("Function, value and dictionary expected"));
43939
+ };
43740
43940
  };
43741
43941
  };
43742
43942
  }
@@ -43750,7 +43950,7 @@ var dict_disjointUnion = /* @__PURE__ */ $Tuple(
43750
43950
  const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
43751
43951
  return (dictMonadError) => {
43752
43952
  const $$throw2 = $$throw(dictMonadError.MonadThrow0());
43753
- return (v) => {
43953
+ return (dictLoadFile) => (v) => {
43754
43954
  if (v.tag === "Cons" && v._1._3.tag === "Dictionary" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
43755
43955
  return $$new((a) => Val(a)(None))(insert3(ordVertex)(v._2._1._1)()($$$Map(
43756
43956
  "Two",
@@ -43774,7 +43974,7 @@ var dict_difference = /* @__PURE__ */ $Tuple(
43774
43974
  const $$new = dictMonadWithGraphAlloc.new(typeNameVal);
43775
43975
  return (dictMonadError) => {
43776
43976
  const $$throw2 = $$throw(dictMonadError.MonadThrow0());
43777
- return (v) => {
43977
+ return (dictLoadFile) => (v) => {
43778
43978
  if (v.tag === "Cons" && v._1._3.tag === "Dictionary" && v._2.tag === "Cons" && v._2._1._3.tag === "Dictionary" && v._2._2.tag === "Nil") {
43779
43979
  return $$new((a) => Val(a)(None))(insert3(ordVertex)(v._2._1._1)()($$$Map(
43780
43980
  "Two",
@@ -43796,7 +43996,7 @@ var debugLog = /* @__PURE__ */ $Tuple(
43796
43996
  arity: 1,
43797
43997
  op: (dictMonadWithGraphAlloc) => (dictMonadError) => {
43798
43998
  const MonadThrow0 = dictMonadError.MonadThrow0();
43799
- return (v) => {
43999
+ return (dictLoadFile) => (v) => {
43800
44000
  if (v.tag === "Cons" && v._2.tag === "Nil") {
43801
44001
  const $0 = v._1;
43802
44002
  return MonadThrow0.Monad0().Applicative0().pure(_trace($0, (v$1) => $0));
@@ -43892,6 +44092,7 @@ var verticesProgCxtVertex = {
43892
44092
  };
43893
44093
  var functorProgCxt = {
43894
44094
  map: (f) => (m) => ({
44095
+ fluidSrcPaths: m.fluidSrcPaths,
43895
44096
  primitives: _fmapObject(m.primitives, functorVal.map(f)),
43896
44097
  mods: listMap(functorModule.map(f))(m.mods),
43897
44098
  datasets: listMap((m$1) => $Tuple(m$1._1, functorExpr.map(f)(m$1._2)))(m.datasets)
@@ -43961,7 +44162,7 @@ var traversableProgCxt = {
43961
44162
  const traverse7 = traversableExpr.traverse(dictApplicative);
43962
44163
  const traverse8 = traversableModule.traverse(dictApplicative);
43963
44164
  const traverse9 = traversableEnv.traverse(dictApplicative);
43964
- 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));
44165
+ 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));
43965
44166
  },
43966
44167
  sequence: (dictApplicative) => (v) => traversableProgCxt.traverse(dictApplicative)(identity32)(v),
43967
44168
  Functor0: () => functorProgCxt,
@@ -43974,7 +44175,6 @@ var concatM2 = (dictMonad) => foldrArray((() => {
43974
44175
  const $0 = dictMonad.Bind1();
43975
44176
  return (f) => (g) => (a) => $0.bind(f(a))(g);
43976
44177
  })())(dictMonad.Applicative0().pure);
43977
- var Folder = (x2) => x2;
43978
44178
  var parse = (dictMonadError) => {
43979
44179
  const $0 = dictMonadError.MonadThrow0();
43980
44180
  const $1 = $0.Monad0().Applicative0().pure;
@@ -43992,7 +44192,7 @@ var parse = (dictMonadError) => {
43992
44192
  };
43993
44193
  };
43994
44194
  };
43995
- var parseProgram = (loadFile2) => (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().bind(loadFile2(folders)(file)(dictMonadAff)(dictMonadError))((() => {
44195
+ var parseProgram = (dictLoadFile) => (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().bind(dictLoadFile.loadFile(dictMonadError)(dictMonadAff)(folders)(file))((() => {
43996
44196
  const $0 = parse(dictMonadError);
43997
44197
  return (a) => $0(a)(topLevel(expr_));
43998
44198
  })());
@@ -44003,18 +44203,22 @@ var module_2 = (dictMonadAff) => {
44003
44203
  return (dictMonadError) => {
44004
44204
  const parse1 = parse(dictMonadError);
44005
44205
  const desugarModuleFwd = moduleFwd(dictMonadError)(boundedLattice2);
44006
- return (loadFile2) => (folders) => (file) => (v) => {
44007
- const $0 = v.mods;
44008
- return Bind1.bind(Applicative0.pure())(() => Bind1.bind(loadFile2(folders)(file)(dictMonadAff)(dictMonadError))((src) => Bind1.bind(Bind1.bind(parse1(src)(module_))(desugarModuleFwd))((mod) => Applicative0.pure({
44009
- primitives: v.primitives,
44010
- mods: $List("Cons", mod, $0),
44011
- datasets: v.datasets
44012
- }))));
44206
+ return (dictLoadFile) => {
44207
+ const loadFile = dictLoadFile.loadFile(dictMonadError)(dictMonadAff);
44208
+ return (folders) => (file) => (v) => {
44209
+ const $0 = v.mods;
44210
+ return Bind1.bind(Applicative0.pure())(() => Bind1.bind(loadFile(folders)(file))((src) => Bind1.bind(Bind1.bind(parse1(src)(module_))(desugarModuleFwd))((mod) => Applicative0.pure({
44211
+ fluidSrcPaths: v.fluidSrcPaths,
44212
+ primitives: v.primitives,
44213
+ mods: $List("Cons", mod, $0),
44214
+ datasets: v.datasets
44215
+ }))));
44216
+ };
44013
44217
  };
44014
44218
  };
44015
44219
  };
44016
- var initialConfig = (dictMonadError) => {
44017
- const Monad0 = dictMonadError.MonadThrow0().Monad0();
44220
+ var initialConfig = (dictMonadAff) => {
44221
+ const Monad0 = dictMonadAff.MonadEffect0().Monad0();
44018
44222
  const Bind1 = Monad0.Bind1();
44019
44223
  const Applicative0 = Monad0.Applicative0();
44020
44224
  const $0 = monadAllocAllocT(Monad0);
@@ -44025,29 +44229,54 @@ var initialConfig = (dictMonadError) => {
44025
44229
  Applicative0: () => applicativeStateT(Monad0),
44026
44230
  Bind1: () => bindStateT(Monad0)
44027
44231
  })(graphGraphImpl);
44028
- const eval_progCxt2 = eval_progCxt(monadWithGraphAllocWithGr(dictMonadError));
44029
- 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(
44030
- progCxt$p,
44031
- (() => {
44032
- const $2 = dictFV.fv(e);
44033
- return filterWithKey((x2) => {
44034
- const $3 = setSet(ordString).member(x2)($2);
44035
- return (v$1) => $3;
44036
- })(v._2);
44037
- })()
44038
- )))))(0))((v) => Applicative0.pure({ n: v._1, progCxt: v._2._2._1, "\u03B3": v._2._2._2 })));
44232
+ const $2 = monadAffState(dictMonadAff).MonadEffect0().Monad0();
44233
+ const $3 = dictMonadAff.MonadEffect0().Monad0();
44234
+ return (dictMonadError) => {
44235
+ const eval_progCxt2 = eval_progCxt(monadWithGraphAllocWithGr(dictMonadError));
44236
+ return (dictLoadFile) => {
44237
+ const eval_progCxt1 = eval_progCxt2((() => {
44238
+ const loadFile1 = dictLoadFile.loadFile(dictMonadError)(dictMonadAff);
44239
+ return {
44240
+ loadFile: (dictMonadError1) => (dictMonadAff1) => (folders) => {
44241
+ const $4 = loadFile1(folders);
44242
+ return (x2) => {
44243
+ const $5 = $4(x2);
44244
+ 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(
44245
+ x$1,
44246
+ s
44247
+ )));
44248
+ };
44249
+ }
44250
+ };
44251
+ })());
44252
+ 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(
44253
+ progCxt$p,
44254
+ (() => {
44255
+ const $4 = dictFV.fv(e);
44256
+ return filterWithKey((x2) => {
44257
+ const $5 = setSet(ordString).member(x2)($4);
44258
+ return (v$1) => $5;
44259
+ })(v._2);
44260
+ })()
44261
+ )))))(0))((v) => Applicative0.pure({ n: v._1, progCxt: v._2._2._1, "\u03B3": v._2._2._2 })));
44262
+ };
44263
+ };
44039
44264
  };
44040
44265
  var prepConfig = (dictMonadAff) => {
44041
44266
  const Monad0 = dictMonadAff.MonadEffect0().Monad0();
44042
44267
  const $0 = Monad0.Bind1();
44268
+ const initialConfig1 = initialConfig(dictMonadAff);
44043
44269
  return (dictMonadError) => {
44044
44270
  const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
44045
- const initialConfig1 = initialConfig(dictMonadError)(fVExpr);
44046
- 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({
44047
- s,
44048
- e,
44049
- gconfig
44050
- }))));
44271
+ const initialConfig2 = initialConfig1(dictMonadError);
44272
+ return (dictLoadFile) => {
44273
+ const initialConfig3 = initialConfig2(dictLoadFile)(fVExpr);
44274
+ 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({
44275
+ s,
44276
+ e,
44277
+ gconfig
44278
+ }))));
44279
+ };
44051
44280
  };
44052
44281
  };
44053
44282
  var datasetAs = (dictMonadAff) => {
@@ -44055,10 +44284,11 @@ var datasetAs = (dictMonadAff) => {
44055
44284
  const $0 = Monad0.Bind1();
44056
44285
  return (dictMonadError) => {
44057
44286
  const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
44058
- return (loadFile2) => (folders) => (v) => (v1) => {
44287
+ return (dictLoadFile) => (folders) => (v) => (v1) => {
44059
44288
  const $1 = v1.datasets;
44060
44289
  const $2 = v._1;
44061
- return $0.bind($0.bind(parseProgram(loadFile2)(folders)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
44290
+ return $0.bind($0.bind(parseProgram(dictLoadFile)(folders)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
44291
+ fluidSrcPaths: v1.fluidSrcPaths,
44062
44292
  primitives: v1.primitives,
44063
44293
  mods: v1.mods,
44064
44294
  datasets: $List("Cons", $Tuple($2, e\u03B1), $1)
@@ -44075,84 +44305,19 @@ var loadProgCxt = (dictMonadAff) => {
44075
44305
  return (dictMonadError) => {
44076
44306
  const module_22 = module_1(dictMonadError);
44077
44307
  const datasetAs2 = datasetAs1(dictMonadError);
44078
- return (v) => (mods) => (datasets) => $0.bind($0.bind(Monad0.Applicative0().pure({
44079
- primitives,
44080
- mods: Nil,
44081
- datasets: Nil
44082
- }))(concatM1(arrayMap(module_22(v.loadFile)(v.fluidSrcPaths))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
44083
- const $1 = datasetAs2(v.loadFile)(v.fluidSrcPaths);
44084
- return (x2) => $1($Tuple(x2._1, x2._2));
44085
- })())(datasets)));
44086
- };
44087
- };
44088
-
44089
- // output-es/Module.Web/index.js
44090
- var findM = (xs) => (f) => (base2) => foldrArray((x2) => (acc) => applyAff.apply(_map(altEither.alt)(acc))(f(x2)))(_pure(base2))(xs);
44091
- var loadFile = (folders) => (v) => (dictMonadAff) => {
44092
- const Monad0 = dictMonadAff.MonadEffect0().Monad0();
44093
- const bindExceptT2 = bindExceptT(Monad0);
44094
- const applicativeExceptT2 = applicativeExceptT(Monad0);
44095
- const pure22 = Monad0.Applicative0().pure;
44096
- return (dictMonadError) => Monad0.Bind1().bind(bindExceptT2.bind(dictMonadAff.liftAff(findM(arrayMap((() => {
44097
- const $0 = v + ".fld";
44098
- return (a) => a + "/" + $0;
44099
- })())(folders))((v1) => _bind(request(driver)({
44100
- method: $Either("Left", HEAD),
44101
- url: v1,
44102
- headers: [],
44103
- content: Nothing,
44104
- username: Nothing,
44105
- password: Nothing,
44106
- withCredentials: false,
44107
- responseFormat: $ResponseFormat("String", identity),
44108
- timeout: Nothing
44109
- }))((resp) => _pure((() => {
44110
- if (resp.tag === "Right") {
44111
- if (resp._1.status === 200) {
44112
- return $Either("Right", $Tuple(resp._1, v1));
44113
- }
44114
- return $Either("Left", RequestFailedError);
44115
- }
44116
- if (resp.tag === "Left") {
44117
- return $Either("Left", resp._1);
44118
- }
44119
- fail();
44120
- })())))($Either("Left", RequestFailedError))))((v1) => {
44121
- const $0 = v1._2;
44122
- return bindExceptT2.bind(applicativeExceptT2.pure())(() => bindExceptT2.bind(dictMonadAff.liftAff(request(driver)({
44123
- method: $Either("Left", GET),
44124
- url: $0,
44125
- headers: [],
44126
- content: Nothing,
44127
- username: Nothing,
44128
- password: Nothing,
44129
- withCredentials: false,
44130
- responseFormat: $ResponseFormat("String", identity),
44131
- timeout: Nothing
44132
- })))((contents) => applicativeExceptT2.pure(contents.body)));
44133
- }))((result) => {
44134
- if (result.tag === "Left") {
44135
- return dictMonadError.MonadThrow0().throwError(error(printError(result._1)));
44136
- }
44137
- if (result.tag === "Right") {
44138
- return pure22(result._1);
44139
- }
44140
- fail();
44141
- });
44142
- };
44143
- var loadFile$p = (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().Apply0().Functor0().map((v) => $Tuple(file, v))(loadFile(folders)(file)(dictMonadAff)(dictMonadError));
44144
- var loadProgCxt2 = (dictMonadAff) => {
44145
- const loadProgCxt1 = loadProgCxt(dictMonadAff);
44146
- return (dictMonadError) => {
44147
- const loadProgCxt22 = loadProgCxt1(dictMonadError);
44148
- return (fluidSrcPaths) => loadProgCxt22({ loadFile, fluidSrcPaths });
44149
- };
44150
- };
44151
- var prepConfig2 = (dictMonadAff) => {
44152
- const prepConfig1 = prepConfig(dictMonadAff);
44153
- return (dictMonadError) => {
44154
- const prepConfig22 = prepConfig1(dictMonadError);
44155
- return (fluidSrcPaths) => prepConfig22({ loadFile, fluidSrcPaths });
44308
+ return (dictLoadFile) => {
44309
+ const module_3 = module_22(dictLoadFile);
44310
+ const datasetAs3 = datasetAs2(dictLoadFile);
44311
+ return (v) => (mods) => (datasets) => $0.bind($0.bind(Monad0.Applicative0().pure({
44312
+ fluidSrcPaths: v.fluidSrcPaths,
44313
+ primitives,
44314
+ mods: Nil,
44315
+ datasets: Nil
44316
+ }))(concatM1(arrayMap(module_3(v.fluidSrcPaths))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
44317
+ const $1 = datasetAs3(v.fluidSrcPaths);
44318
+ return (x2) => $1($Tuple(x2._1, x2._2));
44319
+ })())(datasets)));
44320
+ };
44156
44321
  };
44157
44322
  };
44158
44323
 
@@ -44172,8 +44337,6 @@ var select\u03B1s\u{1D539}Vertex2 = /* @__PURE__ */ select\u03B1s\u{1D539}Vertex
44172
44337
  var bwdSlice3 = /* @__PURE__ */ bwdSlice(graphGraphImpl);
44173
44338
  var intersection3 = /* @__PURE__ */ intersection(ordDVertex$p);
44174
44339
  var member5 = /* @__PURE__ */ (() => setSet(ordVertex).member)();
44175
- var show4 = /* @__PURE__ */ showArrayImpl(showStringImpl);
44176
- var fromFoldable42 = /* @__PURE__ */ (() => fromFoldableImpl(foldableSet.foldr))();
44177
44340
  var runQuery2 = /* @__PURE__ */ runQuery(ordVal2);
44178
44341
  var primaryOrSecondary2 = /* @__PURE__ */ primaryOrSecondary(applyEnv);
44179
44342
  var primaryOrSecondary1 = /* @__PURE__ */ primaryOrSecondary(applyVal);
@@ -44495,116 +44658,127 @@ var lift = (dictApply) => (dictApply1) => {
44495
44658
  return $Tuple(dictApply.apply(selState_f)($1._1), $1._2);
44496
44659
  };
44497
44660
  };
44498
- var lift1 = /* @__PURE__ */ lift(applyVal)(applyEnv);
44499
- var lift2 = /* @__PURE__ */ lift(applyEnv)(applyVal);
44500
- var loadFig = (v) => (dictMonadAff) => {
44661
+ var lift1 = /* @__PURE__ */ lift(applyEnv)(applyVal);
44662
+ var lift2 = /* @__PURE__ */ lift(applyVal)(applyEnv);
44663
+ var loadFig = (dictMonadAff) => {
44501
44664
  const Monad0 = dictMonadAff.MonadEffect0().Monad0();
44502
44665
  const $0 = Monad0.Bind1();
44503
- const loadProgCxt3 = loadProgCxt2(dictMonadAff);
44504
- const prepConfig3 = prepConfig2(dictMonadAff);
44666
+ const loadProgCxt2 = loadProgCxt(dictMonadAff);
44667
+ const prepConfig2 = prepConfig(dictMonadAff);
44668
+ const graphEval2 = graphEval(dictMonadAff);
44505
44669
  return (dictMonadError) => {
44506
- const prepConfig1 = prepConfig3(dictMonadError);
44507
- const graphEval2 = graphEval(dictMonadError);
44508
- const $1 = v.file;
44509
- const $2 = v.fluidSrcPaths;
44510
- const $3 = v.inputs;
44511
- return $0.bind(loadProgCxt3(dictMonadError)($2)(v.imports)(v.datasets))((progCxt) => $0.bind(prepConfig1($2)($1)(progCxt))((v1) => {
44512
- const $4 = v1.s;
44513
- return $0.bind(graphEval2(v1.gconfig)(v1.e))((v2) => {
44514
- const $5 = v2.g;
44515
- const $6 = v2["out\u03B1"];
44516
- const $7 = v2["in\u03B1"]._1;
44517
- const opEval = {
44518
- g: $GraphImpl({ out: v2.g._1.in_, in_: v2.g._1.out, sinks: v2.g._1.sources, sources: v2.g._1.sinks, vertices: v2.g._1.vertices }),
44519
- graph_fwd: v2.graph_fwd,
44520
- graph_bwd: v2.graph_bwd,
44521
- "in\u03B1": v2["out\u03B1"],
44522
- "out\u03B1": v2["in\u03B1"]
44523
- };
44524
- const inputs$p = fromFoldable25($3);
44525
- const v3 = functorEnvExpr.map((v$1) => {
44526
- })(v2["in\u03B1"]);
44527
- const $8 = unrestrictGC(boundedMeetSemilatticeBoo)(v3._1)(inputs$p);
44528
- const $9 = unprojExpr(boundedMeetSemilatticeBoo)($EnvExpr(v3._1, v3._2));
44529
- const $10 = filterWithKey((x2) => {
44530
- const $102 = setSet(ordString).member(x2)(inputs$p);
44531
- return (v$1) => $102;
44532
- })($7);
44533
- const $11 = _fmapObject($7, functorVal.map((v$1) => false));
44534
- const $12 = functorVal.map((v$1) => false)($6);
44535
- const graphgc_op = graphGC1(opEval);
44536
- const graphgc = graphGC22(v2);
44537
- const inertFwd = verticesGraphImpl.vertices(graphgc.fwd($9.fwd($8.fwd($11)))._2);
44538
- const inertBwd = setSet5.difference(verticesGraphImpl.vertices($5))(verticesGraphImpl.vertices(graphgc.bwd(functorVal.map((v$1) => true)($6))._2));
44539
- const $13 = select\u03B1s\u{1D539}Vertex2["select\u{1D539}s"]($7)(inertBwd);
44540
- const $14 = select\u{1D539}s($6)(inertFwd);
44541
- const $15 = _fmapObject($13, functorVal.map(selState));
44542
- const $16 = functorVal.map(selState)($14);
44543
- const \u03B3f = lift1($16)((\u03B31) => graphgc_op.bwd(deMorgan((x2) => $9.fwd($8.fwd(x2)))(\u03B31)));
44544
- const vf = lift2($15)((v6) => {
44545
- const $17 = graphgc.bwd(v6);
44546
- return $Tuple($8.bwd($9.bwd($17._1)), $17._2);
44547
- });
44548
- return Monad0.Applicative0().pure({
44549
- spec: v,
44550
- s: $4,
44551
- "\u03B3": intersectionWith_Object(apply)(_fmapObject(
44552
- intersectionWith_Object(apply)(_fmapObject(
44553
- _fmapObject($13, functorVal.map(selStates)),
44554
- applyVal.apply
44555
- ))($11),
44556
- applyVal.apply
44557
- ))($11),
44558
- v: applyVal.apply(applyVal.apply(functorVal.map(selStates)($14))($12))($12),
44559
- "\u03B9": empty,
44560
- linkedOutputs: (selType) => (v6) => {
44561
- const v7 = vf(functorVal.map(getSel(selType))(v6));
44562
- return $Tuple(v7._1, $Tuple(\u03B3f(v7._1)._1, verticesGraphImpl.vertices(v7._2)));
44563
- },
44564
- linkedInputs: (selType) => (\u03B31) => {
44565
- const v6 = \u03B3f(_fmapObject(\u03B31, functorVal.map(getSel(selType))));
44566
- return $Tuple(vf(v6._1)._1, $Tuple(v6._1, verticesGraphImpl.vertices(v6._2)));
44567
- },
44568
- linkIntermediates: (\u03B9) => {
44569
- const \u03B1s = select\u03B1s\u{1D539}Vertex2["select\u03B1s"](_fmapObject(
44570
- \u03B9,
44571
- functorVal.map((x2) => {
44572
- const $17 = getSel(Transient)(x2);
44573
- if ($17.tag === "Inert") {
44574
- return false;
44575
- }
44576
- if ($17.tag === "Reactive") {
44577
- return $17._1;
44578
- }
44579
- fail();
44580
- })
44581
- ))(\u03B9from\u03B1s(graphGraphImpl)($5)(mapObjectString.keys(\u03B9)));
44582
- return $Tuple(
44583
- intersectionWith_Object(apply)(_fmapObject($15, applyVal.apply))(select\u03B1s\u{1D539}Vertex2["select\u{1D539}s"]($7)(verticesGraphImpl.vertices(bwdSlice3($Tuple(
44584
- \u03B1s,
44585
- v2.g
44586
- ))))),
44587
- $Tuple(
44588
- applyVal.apply($16)(select\u{1D539}s($6)(verticesGraphImpl.vertices(bwdSlice3($Tuple(\u03B1s, opEval.g))))),
44589
- map2(ordDVertex$p)((\u03B1) => $Tuple(
44590
- \u03B1,
44591
- definitely("in graph")(_lookup(Nothing, Just, \u03B1, $5._1.out))._2
44592
- ))(\u03B1s)
44593
- )
44594
- );
44595
- },
44596
- dir: { persistent: LinkedOutputs, transient: LinkedOutputs },
44597
- in_views: _fmapObject($10, (v$1) => Nothing),
44598
- out_view: Nothing,
44599
- intermediate_views: empty,
44600
- in_roots: fold((z) => (v$1) => (a) => insert3(ordVertex)(a)()(z))(Leaf2)(_fmapObject(
44601
- $10,
44602
- (v6) => v6._1
44603
- )),
44604
- inerts: intersection3(inertFwd)(inertBwd)
44605
- });
44606
- });
44607
- }));
44670
+ const loadProgCxt1 = loadProgCxt2(dictMonadError);
44671
+ const prepConfig1 = prepConfig2(dictMonadError);
44672
+ return (dictLoadFile) => {
44673
+ const loadProgCxt22 = loadProgCxt1(dictLoadFile);
44674
+ const prepConfig22 = prepConfig1(dictLoadFile);
44675
+ const graphEval1 = graphEval2(dictLoadFile)(dictMonadError);
44676
+ return (v) => {
44677
+ const $1 = v.file;
44678
+ const $2 = v.fluidSrcPaths;
44679
+ const $3 = v.inputs;
44680
+ const $4 = v.linking;
44681
+ return $0.bind(loadProgCxt22({ fluidSrcPaths: $2 })(v.imports)(v.datasets))((progCxt) => $0.bind(prepConfig22({ fluidSrcPaths: $2 })($1)(progCxt))((v1) => {
44682
+ const $5 = v1.s;
44683
+ return $0.bind(graphEval1(v1.gconfig)(v1.e))((v2) => {
44684
+ const $6 = v2.g;
44685
+ const $7 = v2["out\u03B1"];
44686
+ const $8 = v2["in\u03B1"]._1;
44687
+ const opEval = {
44688
+ g: $GraphImpl({ out: v2.g._1.in_, in_: v2.g._1.out, sinks: v2.g._1.sources, sources: v2.g._1.sinks, vertices: v2.g._1.vertices }),
44689
+ graph_fwd: v2.graph_fwd,
44690
+ graph_bwd: v2.graph_bwd,
44691
+ "in\u03B1": v2["out\u03B1"],
44692
+ "out\u03B1": v2["in\u03B1"]
44693
+ };
44694
+ const inputs$p = fromFoldable25($3);
44695
+ const v3 = functorEnvExpr.map((v$1) => {
44696
+ })(v2["in\u03B1"]);
44697
+ const $9 = unrestrictGC(boundedMeetSemilatticeBoo)(v3._1)(inputs$p);
44698
+ const $10 = unprojExpr(boundedMeetSemilatticeBoo)($EnvExpr(v3._1, v3._2));
44699
+ const $11 = filterWithKey((x2) => {
44700
+ const $112 = setSet(ordString).member(x2)(inputs$p);
44701
+ return (v$1) => $112;
44702
+ })($8);
44703
+ const $12 = _fmapObject($8, functorVal.map((v$1) => false));
44704
+ const $13 = functorVal.map((v$1) => false)($7);
44705
+ const graphgc_op = graphGC1(opEval);
44706
+ const graphgc = graphGC22(v2);
44707
+ const inertFwd = verticesGraphImpl.vertices(graphgc.fwd($10.fwd($9.fwd($12)))._2);
44708
+ const inertBwd = setSet5.difference(verticesGraphImpl.vertices($6))(verticesGraphImpl.vertices(graphgc.bwd(functorVal.map((v$1) => true)($7))._2));
44709
+ const $14 = select\u03B1s\u{1D539}Vertex2["select\u{1D539}s"]($8)(inertBwd);
44710
+ const $15 = select\u{1D539}s($7)(inertFwd);
44711
+ const $16 = _fmapObject($14, functorVal.map(selState));
44712
+ const $17 = functorVal.map(selState)($15);
44713
+ const demands = lift1($16)((v6) => {
44714
+ const $18 = graphgc.bwd(v6);
44715
+ return $Tuple($9.bwd($10.bwd($18._1)), $18._2);
44716
+ });
44717
+ const demandedBy = lift2($17)((\u03B31) => graphgc_op.bwd(deMorgan((x2) => $10.fwd($9.fwd(x2)))(\u03B31)));
44718
+ return Monad0.Applicative0().pure({
44719
+ spec: v,
44720
+ s: $5,
44721
+ "\u03B3": intersectionWith_Object(apply)(_fmapObject(
44722
+ intersectionWith_Object(apply)(_fmapObject(
44723
+ _fmapObject($14, functorVal.map(selStates)),
44724
+ applyVal.apply
44725
+ ))($12),
44726
+ applyVal.apply
44727
+ ))($12),
44728
+ v: applyVal.apply(applyVal.apply(functorVal.map(selStates)($15))($13))($13),
44729
+ "\u03B9": empty,
44730
+ linkedOutputs: (selType) => (v6) => {
44731
+ const v$p = functorVal.map(getSel(selType))(v6);
44732
+ const v7 = demands(v$p);
44733
+ return $Tuple(v7._1, $Tuple($4 ? demandedBy(v7._1)._1 : v$p, verticesGraphImpl.vertices(v7._2)));
44734
+ },
44735
+ linkedInputs: (selType) => (\u03B31) => {
44736
+ const \u03B3$p = _fmapObject(\u03B31, functorVal.map(getSel(selType)));
44737
+ const v6 = demandedBy(\u03B3$p);
44738
+ return $Tuple($4 ? demands(v6._1)._1 : \u03B3$p, $Tuple(v6._1, verticesGraphImpl.vertices(v6._2)));
44739
+ },
44740
+ linkIntermediates: (\u03B9) => {
44741
+ const \u03B1s = select\u03B1s\u{1D539}Vertex2["select\u03B1s"](_fmapObject(
44742
+ \u03B9,
44743
+ functorVal.map((x2) => {
44744
+ const $18 = getSel(Transient)(x2);
44745
+ if ($18.tag === "Inert") {
44746
+ return false;
44747
+ }
44748
+ if ($18.tag === "Reactive") {
44749
+ return $18._1;
44750
+ }
44751
+ fail();
44752
+ })
44753
+ ))(\u03B9from\u03B1s(graphGraphImpl)($6)(mapObjectString.keys(\u03B9)));
44754
+ return $Tuple(
44755
+ intersectionWith_Object(apply)(_fmapObject($16, applyVal.apply))(select\u03B1s\u{1D539}Vertex2["select\u{1D539}s"]($8)(verticesGraphImpl.vertices(bwdSlice3($Tuple(
44756
+ \u03B1s,
44757
+ v2.g
44758
+ ))))),
44759
+ $Tuple(
44760
+ applyVal.apply($17)(select\u{1D539}s($7)(verticesGraphImpl.vertices(bwdSlice3($Tuple(\u03B1s, opEval.g))))),
44761
+ map2(ordDVertex$p)((\u03B1) => $Tuple(
44762
+ \u03B1,
44763
+ definitely("in graph")(_lookup(Nothing, Just, \u03B1, $6._1.out))._2
44764
+ ))(\u03B1s)
44765
+ )
44766
+ );
44767
+ },
44768
+ dir: { persistent: LinkedOutputs, transient: LinkedOutputs },
44769
+ in_views: _fmapObject($11, (v$1) => Nothing),
44770
+ out_view: Nothing,
44771
+ intermediate_views: empty,
44772
+ in_roots: fold((z) => (v$1) => (a) => insert3(ordVertex)(a)()(z))(Leaf2)(_fmapObject(
44773
+ $11,
44774
+ (v6) => v6._1
44775
+ )),
44776
+ inerts: intersection3(inertFwd)(inertBwd)
44777
+ });
44778
+ });
44779
+ }));
44780
+ };
44781
+ };
44608
44782
  };
44609
44783
  };
44610
44784
  var intermediates = (v) => (\u03B1s) => {
@@ -44615,7 +44789,7 @@ var intermediates = (v) => (\u03B1s) => {
44615
44789
  return rebuild\u03B9(v.inerts)(\u03B1s)(filterWithKey((x2) => {
44616
44790
  const $0 = !member5(x2)(v.in_roots);
44617
44791
  return (v$1) => $0;
44618
- })(spyWhen(true)("Query keys: ")((x2) => show4(fromFoldable42(mapObjectString.keys(x2))))(runQuery2(v.spec.query._1)(setSet5.union(\u03B1s.persistent)(\u03B1s.transient)))));
44792
+ })(runQuery2(v.spec.query._1)(setSet5.union(\u03B1s.persistent)(\u03B1s.transient))));
44619
44793
  }
44620
44794
  fail();
44621
44795
  };
@@ -44711,7 +44885,7 @@ var drawIntermediates = (divId) => (v) => (unused) => (redraw) => {
44711
44885
  (\u03B1) => (v1) => drawView({
44712
44886
  divId: prefix,
44713
44887
  suffix: \u03B1,
44714
- view: view$p()(\u03B1)(functorVal.map(functorSelStates.map(to\u{1D54A}))(v1))(Nothing)
44888
+ view: view$p()("intermediate")(functorVal.map(functorSelStates.map(to\u{1D54A}))(v1))(Nothing)
44715
44889
  })(selectIntermediate(\u03B1))(setIntermediateView(\u03B1))(redraw)
44716
44890
  ))();
44717
44891
  };
@@ -44930,8 +45104,65 @@ var gDecodeJsonCons = (dictDecodeJsonField) => (dictGDecodeJson) => (dictIsSymbo
44930
45104
  }
44931
45105
  });
44932
45106
 
44933
- // output-es/Effect.Aff.Class/index.js
44934
- var monadAffAff = { liftAff: (x2) => x2, MonadEffect0: () => monadEffectAff };
45107
+ // output-es/File/index.js
45108
+ var Folder = (x2) => x2;
45109
+
45110
+ // output-es/Module.Web/index.js
45111
+ var findM = (xs) => (f) => (base2) => foldrArray((x2) => (acc) => applyAff.apply(_map(altEither.alt)(acc))(f(x2)))(_pure(base2))(xs);
45112
+ var loadFileWebT = (dictMonadAff) => {
45113
+ const Monad0 = dictMonadAff.MonadEffect0().Monad0();
45114
+ const bindExceptT2 = bindExceptT(Monad0);
45115
+ const applicativeExceptT2 = applicativeExceptT(Monad0);
45116
+ const pure22 = Monad0.Applicative0().pure;
45117
+ return (dictMonadError) => ({
45118
+ loadFile: (dictMonadError1) => (dictMonadAff1) => (folders) => (v) => Monad0.Bind1().bind(bindExceptT2.bind(dictMonadAff1.liftAff(findM(arrayMap((() => {
45119
+ const $0 = v + ".fld";
45120
+ return (a) => a + "/" + $0;
45121
+ })())(folders))((v1) => _bind(request(driver)({
45122
+ method: $Either("Left", HEAD),
45123
+ url: v1,
45124
+ headers: [],
45125
+ content: Nothing,
45126
+ username: Nothing,
45127
+ password: Nothing,
45128
+ withCredentials: false,
45129
+ responseFormat: $ResponseFormat("String", identity),
45130
+ timeout: Nothing
45131
+ }))((resp) => _pure((() => {
45132
+ if (resp.tag === "Right") {
45133
+ if (resp._1.status === 200) {
45134
+ return $Either("Right", $Tuple(resp._1, v1));
45135
+ }
45136
+ return $Either("Left", RequestFailedError);
45137
+ }
45138
+ if (resp.tag === "Left") {
45139
+ return $Either("Left", resp._1);
45140
+ }
45141
+ fail();
45142
+ })())))($Either("Left", RequestFailedError))))((v1) => {
45143
+ const $0 = v1._2;
45144
+ return bindExceptT2.bind(applicativeExceptT2.pure())(() => bindExceptT2.bind(dictMonadAff1.liftAff(request(driver)({
45145
+ method: $Either("Left", GET),
45146
+ url: $0,
45147
+ headers: [],
45148
+ content: Nothing,
45149
+ username: Nothing,
45150
+ password: Nothing,
45151
+ withCredentials: false,
45152
+ responseFormat: $ResponseFormat("String", identity),
45153
+ timeout: Nothing
45154
+ })))((contents) => applicativeExceptT2.pure(contents.body)));
45155
+ }))((result) => {
45156
+ if (result.tag === "Left") {
45157
+ return dictMonadError.MonadThrow0().throwError(error(printError(result._1)));
45158
+ }
45159
+ if (result.tag === "Right") {
45160
+ return pure22(result._1);
45161
+ }
45162
+ fail();
45163
+ })
45164
+ });
45165
+ };
44935
45166
 
44936
45167
  // output-es/App.LoadFigure/index.js
44937
45168
  var gDecodeJsonCons2 = /* @__PURE__ */ gDecodeJsonCons(/* @__PURE__ */ (() => {
@@ -44948,6 +45179,25 @@ var gDecodeJsonCons2 = /* @__PURE__ */ gDecodeJsonCons(/* @__PURE__ */ (() => {
44948
45179
  }
44949
45180
  };
44950
45181
  })());
45182
+ var gDecodeJsonCons1 = /* @__PURE__ */ gDecodeJsonCons({
45183
+ decodeJsonField: (j) => {
45184
+ if (j.tag === "Just") {
45185
+ return $Maybe(
45186
+ "Just",
45187
+ _caseJson(
45188
+ (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
45189
+ Right,
45190
+ (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
45191
+ (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
45192
+ (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
45193
+ (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
45194
+ j._1
45195
+ )
45196
+ );
45197
+ }
45198
+ return Nothing;
45199
+ }
45200
+ });
44951
45201
  var decodeJson = /* @__PURE__ */ (() => decodeRecord(gDecodeJsonCons((() => {
44952
45202
  const $0 = decodeArray(decodeTuple(caseJsonString($Either(
44953
45203
  "Left",
@@ -44979,34 +45229,21 @@ var decodeJson = /* @__PURE__ */ (() => decodeRecord(gDecodeJsonCons((() => {
44979
45229
  }
44980
45230
  return Nothing;
44981
45231
  }
44982
- })(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonCons({
44983
- decodeJsonField: (j) => {
44984
- if (j.tag === "Just") {
44985
- return $Maybe(
44986
- "Just",
44987
- _caseJson(
44988
- (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
44989
- Right,
44990
- (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
44991
- (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
44992
- (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
44993
- (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "Boolean")),
44994
- j._1
44995
- )
44996
- );
44997
- }
44998
- return Nothing;
44999
- }
45000
- })(gDecodeJsonNil)({ reflectSymbol: () => "query" })()())({ reflectSymbol: () => "inputs" })()())({ reflectSymbol: () => "imports" })()())({
45001
- reflectSymbol: () => "fluidSrcPath"
45002
- })()())({ reflectSymbol: () => "file" })()())({ reflectSymbol: () => "datasets" })()())().decodeJson)();
45003
- var figSpecFromJson = (spec) => ({
45004
- fluidSrcPaths: arrayMap(Folder)(spec.fluidSrcPath),
45005
- datasets: spec.datasets,
45006
- imports: spec.imports,
45007
- file: spec.file,
45008
- inputs: spec.inputs,
45009
- query: spec.query ? $Maybe(
45232
+ })(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonCons1(gDecodeJsonCons1(gDecodeJsonNil)({ reflectSymbol: () => "query" })()())({
45233
+ reflectSymbol: () => "linking"
45234
+ })()())({ reflectSymbol: () => "inputs" })()())({ reflectSymbol: () => "imports" })()())({ reflectSymbol: () => "fluidSrcPath" })()())({ reflectSymbol: () => "file" })()())({
45235
+ reflectSymbol: () => "datasets"
45236
+ })()())().decodeJson)();
45237
+ var loadFileWebT2 = /* @__PURE__ */ loadFileWebT(monadAffAff)(monadErrorAff);
45238
+ var loadFig2 = /* @__PURE__ */ loadFig(monadAffAff)(monadErrorAff)(loadFileWebT2);
45239
+ var loadFile$p = (folders) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().Apply0().Functor0().map((v) => $Tuple(file, v))(loadFileWebT2.loadFile(dictMonadError)(dictMonadAff)(folders)(file));
45240
+ var figSpecFromJson = (v) => ({
45241
+ fluidSrcPaths: arrayMap(Folder)(v.fluidSrcPath),
45242
+ datasets: v.datasets,
45243
+ imports: v.imports,
45244
+ file: v.file,
45245
+ inputs: v.inputs,
45246
+ query: v.query ? $Maybe(
45010
45247
  "Just",
45011
45248
  (a) => {
45012
45249
  const $0 = asVal(a);
@@ -45021,7 +45258,8 @@ var figSpecFromJson = (spec) => ({
45021
45258
  }
45022
45259
  fail();
45023
45260
  }
45024
- ) : Nothing
45261
+ ) : Nothing,
45262
+ linking: v.linking
45025
45263
  });
45026
45264
  var loadFigure = (fileName) => runAffs_((v) => drawFig(v._1)(v._2))([
45027
45265
  _bind($$get(driver)($ResponseFormat("Json", identity))(fileName))((result) => {
@@ -45034,7 +45272,7 @@ var loadFigure = (fileName) => runAffs_((v) => drawFig(v._1)(v._2))([
45034
45272
  return throwException(error("JSON decoding failed with " + showJsonDecodeError.show(v._1)))();
45035
45273
  }
45036
45274
  if (v.tag === "Right") {
45037
- return _map((v1) => $Tuple("fig", v1))(loadFig(figSpecFromJson(v._1))(monadAffAff)(monadErrorAff));
45275
+ return _map((v1) => $Tuple("fig", v1))(loadFig2(figSpecFromJson(v._1)));
45038
45276
  }
45039
45277
  }
45040
45278
  fail();
@@ -45046,5 +45284,9 @@ export {
45046
45284
  drawCode2 as drawCode,
45047
45285
  figSpecFromJson,
45048
45286
  gDecodeJsonCons2 as gDecodeJsonCons,
45049
- loadFigure
45287
+ gDecodeJsonCons1,
45288
+ loadFig2 as loadFig,
45289
+ loadFigure,
45290
+ loadFile$p,
45291
+ loadFileWebT2 as loadFileWebT
45050
45292
  };