@explorable-viz/fluid 0.12.2 → 0.12.4

package/output-es/Data.Interval.Duration.Iso/index.js

@@ -0,0 +1,423 @@
+import * as $runtime from "../runtime.js";
+import * as Data$dEither from "../Data.Either/index.js";
+import * as Data$dFoldable from "../Data.Foldable/index.js";
+import * as Data$dInterval$dDuration from "../Data.Interval.Duration/index.js";
+import * as Data$dList from "../Data.List/index.js";
+import * as Data$dList$dTypes from "../Data.List.Types/index.js";
+import * as Data$dMap$dInternal from "../Data.Map.Internal/index.js";
+import * as Data$dMaybe from "../Data.Maybe/index.js";
+import * as Data$dNonEmpty from "../Data.NonEmpty/index.js";
+import * as Data$dNumber from "../Data.Number/index.js";
+import * as Data$dOrdering from "../Data.Ordering/index.js";
+const $$$Error = (tag, _1) => ({tag, _1});
+const lookup = k => {
+  const go = go$a0$copy => {
+    let go$a0 = go$a0$copy, go$c = true, go$r;
+    while (go$c) {
+      const v = go$a0;
+      if (v.tag === "Leaf") {
+        go$c = false;
+        go$r = Data$dMaybe.Nothing;
+        continue;
+      }
+      if (v.tag === "Node") {
+        if (k === "Second") {
+          if (v._3 === "Second") {
+            go$c = false;
+            go$r = Data$dMaybe.$Maybe("Just", v._4);
+            continue;
+          }
+          go$a0 = v._5;
+          continue;
+        }
+        if (v._3 === "Second") {
+          go$a0 = v._6;
+          continue;
+        }
+        if (k === "Minute") {
+          if (v._3 === "Minute") {
+            go$c = false;
+            go$r = Data$dMaybe.$Maybe("Just", v._4);
+            continue;
+          }
+          go$a0 = v._5;
+          continue;
+        }
+        if (v._3 === "Minute") {
+          go$a0 = v._6;
+          continue;
+        }
+        if (k === "Hour") {
+          if (v._3 === "Hour") {
+            go$c = false;
+            go$r = Data$dMaybe.$Maybe("Just", v._4);
+            continue;
+          }
+          go$a0 = v._5;
+          continue;
+        }
+        if (v._3 === "Hour") {
+          go$a0 = v._6;
+          continue;
+        }
+        if (k === "Day") {
+          if (v._3 === "Day") {
+            go$c = false;
+            go$r = Data$dMaybe.$Maybe("Just", v._4);
+            continue;
+          }
+          go$a0 = v._5;
+          continue;
+        }
+        if (v._3 === "Day") {
+          go$a0 = v._6;
+          continue;
+        }
+        if (k === "Week") {
+          if (v._3 === "Week") {
+            go$c = false;
+            go$r = Data$dMaybe.$Maybe("Just", v._4);
+            continue;
+          }
+          go$a0 = v._5;
+          continue;
+        }
+        if (v._3 === "Week") {
+          go$a0 = v._6;
+          continue;
+        }
+        if (k === "Month") {
+          if (v._3 === "Month") {
+            go$c = false;
+            go$r = Data$dMaybe.$Maybe("Just", v._4);
+            continue;
+          }
+          go$a0 = v._5;
+          continue;
+        }
+        if (v._3 === "Month") {
+          go$a0 = v._6;
+          continue;
+        }
+        if (k === "Year" && v._3 === "Year") {
+          go$c = false;
+          go$r = Data$dMaybe.$Maybe("Just", v._4);
+          continue;
+        }
+      }
+      $runtime.fail();
+    }
+    return go$r;
+  };
+  return go;
+};
+const foldMap1 = /* #__PURE__ */ (() => Data$dList$dTypes.foldableList.foldMap(Data$dList$dTypes.monoidList))();
+const foldMap2 = /* #__PURE__ */ (() => Data$dList$dTypes.foldableList.foldMap((() => {
+  const semigroupAdditive1 = {append: v => v1 => v + v1};
+  return {mempty: 0.0, Semigroup0: () => semigroupAdditive1};
+})()))();
+const fold = /* #__PURE__ */ (() => {
+  const semigroupFn = {append: f => g => x => Data$dList$dTypes.foldableList.foldr(Data$dList$dTypes.Cons)(g(x))(f(x))};
+  return Data$dFoldable.foldableArray.foldMap({mempty: v => Data$dList$dTypes.Nil, Semigroup0: () => semigroupFn})(Data$dFoldable.identity);
+})();
+const toUnfoldable = x => {
+  const go = go$a0$copy => go$a1$copy => {
+    let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+    while (go$c) {
+      const source = go$a0, memo = go$a1;
+      const v = Data$dMap$dInternal.stepUnfoldr(source);
+      if (v.tag === "Nothing") {
+        const go$1 = go$1$a0$copy => go$1$a1$copy => {
+          let go$1$a0 = go$1$a0$copy, go$1$a1 = go$1$a1$copy, go$1$c = true, go$1$r;
+          while (go$1$c) {
+            const b = go$1$a0, v$1 = go$1$a1;
+            if (v$1.tag === "Nil") {
+              go$1$c = false;
+              go$1$r = b;
+              continue;
+            }
+            if (v$1.tag === "Cons") {
+              go$1$a0 = Data$dList$dTypes.$List("Cons", v$1._1, b);
+              go$1$a1 = v$1._2;
+              continue;
+            }
+            $runtime.fail();
+          }
+          return go$1$r;
+        };
+        go$c = false;
+        go$r = go$1(Data$dList$dTypes.Nil)(memo);
+        continue;
+      }
+      if (v.tag === "Just") {
+        go$a0 = v._1._2;
+        go$a1 = Data$dList$dTypes.$List("Cons", v._1._1, memo);
+        continue;
+      }
+      $runtime.fail();
+    }
+    return go$r;
+  };
+  return go(Data$dMap$dInternal.$MapIter("IterNode", x, Data$dMap$dInternal.IterLeaf))(Data$dList$dTypes.Nil);
+};
+const IsEmpty = /* #__PURE__ */ $$$Error("IsEmpty");
+const InvalidWeekComponentUsage = /* #__PURE__ */ $$$Error("InvalidWeekComponentUsage");
+const ContainsNegativeValue = value0 => $$$Error("ContainsNegativeValue", value0);
+const InvalidFractionalUse = value0 => $$$Error("InvalidFractionalUse", value0);
+const unIsoDuration = v => v;
+const showIsoDuration = {show: v => "(IsoDuration (Duration " + Data$dInterval$dDuration.show(v) + "))"};
+const showError = {
+  show: v => {
+    if (v.tag === "IsEmpty") { return "(IsEmpty)"; }
+    if (v.tag === "InvalidWeekComponentUsage") { return "(InvalidWeekComponentUsage)"; }
+    if (v.tag === "ContainsNegativeValue") {
+      if (v._1 === "Minute") { return "(ContainsNegativeValue Minute)"; }
+      if (v._1 === "Second") { return "(ContainsNegativeValue Second)"; }
+      if (v._1 === "Hour") { return "(ContainsNegativeValue Hour)"; }
+      if (v._1 === "Day") { return "(ContainsNegativeValue Day)"; }
+      if (v._1 === "Week") { return "(ContainsNegativeValue Week)"; }
+      if (v._1 === "Month") { return "(ContainsNegativeValue Month)"; }
+      if (v._1 === "Year") { return "(ContainsNegativeValue Year)"; }
+      $runtime.fail();
+    }
+    if (v.tag === "InvalidFractionalUse") {
+      if (v._1 === "Minute") { return "(InvalidFractionalUse Minute)"; }
+      if (v._1 === "Second") { return "(InvalidFractionalUse Second)"; }
+      if (v._1 === "Hour") { return "(InvalidFractionalUse Hour)"; }
+      if (v._1 === "Day") { return "(InvalidFractionalUse Day)"; }
+      if (v._1 === "Week") { return "(InvalidFractionalUse Week)"; }
+      if (v._1 === "Month") { return "(InvalidFractionalUse Month)"; }
+      if (v._1 === "Year") { return "(InvalidFractionalUse Year)"; }
+    }
+    $runtime.fail();
+  }
+};
+const prettyError = v => {
+  if (v.tag === "IsEmpty") { return "Duration is empty (has no components)"; }
+  if (v.tag === "InvalidWeekComponentUsage") { return "Week component of Duration is used with other components"; }
+  if (v.tag === "ContainsNegativeValue") {
+    if (v._1 === "Minute") { return "Component `Minute` contains negative value"; }
+    if (v._1 === "Second") { return "Component `Second` contains negative value"; }
+    if (v._1 === "Hour") { return "Component `Hour` contains negative value"; }
+    if (v._1 === "Day") { return "Component `Day` contains negative value"; }
+    if (v._1 === "Week") { return "Component `Week` contains negative value"; }
+    if (v._1 === "Month") { return "Component `Month` contains negative value"; }
+    if (v._1 === "Year") { return "Component `Year` contains negative value"; }
+    $runtime.fail();
+  }
+  if (v.tag === "InvalidFractionalUse") {
+    if (v._1 === "Minute") { return "Invalid usage of Fractional value at component `Minute`"; }
+    if (v._1 === "Second") { return "Invalid usage of Fractional value at component `Second`"; }
+    if (v._1 === "Hour") { return "Invalid usage of Fractional value at component `Hour`"; }
+    if (v._1 === "Day") { return "Invalid usage of Fractional value at component `Day`"; }
+    if (v._1 === "Week") { return "Invalid usage of Fractional value at component `Week`"; }
+    if (v._1 === "Month") { return "Invalid usage of Fractional value at component `Month`"; }
+    if (v._1 === "Year") { return "Invalid usage of Fractional value at component `Year`"; }
+  }
+  $runtime.fail();
+};
+const eqIsoDuration = {eq: x => y => Data$dInterval$dDuration.eq(x)(y)};
+const ordIsoDuration = {compare: x => y => Data$dInterval$dDuration.compare(x)(y), Eq0: () => eqIsoDuration};
+const eqError = {
+  eq: x => y => {
+    if (x.tag === "IsEmpty") { return y.tag === "IsEmpty"; }
+    if (x.tag === "InvalidWeekComponentUsage") { return y.tag === "InvalidWeekComponentUsage"; }
+    if (x.tag === "ContainsNegativeValue") {
+      return y.tag === "ContainsNegativeValue" && (() => {
+        if (x._1 === "Second") { return y._1 === "Second"; }
+        if (x._1 === "Minute") { return y._1 === "Minute"; }
+        if (x._1 === "Hour") { return y._1 === "Hour"; }
+        if (x._1 === "Day") { return y._1 === "Day"; }
+        if (x._1 === "Week") { return y._1 === "Week"; }
+        if (x._1 === "Month") { return y._1 === "Month"; }
+        return x._1 === "Year" && y._1 === "Year";
+      })();
+    }
+    return x.tag === "InvalidFractionalUse" && y.tag === "InvalidFractionalUse" && (() => {
+      if (x._1 === "Second") { return y._1 === "Second"; }
+      if (x._1 === "Minute") { return y._1 === "Minute"; }
+      if (x._1 === "Hour") { return y._1 === "Hour"; }
+      if (x._1 === "Day") { return y._1 === "Day"; }
+      if (x._1 === "Week") { return y._1 === "Week"; }
+      if (x._1 === "Month") { return y._1 === "Month"; }
+      return x._1 === "Year" && y._1 === "Year";
+    })();
+  }
+};
+const ordError = {
+  compare: x => y => {
+    if (x.tag === "IsEmpty") {
+      if (y.tag === "IsEmpty") { return Data$dOrdering.EQ; }
+      return Data$dOrdering.LT;
+    }
+    if (y.tag === "IsEmpty") { return Data$dOrdering.GT; }
+    if (x.tag === "InvalidWeekComponentUsage") {
+      if (y.tag === "InvalidWeekComponentUsage") { return Data$dOrdering.EQ; }
+      return Data$dOrdering.LT;
+    }
+    if (y.tag === "InvalidWeekComponentUsage") { return Data$dOrdering.GT; }
+    if (x.tag === "ContainsNegativeValue") {
+      if (y.tag === "ContainsNegativeValue") {
+        if (x._1 === "Second") {
+          if (y._1 === "Second") { return Data$dOrdering.EQ; }
+          return Data$dOrdering.LT;
+        }
+        if (y._1 === "Second") { return Data$dOrdering.GT; }
+        if (x._1 === "Minute") {
+          if (y._1 === "Minute") { return Data$dOrdering.EQ; }
+          return Data$dOrdering.LT;
+        }
+        if (y._1 === "Minute") { return Data$dOrdering.GT; }
+        if (x._1 === "Hour") {
+          if (y._1 === "Hour") { return Data$dOrdering.EQ; }
+          return Data$dOrdering.LT;
+        }
+        if (y._1 === "Hour") { return Data$dOrdering.GT; }
+        if (x._1 === "Day") {
+          if (y._1 === "Day") { return Data$dOrdering.EQ; }
+          return Data$dOrdering.LT;
+        }
+        if (y._1 === "Day") { return Data$dOrdering.GT; }
+        if (x._1 === "Week") {
+          if (y._1 === "Week") { return Data$dOrdering.EQ; }
+          return Data$dOrdering.LT;
+        }
+        if (y._1 === "Week") { return Data$dOrdering.GT; }
+        if (x._1 === "Month") {
+          if (y._1 === "Month") { return Data$dOrdering.EQ; }
+          return Data$dOrdering.LT;
+        }
+        if (y._1 === "Month") { return Data$dOrdering.GT; }
+        if (x._1 === "Year" && y._1 === "Year") { return Data$dOrdering.EQ; }
+        $runtime.fail();
+      }
+      return Data$dOrdering.LT;
+    }
+    if (y.tag === "ContainsNegativeValue") { return Data$dOrdering.GT; }
+    if (x.tag === "InvalidFractionalUse" && y.tag === "InvalidFractionalUse") {
+      if (x._1 === "Second") {
+        if (y._1 === "Second") { return Data$dOrdering.EQ; }
+        return Data$dOrdering.LT;
+      }
+      if (y._1 === "Second") { return Data$dOrdering.GT; }
+      if (x._1 === "Minute") {
+        if (y._1 === "Minute") { return Data$dOrdering.EQ; }
+        return Data$dOrdering.LT;
+      }
+      if (y._1 === "Minute") { return Data$dOrdering.GT; }
+      if (x._1 === "Hour") {
+        if (y._1 === "Hour") { return Data$dOrdering.EQ; }
+        return Data$dOrdering.LT;
+      }
+      if (y._1 === "Hour") { return Data$dOrdering.GT; }
+      if (x._1 === "Day") {
+        if (y._1 === "Day") { return Data$dOrdering.EQ; }
+        return Data$dOrdering.LT;
+      }
+      if (y._1 === "Day") { return Data$dOrdering.GT; }
+      if (x._1 === "Week") {
+        if (y._1 === "Week") { return Data$dOrdering.EQ; }
+        return Data$dOrdering.LT;
+      }
+      if (y._1 === "Week") { return Data$dOrdering.GT; }
+      if (x._1 === "Month") {
+        if (y._1 === "Month") { return Data$dOrdering.EQ; }
+        return Data$dOrdering.LT;
+      }
+      if (y._1 === "Month") { return Data$dOrdering.GT; }
+      if (x._1 === "Year" && y._1 === "Year") { return Data$dOrdering.EQ; }
+    }
+    $runtime.fail();
+  },
+  Eq0: () => eqError
+};
+const checkWeekUsage = v => {
+  if (
+    (() => {
+      const $0 = lookup(Data$dInterval$dDuration.Week)(v.asMap);
+      return (() => {
+        if ($0.tag === "Nothing") { return false; }
+        if ($0.tag === "Just") { return true; }
+        $runtime.fail();
+      })() && (() => {
+        if (v.asMap.tag === "Leaf") { return false; }
+        if (v.asMap.tag === "Node") { return v.asMap._2 > 1; }
+        $runtime.fail();
+      })();
+    })()
+  ) {
+    return Data$dList$dTypes.$List("Cons", InvalidWeekComponentUsage, Data$dList$dTypes.Nil);
+  }
+  return Data$dList$dTypes.Nil;
+};
+const checkNegativeValues = v => foldMap1(v1 => {
+  if (v1._2 >= 0.0) { return Data$dList$dTypes.Nil; }
+  return Data$dList$dTypes.$List("Cons", $$$Error("ContainsNegativeValue", v1._1), Data$dList$dTypes.Nil);
+})(v.asList);
+const checkFractionalUse = v => {
+  const $0 = Data$dList.span(x => Data$dNumber.floor(x._2) === x._2)(v.asList);
+  if ($0.rest.tag === "Cons" && foldMap2(x => Data$dNumber.abs(x._2))($0.rest._2) > 0.0) {
+    return Data$dList$dTypes.$List("Cons", $$$Error("InvalidFractionalUse", $0.rest._1._1), Data$dList$dTypes.Nil);
+  }
+  return Data$dList$dTypes.Nil;
+};
+const checkEmptiness = v => {
+  if (v.asList.tag === "Nil") { return Data$dList$dTypes.$List("Cons", IsEmpty, Data$dList$dTypes.Nil); }
+  return Data$dList$dTypes.Nil;
+};
+const checkValidIsoDuration = v => fold([checkWeekUsage, checkEmptiness, checkFractionalUse, checkNegativeValues])({
+  asList: (() => {
+    const go = go$a0$copy => go$a1$copy => {
+      let go$a0 = go$a0$copy, go$a1 = go$a1$copy, go$c = true, go$r;
+      while (go$c) {
+        const v$1 = go$a0, v1 = go$a1;
+        if (v1.tag === "Nil") {
+          go$c = false;
+          go$r = v$1;
+          continue;
+        }
+        if (v1.tag === "Cons") {
+          go$a0 = Data$dList$dTypes.$List("Cons", v1._1, v$1);
+          go$a1 = v1._2;
+          continue;
+        }
+        $runtime.fail();
+      }
+      return go$r;
+    };
+    return go(Data$dList$dTypes.Nil)(toUnfoldable(v));
+  })(),
+  asMap: v
+});
+const mkIsoDuration = d => {
+  const $0 = checkValidIsoDuration(d);
+  if ($0.tag === "Nil") { return Data$dEither.$Either("Right", d); }
+  if ($0.tag === "Cons") { return Data$dEither.$Either("Left", Data$dNonEmpty.$NonEmpty($0._1, $0._2)); }
+  $runtime.fail();
+};
+export {
+  $$$Error,
+  ContainsNegativeValue,
+  InvalidFractionalUse,
+  InvalidWeekComponentUsage,
+  IsEmpty,
+  checkEmptiness,
+  checkFractionalUse,
+  checkNegativeValues,
+  checkValidIsoDuration,
+  checkWeekUsage,
+  eqError,
+  eqIsoDuration,
+  fold,
+  foldMap1,
+  foldMap2,
+  lookup,
+  mkIsoDuration,
+  ordError,
+  ordIsoDuration,
+  prettyError,
+  showError,
+  showIsoDuration,
+  toUnfoldable,
+  unIsoDuration
+};

