76 lines
2.0 KiB
JavaScript
76 lines
2.0 KiB
JavaScript
import * as RA from "../../Array.js";
|
|
import * as Either from "../../Either.js";
|
|
import { dual, pipe } from "../../Function.js";
|
|
import * as List from "../../List.js";
|
|
import * as Option from "../../Option.js";
|
|
import * as configError from "../configError.js";
|
|
/** @internal */
|
|
export const empty = {
|
|
_tag: "Empty"
|
|
};
|
|
/** @internal */
|
|
export const andThen = /*#__PURE__*/dual(2, (self, that) => ({
|
|
_tag: "AndThen",
|
|
first: self,
|
|
second: that
|
|
}));
|
|
/** @internal */
|
|
export const mapName = /*#__PURE__*/dual(2, (self, f) => andThen(self, {
|
|
_tag: "MapName",
|
|
f
|
|
}));
|
|
/** @internal */
|
|
export const nested = /*#__PURE__*/dual(2, (self, name) => andThen(self, {
|
|
_tag: "Nested",
|
|
name
|
|
}));
|
|
/** @internal */
|
|
export const unnested = /*#__PURE__*/dual(2, (self, name) => andThen(self, {
|
|
_tag: "Unnested",
|
|
name
|
|
}));
|
|
/** @internal */
|
|
export const patch = /*#__PURE__*/dual(2, (path, patch) => {
|
|
let input = List.of(patch);
|
|
let output = path;
|
|
while (List.isCons(input)) {
|
|
const patch = input.head;
|
|
switch (patch._tag) {
|
|
case "Empty":
|
|
{
|
|
input = input.tail;
|
|
break;
|
|
}
|
|
case "AndThen":
|
|
{
|
|
input = List.cons(patch.first, List.cons(patch.second, input.tail));
|
|
break;
|
|
}
|
|
case "MapName":
|
|
{
|
|
output = RA.map(output, patch.f);
|
|
input = input.tail;
|
|
break;
|
|
}
|
|
case "Nested":
|
|
{
|
|
output = RA.prepend(output, patch.name);
|
|
input = input.tail;
|
|
break;
|
|
}
|
|
case "Unnested":
|
|
{
|
|
const containsName = pipe(RA.head(output), Option.contains(patch.name));
|
|
if (containsName) {
|
|
output = RA.tailNonEmpty(output);
|
|
input = input.tail;
|
|
} else {
|
|
return Either.left(configError.MissingData(output, `Expected ${patch.name} to be in path in ConfigProvider#unnested`));
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
return Either.right(output);
|
|
});
|
|
//# sourceMappingURL=pathPatch.js.map
|