package/output-es/Data.JSDate/foreign.js

@@ -0,0 +1,83 @@
+// global exports
+var createDate = function(y, m, d, h, mi, s, ms) {
+  var date = new Date(Date.UTC(y, m, d, h, mi, s, ms));
+  if (y >= 0 && y < 100) {
+    date.setUTCFullYear(y);
+  }
+  return date;
+};
+
+var createLocalDate = function(y, m, d, h, mi, s, ms) {
+  var date = new Date(y, m, d, h, mi, s, ms);
+  if (y >= 0 && y < 100) {
+    date.setFullYear(y);
+  }
+  return date;
+};
+
+export function now() {
+  return new Date();
+}
+
+export function isValid(date) {
+  return !isNaN(date.getTime());
+}
+
+export function toInstantImpl(just) {
+  return function(nothing) {
+    return function(date) {
+      var t = date.getTime();
+      return isNaN(t) ? nothing : just(t);
+    };
+  };
+}
+
+export function fromInstant(instant) {
+  return new Date(instant);
+}
+
+export function jsdate(parts) {
+  return createDate(
+    parts.year,
+    parts.month,
+    parts.day,
+    parts.hour,
+    parts.minute,
+    parts.second,
+    parts.millisecond
+  );
+}
+
+export function jsdateLocal(parts) {
+  return function() {
+    return createLocalDate(
+      parts.year,
+      parts.month,
+      parts.day,
+      parts.hour,
+      parts.minute,
+      parts.second,
+      parts.millisecond
+    );
+  };
+}
+
+export function dateMethod(method, date) {
+  return date[method]();
+}
+
+export function dateMethodEff(method, date) {
+  return function() {
+    return date[method]();
+  };
+}
+
+export function parse(dateString) {
+  return function() {
+    return new Date(dateString);
+  };
+}
+
+export function fromTime(time) {
+  return new Date(time);
+}

package/output-es/Data.JSDate/index.js

@@ -0,0 +1,123 @@
+// | A module providing a type and operations for the native JavaScript `Date`
+// | object.
+// |
+// | The `JSDate` type and associated functions are provided for interop
+// | purposes with JavaScript, but for working with dates in PureScript it is
+// | recommended that `DateTime` representation is used instead - `DateTime`
+// | offers greater type safety, a more PureScript-friendly interface, and has
+// | a `Generic` instance.
+import * as $runtime from "../runtime.js";
+import * as Data$dDateTime$dInstant from "../Data.DateTime.Instant/index.js";
+import * as Data$dIdentity from "../Data.Identity/index.js";
+import * as Data$dInt from "../Data.Int/index.js";
+import * as Data$dMaybe from "../Data.Maybe/index.js";
+import * as Data$dOrd from "../Data.Ord/index.js";
+import * as Data$dShow from "../Data.Show/index.js";
+import * as Foreign from "../Foreign/index.js";
+import {dateMethod, dateMethodEff, fromInstant, fromTime, isValid, jsdate, jsdateLocal, now, parse, toInstantImpl} from "./foreign.js";
+const toUTCString = dt => dateMethod("toUTCString", dt);
+const toTimeString = dt => dateMethod("toTimeString", dt);
+const toString = dt => dateMethod("toString", dt);
+const toInstant = /* #__PURE__ */ (() => {
+  const $0 = toInstantImpl(Data$dMaybe.Just)(Data$dMaybe.Nothing);
+  return a => {
+    const $1 = $0(a);
+    if ($1.tag === "Just") {
+      if ($1._1 >= -8639977881600000.0 && $1._1 <= 8639977881599999.0) { return Data$dMaybe.$Maybe("Just", $1._1); }
+      return Data$dMaybe.Nothing;
+    }
+    if ($1.tag === "Nothing") { return Data$dMaybe.Nothing; }
+    $runtime.fail();
+  };
+})();
+const toISOString = dt => dateMethodEff("toISOString", dt);
+const toDateTime = x => {
+  const $0 = toInstant(x);
+  if ($0.tag === "Just") { return Data$dMaybe.$Maybe("Just", Data$dDateTime$dInstant.toDateTime($0._1)); }
+  return Data$dMaybe.Nothing;
+};
+const toDateString = dt => dateMethod("toDateString", dt);
+const toDate = x => {
+  const $0 = toInstant(x);
+  if ($0.tag === "Just") { return Data$dMaybe.$Maybe("Just", Data$dDateTime$dInstant.toDateTime($0._1)._1); }
+  return Data$dMaybe.Nothing;
+};
+const readDate = /* #__PURE__ */ Foreign.unsafeReadTagged(Data$dIdentity.monadIdentity)("Date");
+const getUTCSeconds = dt => dateMethod("getUTCSeconds", dt);
+const getUTCMonth = dt => dateMethod("getUTCMonth", dt);
+const getUTCMinutes = dt => dateMethod("getUTCMinutes", dt);
+const getUTCMilliseconds = dt => dateMethod("getUTCMilliseconds", dt);
+const getUTCHours = dt => dateMethod("getUTCHours", dt);
+const getUTCFullYear = dt => dateMethod("getUTCFullYear", dt);
+const getUTCDay = dt => dateMethod("getUTCDay", dt);
+const getUTCDate = dt => dateMethod("getUTCDate", dt);
+const getTimezoneOffset = dt => dateMethodEff("getTimezoneOffset", dt);
+const getTime = dt => dateMethod("getTime", dt);
+const showJSDate = {show: a => "(fromTime " + Data$dShow.showNumberImpl(dateMethod("getTime", a)) + ")"};
+const getSeconds = dt => dateMethodEff("getSeconds", dt);
+const getMonth = dt => dateMethodEff("getMonth", dt);
+const getMinutes = dt => dateMethodEff("getMinutes", dt);
+const getMilliseconds = dt => dateMethodEff("getMilliseconds", dt);
+const getHours = dt => dateMethodEff("getHours", dt);
+const getFullYear = dt => dateMethodEff("getFullYear", dt);
+const getDay = dt => dateMethodEff("getDay", dt);
+const getDate = dt => dateMethodEff("getDate", dt);
+const fromDateTime = v => jsdate({
+  year: Data$dInt.toNumber(v._1._1),
+  month: Data$dInt.toNumber((() => {
+    if (v._1._2 === "January") { return 0; }
+    if (v._1._2 === "February") { return 1; }
+    if (v._1._2 === "March") { return 2; }
+    if (v._1._2 === "April") { return 3; }
+    if (v._1._2 === "May") { return 4; }
+    if (v._1._2 === "June") { return 5; }
+    if (v._1._2 === "July") { return 6; }
+    if (v._1._2 === "August") { return 7; }
+    if (v._1._2 === "September") { return 8; }
+    if (v._1._2 === "October") { return 9; }
+    if (v._1._2 === "November") { return 10; }
+    if (v._1._2 === "December") { return 11; }
+    $runtime.fail();
+  })()),
+  day: Data$dInt.toNumber(v._1._3),
+  hour: Data$dInt.toNumber(v._2._1),
+  minute: Data$dInt.toNumber(v._2._2),
+  second: Data$dInt.toNumber(v._2._3),
+  millisecond: Data$dInt.toNumber(v._2._4)
+});
+const eqJSDate = {eq: a => b => dateMethod("getTime", a) === dateMethod("getTime", b)};
+const ordJSDate = {compare: a => b => Data$dOrd.ordNumber.compare(dateMethod("getTime", a))(dateMethod("getTime", b)), Eq0: () => eqJSDate};
+export {
+  eqJSDate,
+  fromDateTime,
+  getDate,
+  getDay,
+  getFullYear,
+  getHours,
+  getMilliseconds,
+  getMinutes,
+  getMonth,
+  getSeconds,
+  getTime,
+  getTimezoneOffset,
+  getUTCDate,
+  getUTCDay,
+  getUTCFullYear,
+  getUTCHours,
+  getUTCMilliseconds,
+  getUTCMinutes,
+  getUTCMonth,
+  getUTCSeconds,
+  ordJSDate,
+  readDate,
+  showJSDate,
+  toDate,
+  toDateString,
+  toDateTime,
+  toISOString,
+  toInstant,
+  toString,
+  toTimeString,
+  toUTCString
+};
+export * from "./foreign.js";

package/output-es/Data.Lazy/foreign.js

@@ -0,0 +1,14 @@
+export const defer = function (thunk) {
+  var v = null;
+  return function() {
+    if (thunk === undefined) return v;
+
+    v = thunk();
+    thunk = undefined; // eslint-disable-line no-param-reassign
+    return v;
+  };
+};
+
+export const force = function (l) {
+  return l();
+};