@f1studio/form-spec 5.0.0-alpha.139 → 5.0.0-alpha.141

package/src/FormSpec.FS/Interop/Facade/FormAnswersGate.ts

@@ -0,0 +1,508 @@
+import { FSharpRef, Record, Union } from "@fable-org/fable-library-js/Types.js";
+import { int32 } from "@fable-org/fable-library-js/Int32.js";
+import { obj_type, record_type, option_type, list_type, union_type, int32_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { singleton, choose, contains, ofArray, reverse, isEmpty, empty, cons, append, fold, map as map_1, FSharpList } from "@fable-org/fable-library-js/List.js";
+import { map, defaultArg, Option } from "@fable-org/fable-library-js/Option.js";
+import { compare, stringHash, uncurry2, uncurry3, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
+import { join, printf, toText } from "@fable-org/fable-library-js/String.js";
+import { FSharpResult$2_Ok, FSharpResult$2_Error, FSharpResult$2_$union, Result_Map } from "@fable-org/fable-library-js/Result.js";
+import { fromString, field, list as list_3, keyValuePairs, array as array_1, IOptionalGetter, IRequiredGetter, IGetters, object, map as map_2, string, fail, succeed, andThen } from "../../../Thoth.Json/packages/Thoth.Json/Decode.js";
+import { tryParse } from "@fable-org/fable-library-js/Guid.js";
+import { ErrorReason_$union } from "../../../Thoth.Json/packages/Thoth.Json/Types.js";
+import { Shared_FieldValue_PluginData, Shared_FieldValue_Matrix, Shared_FieldValue_Multiple, Shared_FieldValue_$union, Shared_FieldValue_Single, Shared_PluginDataProperty, Shared_MatrixAnswer, Shared_FieldAnswer, Shared_PluginPropertyKey, Shared_MatrixItemKey, Shared_FieldKey } from "../../FormSpec.js";
+import { FSharpSet, ofArray as ofArray_1 } from "@fable-org/fable-library-js/Set.js";
+import { FSharpMap, ofList } from "@fable-org/fable-library-js/Map.js";
+import { Auto_generateBoxedEncoder_437914C6, toString } from "../../../Thoth.Json/packages/Thoth.Json/Encode.js";
+
+export type RejectionPath_$union = 
+    | RejectionPath<0>
+    | RejectionPath<1>
+    | RejectionPath<2>
+    | RejectionPath<3>
+
+export type RejectionPath_$cases = {
+    0: ["Root", []],
+    1: ["AtField", [string]],
+    2: ["AtIndex", [int32]],
+    3: ["Nested", [RejectionPath_$union, RejectionPath_$union]]
+}
+
+export function RejectionPath_Root() {
+    return new RejectionPath<0>(0, []);
+}
+
+export function RejectionPath_AtField(Item: string) {
+    return new RejectionPath<1>(1, [Item]);
+}
+
+export function RejectionPath_AtIndex(Item: int32) {
+    return new RejectionPath<2>(2, [Item]);
+}
+
+export function RejectionPath_Nested(Item1: RejectionPath_$union, Item2: RejectionPath_$union) {
+    return new RejectionPath<3>(3, [Item1, Item2]);
+}
+
+export class RejectionPath<Tag extends keyof RejectionPath_$cases> extends Union<Tag, RejectionPath_$cases[Tag][0]> {
+    constructor(readonly tag: Tag, readonly fields: RejectionPath_$cases[Tag][1]) {
+        super();
+    }
+    cases() {
+        return ["Root", "AtField", "AtIndex", "Nested"];
+    }
+}
+
+export function RejectionPath_$reflection(): TypeInfo {
+    return union_type("FormSpec.Interop.FormAnswersGate.RejectionPath", [], RejectionPath, () => [[], [["Item", string_type]], [["Item", int32_type]], [["Item1", RejectionPath_$reflection()], ["Item2", RejectionPath_$reflection()]]]);
+}
+
+export type RejectionReason_$union = 
+    | RejectionReason<0>
+    | RejectionReason<1>
+    | RejectionReason<2>
+    | RejectionReason<3>
+    | RejectionReason<4>
+    | RejectionReason<5>
+    | RejectionReason<6>
+    | RejectionReason<7>
+    | RejectionReason<8>
+
+export type RejectionReason_$cases = {
+    0: ["NotJson", [string]],
+    1: ["MissingField", [string]],
+    2: ["WrongType", [string, string, string]],
+    3: ["InvalidGuid", [string, string]],
+    4: ["UnknownKind", [string, FSharpList<string>]],
+    5: ["InvalidPluginDataType", [string, FSharpList<string>]],
+    6: ["EmptyWhenRequired", [string]],
+    7: ["DuplicateKeys", [string, FSharpList<string>]],
+    8: ["MultipleErrors", [FSharpList<RejectionReason_$union>]]
+}
+
+export function RejectionReason_NotJson(parseError: string) {
+    return new RejectionReason<0>(0, [parseError]);
+}
+
+export function RejectionReason_MissingField(fieldName: string) {
+    return new RejectionReason<1>(1, [fieldName]);
+}
+
+export function RejectionReason_WrongType(fieldName: string, expected: string, actual: string) {
+    return new RejectionReason<2>(2, [fieldName, expected, actual]);
+}
+
+export function RejectionReason_InvalidGuid(fieldName: string, raw: string) {
+    return new RejectionReason<3>(3, [fieldName, raw]);
+}
+
+export function RejectionReason_UnknownKind(got: string, expected: FSharpList<string>) {
+    return new RejectionReason<4>(4, [got, expected]);
+}
+
+export function RejectionReason_InvalidPluginDataType(got: string, expected: FSharpList<string>) {
+    return new RejectionReason<5>(5, [got, expected]);
+}
+
+export function RejectionReason_EmptyWhenRequired(fieldName: string) {
+    return new RejectionReason<6>(6, [fieldName]);
+}
+
+export function RejectionReason_DuplicateKeys(fieldName: string, duplicates: FSharpList<string>) {
+    return new RejectionReason<7>(7, [fieldName, duplicates]);
+}
+
+export function RejectionReason_MultipleErrors(Item: FSharpList<RejectionReason_$union>) {
+    return new RejectionReason<8>(8, [Item]);
+}
+
+export class RejectionReason<Tag extends keyof RejectionReason_$cases> extends Union<Tag, RejectionReason_$cases[Tag][0]> {
+    constructor(readonly tag: Tag, readonly fields: RejectionReason_$cases[Tag][1]) {
+        super();
+    }
+    cases() {
+        return ["NotJson", "MissingField", "WrongType", "InvalidGuid", "UnknownKind", "InvalidPluginDataType", "EmptyWhenRequired", "DuplicateKeys", "MultipleErrors"];
+    }
+}
+
+export function RejectionReason_$reflection(): TypeInfo {
+    return union_type("FormSpec.Interop.FormAnswersGate.RejectionReason", [], RejectionReason, () => [[["parseError", string_type]], [["fieldName", string_type]], [["fieldName", string_type], ["expected", string_type], ["actual", string_type]], [["fieldName", string_type], ["raw", string_type]], [["got", string_type], ["expected", list_type(string_type)]], [["got", string_type], ["expected", list_type(string_type)]], [["fieldName", string_type]], [["fieldName", string_type], ["duplicates", list_type(string_type)]], [["Item", list_type(RejectionReason_$reflection())]]]);
+}
+
+export class Rejection extends Record implements IEquatable<Rejection>, IComparable<Rejection> {
+    readonly Path: RejectionPath_$union;
+    readonly Reason: RejectionReason_$union;
+    readonly RawFragment: Option<string>;
+    constructor(Path: RejectionPath_$union, Reason: RejectionReason_$union, RawFragment: Option<string>) {
+        super();
+        this.Path = Path;
+        this.Reason = Reason;
+        this.RawFragment = RawFragment;
+    }
+}
+
+export function Rejection_$reflection(): TypeInfo {
+    return record_type("FormSpec.Interop.FormAnswersGate.Rejection", [], Rejection, () => [["Path", RejectionPath_$reflection()], ["Reason", RejectionReason_$reflection()], ["RawFragment", option_type(string_type)]]);
+}
+
+export function Rejection_Create_7FA655F1(path: RejectionPath_$union, reason: RejectionReason_$union, raw?: string): Rejection {
+    return new Rejection(path, reason, raw);
+}
+
+export function formatRejection(r: Rejection): string {
+    const pathStr: string = formatPath(r.Path);
+    const reasonStr: string = formatReason(r.Reason);
+    const rawStr: string = defaultArg(map<string, string>((s: string): string => {
+        const truncated: string = (s.length > 80) ? (s.slice(undefined, 79 + 1) + "…") : s;
+        return toText(printf(" | raw: %s"))(truncated);
+    }, r.RawFragment), "");
+    return toText(printf("[%s] %s%s"))(pathStr)(reasonStr)(rawStr);
+}
+
+export function formatPath(p: RejectionPath_$union): string {
+    switch (p.tag) {
+        case /* AtField */ 1: {
+            const f: string = p.fields[0];
+            return toText(printf(".%s"))(f);
+        }
+        case /* AtIndex */ 2: {
+            const i: int32 = p.fields[0] | 0;
+            return toText(printf("[%d]"))(i);
+        }
+        case /* Nested */ 3: {
+            const child: RejectionPath_$union = p.fields[1];
+            const arg_2: string = formatPath(p.fields[0]);
+            const arg_3: string = formatPath(child);
+            return toText(printf("%s%s"))(arg_2)(arg_3);
+        }
+        default:
+            return "$";
+    }
+}
+
+export function formatReason(r: RejectionReason_$union): string {
+    switch (r.tag) {
+        case /* MissingField */ 1: {
+            const f: string = r.fields[0];
+            return toText(printf("Missing required field \'%s\'"))(f);
+        }
+        case /* WrongType */ 2: {
+            const f_1: string = r.fields[0];
+            const expected: string = r.fields[1];
+            const actual: string = r.fields[2];
+            return toText(printf("Field \'%s\' expected %s, got %s"))(f_1)(expected)(actual);
+        }
+        case /* InvalidGuid */ 3: {
+            const raw: string = r.fields[1];
+            const f_2: string = r.fields[0];
+            return toText(printf("Field \'%s\' is not a valid GUID: \'%s\'"))(f_2)(raw);
+        }
+        case /* UnknownKind */ 4: {
+            const got: string = r.fields[0];
+            const arg_8: string = join(", ", r.fields[1]);
+            return toText(printf("Unknown kind \'%s\', expected one of: %s"))(got)(arg_8);
+        }
+        case /* InvalidPluginDataType */ 5: {
+            const got_1: string = r.fields[0];
+            const arg_10: string = join(", ", r.fields[1]);
+            return toText(printf("Unknown dataType \'%s\', expected one of: %s"))(got_1)(arg_10);
+        }
+        case /* EmptyWhenRequired */ 6: {
+            const f_3: string = r.fields[0];
+            return toText(printf("Field \'%s\' is empty/whitespace but required at this level"))(f_3);
+        }
+        case /* DuplicateKeys */ 7: {
+            const f_4: string = r.fields[0];
+            const arg_13: string = join(", ", r.fields[1]);
+            return toText(printf("Duplicate keys in \'%s\': %s"))(f_4)(arg_13);
+        }
+        case /* MultipleErrors */ 8:
+            return join("; ", map_1<RejectionReason_$union, string>(formatReason, r.fields[0]));
+        default: {
+            const e: string = r.fields[0];
+            return toText(printf("Not valid JSON: %s"))(e);
+        }
+    }
+}
+
+export function GateResult_map<T, U>(f: ((arg0: T) => U), r: FSharpResult$2_$union<T, FSharpList<Rejection>>): FSharpResult$2_$union<U, FSharpList<Rejection>> {
+    return Result_Map<T, U, FSharpList<Rejection>>(f, r);
+}
+
+export function GateResult_bind<T, U>(f: ((arg0: T) => FSharpResult$2_$union<U, FSharpList<Rejection>>), r: FSharpResult$2_$union<T, FSharpList<Rejection>>): FSharpResult$2_$union<U, FSharpList<Rejection>> {
+    if (r.tag === /* Error */ 1) {
+        return FSharpResult$2_Error<U, FSharpList<Rejection>>(r.fields[0]);
+    }
+    else {
+        return f(r.fields[0]);
+    }
+}
+
+export function GateResult_collect<T>(results: FSharpList<FSharpResult$2_$union<T, FSharpList<Rejection>>>): FSharpResult$2_$union<FSharpList<T>, FSharpList<Rejection>> {
+    const patternInput: [FSharpList<T>, FSharpList<Rejection>] = fold<FSharpResult$2_$union<T, FSharpList<Rejection>>, [FSharpList<T>, FSharpList<Rejection>]>((tupledArg: [FSharpList<T>, FSharpList<Rejection>], r: FSharpResult$2_$union<T, FSharpList<Rejection>>): [FSharpList<T>, FSharpList<Rejection>] => {
+        const oks: FSharpList<T> = tupledArg[0];
+        const errs: FSharpList<Rejection> = tupledArg[1];
+        if (r.tag === /* Error */ 1) {
+            return [oks, append(r.fields[0], errs)] as [FSharpList<T>, FSharpList<Rejection>];
+        }
+        else {
+            return [cons(r.fields[0], oks), errs] as [FSharpList<T>, FSharpList<Rejection>];
+        }
+    }, [empty<T>(), empty<Rejection>()] as [FSharpList<T>, FSharpList<Rejection>], results);
+    const errs_1: FSharpList<Rejection> = patternInput[1];
+    if (isEmpty(errs_1)) {
+        return FSharpResult$2_Ok<FSharpList<T>, FSharpList<Rejection>>(reverse<T>(patternInput[0]));
+    }
+    else {
+        return FSharpResult$2_Error<FSharpList<T>, FSharpList<Rejection>>(errs_1);
+    }
+}
+
+export const Decoders_validKinds: FSharpList<string> = ofArray(["single", "multiple", "matrix", "pluginData"]);
+
+export const Decoders_validPluginDataTypes: FSharpList<string> = ofArray(["string", "int", "float", "bool", "datetime"]);
+
+export function Decoders_guidDecoder(fieldName: string): ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>)) {
+    return (path_2: string): ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>) => ((value_1: any): FSharpResult$2_$union<string, [string, ErrorReason_$union]> => andThen<string, string>(uncurry3((raw: string): ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>)) => {
+        let matchValue: [boolean, string];
+        let outArg = "00000000-0000-0000-0000-000000000000";
+        matchValue = ([tryParse(raw, new FSharpRef<string>((): string => outArg, (v: string): void => {
+            outArg = v;
+        })), outArg] as [boolean, string]);
+        if (matchValue[0]) {
+            return (arg10$0040: string): ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>) => ((arg20$0040: any): FSharpResult$2_$union<string, [string, ErrorReason_$union]> => succeed<string>(matchValue[1], arg10$0040, arg20$0040));
+        }
+        else {
+            const msg: string = toText(printf("\'%s\' is not a valid GUID: \'%s\'"))(fieldName)(raw);
+            return (path_1: string): ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>) => ((arg20$0040_1: any): FSharpResult$2_$union<string, [string, ErrorReason_$union]> => fail<string>(msg, path_1, arg20$0040_1));
+        }
+    }), string, path_2, value_1));
+}
+
+export const Decoders_fieldKeyDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<Shared_FieldKey, [string, ErrorReason_$union]>)) = (() => {
+    const d: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>)) = Decoders_guidDecoder("fieldKey");
+    return (path: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldKey, [string, ErrorReason_$union]>) => ((value: any): FSharpResult$2_$union<Shared_FieldKey, [string, ErrorReason_$union]> => map_2<string, Shared_FieldKey>((Item: string): Shared_FieldKey => (new Shared_FieldKey(Item)), uncurry2(d), path, value));
+})();
+
+export const Decoders_matrixItemKeyDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<Shared_MatrixItemKey, [string, ErrorReason_$union]>)) = (() => {
+    const d: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>)) = Decoders_guidDecoder("matrixItemKey");
+    return (path: string): ((arg0: any) => FSharpResult$2_$union<Shared_MatrixItemKey, [string, ErrorReason_$union]>) => ((value: any): FSharpResult$2_$union<Shared_MatrixItemKey, [string, ErrorReason_$union]> => map_2<string, Shared_MatrixItemKey>((Item: string): Shared_MatrixItemKey => (new Shared_MatrixItemKey(Item)), uncurry2(d), path, value));
+})();
+
+export const Decoders_pluginPropertyKeyDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<Shared_PluginPropertyKey, [string, ErrorReason_$union]>)) = (() => {
+    const d: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>)) = Decoders_guidDecoder("propertyKey");
+    return (path: string): ((arg0: any) => FSharpResult$2_$union<Shared_PluginPropertyKey, [string, ErrorReason_$union]>) => ((value: any): FSharpResult$2_$union<Shared_PluginPropertyKey, [string, ErrorReason_$union]> => map_2<string, Shared_PluginPropertyKey>((Item: string): Shared_PluginPropertyKey => (new Shared_PluginPropertyKey(Item)), uncurry2(d), path, value));
+})();
+
+export const Decoders_pluginDataTypeDecoder = (path_2: string): ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>) => ((value_1: any): FSharpResult$2_$union<string, [string, ErrorReason_$union]> => andThen<string, string>(uncurry3((raw: string): ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>)) => {
+    if (contains<string>(raw, Decoders_validPluginDataTypes, {
+        Equals: (x: string, y: string): boolean => (x === y),
+        GetHashCode: stringHash,
+    })) {
+        return (arg10$0040: string): ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>) => ((arg20$0040: any): FSharpResult$2_$union<string, [string, ErrorReason_$union]> => succeed<string>(raw, arg10$0040, arg20$0040));
+    }
+    else {
+        let msg: string;
+        const arg_1: string = join(", ", Decoders_validPluginDataTypes);
+        msg = toText(printf("Unknown dataType \'%s\', expected one of: %s"))(raw)(arg_1);
+        return (path_1: string): ((arg0: any) => FSharpResult$2_$union<string, [string, ErrorReason_$union]>) => ((arg20$0040_1: any): FSharpResult$2_$union<string, [string, ErrorReason_$union]> => fail<string>(msg, path_1, arg20$0040_1));
+    }
+}), string, path_2, value_1));
+
+export const Decoders_singleDecoder = (path_3: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldAnswer, [string, ErrorReason_$union]>) => ((v: any): FSharpResult$2_$union<Shared_FieldAnswer, [string, ErrorReason_$union]> => object<Shared_FieldAnswer>((get$: IGetters): Shared_FieldAnswer => {
+    let objectArg: IRequiredGetter, objectArg_1: IRequiredGetter, objectArg_2: IRequiredGetter, objectArg_3: IOptionalGetter;
+    return new Shared_FieldAnswer((objectArg = get$.Required, objectArg.Field<Shared_FieldKey>("fieldKey", uncurry2(Decoders_fieldKeyDecoder))), (objectArg_1 = get$.Required, objectArg_1.Field<string>("description", string)), (objectArg_2 = get$.Required, objectArg_2.Field<string>("value", string)), (objectArg_3 = get$.Optional, objectArg_3.Field<string>("documentation", string)));
+}, path_3, v));
+
+export const Decoders_fieldAnswerDecoder = (path_3: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldAnswer, [string, ErrorReason_$union]>) => ((v: any): FSharpResult$2_$union<Shared_FieldAnswer, [string, ErrorReason_$union]> => object<Shared_FieldAnswer>((get$: IGetters): Shared_FieldAnswer => {
+    let objectArg: IRequiredGetter, objectArg_1: IRequiredGetter, objectArg_2: IRequiredGetter, objectArg_3: IOptionalGetter;
+    return new Shared_FieldAnswer((objectArg = get$.Required, objectArg.Field<Shared_FieldKey>("fieldKey", uncurry2(Decoders_fieldKeyDecoder))), (objectArg_1 = get$.Required, objectArg_1.Field<string>("description", string)), (objectArg_2 = get$.Required, objectArg_2.Field<string>("value", string)), (objectArg_3 = get$.Optional, objectArg_3.Field<string>("documentation", string)));
+}, path_3, v));
+
+export const Decoders_multipleDecoder = (path_1: string): ((arg0: any) => FSharpResult$2_$union<[Shared_FieldKey, FSharpSet<Shared_FieldAnswer>], [string, ErrorReason_$union]>) => ((v: any): FSharpResult$2_$union<[Shared_FieldKey, FSharpSet<Shared_FieldAnswer>], [string, ErrorReason_$union]> => object<[Shared_FieldKey, FSharpSet<Shared_FieldAnswer>]>((get$: IGetters): [Shared_FieldKey, FSharpSet<Shared_FieldAnswer>] => {
+    let objectArg: IRequiredGetter, objectArg_1: IRequiredGetter;
+    return [(objectArg = get$.Required, objectArg.Field<Shared_FieldKey>("fieldKey", uncurry2(Decoders_fieldKeyDecoder))), ofArray_1<Shared_FieldAnswer>((objectArg_1 = get$.Required, objectArg_1.Field<Shared_FieldAnswer[]>("values", (path: string, value: any): FSharpResult$2_$union<Shared_FieldAnswer[], [string, ErrorReason_$union]> => array_1<Shared_FieldAnswer>(uncurry2(Decoders_fieldAnswerDecoder), path, value))), {
+        Compare: compare,
+    })] as [Shared_FieldKey, FSharpSet<Shared_FieldAnswer>];
+}, path_1, v));
+
+export const Decoders_matrixDecoder = (path_6: string): ((arg0: any) => FSharpResult$2_$union<Shared_MatrixAnswer, [string, ErrorReason_$union]>) => ((v_2: any): FSharpResult$2_$union<Shared_MatrixAnswer, [string, ErrorReason_$union]> => object<Shared_MatrixAnswer>((get$: IGetters): Shared_MatrixAnswer => {
+    let objectArg: IRequiredGetter, objectArg_1: IRequiredGetter, objectArg_2: IRequiredGetter, objectArg_3: IOptionalGetter;
+    return new Shared_MatrixAnswer((objectArg = get$.Required, objectArg.Field<Shared_FieldKey>("fieldKey", uncurry2(Decoders_fieldKeyDecoder))), (objectArg_1 = get$.Required, objectArg_1.Field<string>("description", string)), (objectArg_2 = get$.Required, objectArg_2.Field<FSharpMap<Shared_MatrixItemKey, string>>("values", (path_4: string, value_3: any): FSharpResult$2_$union<FSharpMap<Shared_MatrixItemKey, string>, [string, ErrorReason_$union]> => andThen<FSharpList<[string, string]>, FSharpMap<Shared_MatrixItemKey, string>>(uncurry3((pairs: FSharpList<[string, string]>): ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<FSharpMap<Shared_MatrixItemKey, string>, [string, ErrorReason_$union]>)) => {
+        const parsed: FSharpList<FSharpResult$2_$union<[Shared_MatrixItemKey, string], string>> = map_1<[string, string], FSharpResult$2_$union<[Shared_MatrixItemKey, string], string>>((tupledArg: [string, string]): FSharpResult$2_$union<[Shared_MatrixItemKey, string], string> => {
+            const k: string = tupledArg[0];
+            let matchValue: [boolean, string];
+            let outArg = "00000000-0000-0000-0000-000000000000";
+            matchValue = ([tryParse(k, new FSharpRef<string>((): string => outArg, (v_1: string): void => {
+                outArg = v_1;
+            })), outArg] as [boolean, string]);
+            if (matchValue[0]) {
+                return FSharpResult$2_Ok<[Shared_MatrixItemKey, string], string>([new Shared_MatrixItemKey(matchValue[1]), tupledArg[1]] as [Shared_MatrixItemKey, string]);
+            }
+            else {
+                return FSharpResult$2_Error<[Shared_MatrixItemKey, string], string>(toText(printf("Matrix key \'%s\' is not a valid GUID"))(k));
+            }
+        }, pairs);
+        const errors: FSharpList<string> = choose<FSharpResult$2_$union<[Shared_MatrixItemKey, string], string>, string>((_arg: FSharpResult$2_$union<[Shared_MatrixItemKey, string], string>): Option<string> => {
+            if (_arg.tag === /* Error */ 1) {
+                return _arg.fields[0];
+            }
+            else {
+                return undefined;
+            }
+        }, parsed);
+        if (isEmpty(errors)) {
+            const output: FSharpMap<Shared_MatrixItemKey, string> = ofList<Shared_MatrixItemKey, string>(choose<FSharpResult$2_$union<[Shared_MatrixItemKey, string], string>, [Shared_MatrixItemKey, string]>((_arg_1: FSharpResult$2_$union<[Shared_MatrixItemKey, string], string>): Option<[Shared_MatrixItemKey, string]> => {
+                if (_arg_1.tag === /* Ok */ 0) {
+                    return _arg_1.fields[0];
+                }
+                else {
+                    return undefined;
+                }
+            }, parsed), {
+                Compare: compare,
+            });
+            return (arg10$0040: string): ((arg0: any) => FSharpResult$2_$union<FSharpMap<Shared_MatrixItemKey, string>, [string, ErrorReason_$union]>) => ((arg20$0040: any): FSharpResult$2_$union<FSharpMap<Shared_MatrixItemKey, string>, [string, ErrorReason_$union]> => succeed<FSharpMap<Shared_MatrixItemKey, string>>(output, arg10$0040, arg20$0040));
+        }
+        else {
+            const msg: string = join("; ", errors);
+            return (path_3: string): ((arg0: any) => FSharpResult$2_$union<FSharpMap<Shared_MatrixItemKey, string>, [string, ErrorReason_$union]>) => ((arg20$0040_1: any): FSharpResult$2_$union<FSharpMap<Shared_MatrixItemKey, string>, [string, ErrorReason_$union]> => fail<FSharpMap<Shared_MatrixItemKey, string>>(msg, path_3, arg20$0040_1));
+        }
+    }), (path_2: string, value_2: any): FSharpResult$2_$union<FSharpList<[string, string]>, [string, ErrorReason_$union]> => keyValuePairs<string>(string, path_2, value_2), path_4, value_3))), (objectArg_3 = get$.Optional, objectArg_3.Field<string>("documentation", string)));
+}, path_6, v_2));
+
+export const Decoders_pluginDataPropertyDecoder = (path_5: string): ((arg0: any) => FSharpResult$2_$union<Shared_PluginDataProperty, [string, ErrorReason_$union]>) => ((v: any): FSharpResult$2_$union<Shared_PluginDataProperty, [string, ErrorReason_$union]> => object<Shared_PluginDataProperty>((get$: IGetters): Shared_PluginDataProperty => {
+    let objectArg: IRequiredGetter, objectArg_1: IRequiredGetter, objectArg_2: IRequiredGetter, objectArg_3: IRequiredGetter, objectArg_4: IOptionalGetter, objectArg_5: IOptionalGetter, objectArg_6: IOptionalGetter;
+    return new Shared_PluginDataProperty((objectArg = get$.Required, objectArg.Field<Shared_PluginPropertyKey>("propertyKey", uncurry2(Decoders_pluginPropertyKeyDecoder))), (objectArg_1 = get$.Required, objectArg_1.Field<string>("name", string)), (objectArg_2 = get$.Required, objectArg_2.Field<string>("dataType", uncurry2(Decoders_pluginDataTypeDecoder))), (objectArg_3 = get$.Required, objectArg_3.Field<string>("value", string)), (objectArg_4 = get$.Optional, objectArg_4.Field<string>("displayName", string)), (objectArg_5 = get$.Optional, objectArg_5.Field<string>("unit", string)), (objectArg_6 = get$.Optional, objectArg_6.Field<string>("description", string)));
+}, path_5, v));
+
+export const Decoders_pluginDataDecoder = (path_1: string): ((arg0: any) => FSharpResult$2_$union<FSharpList<Shared_PluginDataProperty>, [string, ErrorReason_$union]>) => ((v: any): FSharpResult$2_$union<FSharpList<Shared_PluginDataProperty>, [string, ErrorReason_$union]> => object<FSharpList<Shared_PluginDataProperty>>((get$: IGetters): FSharpList<Shared_PluginDataProperty> => {
+    const objectArg: IRequiredGetter = get$.Required;
+    return objectArg.Field<FSharpList<Shared_PluginDataProperty>>("properties", (path: string, value: any): FSharpResult$2_$union<FSharpList<Shared_PluginDataProperty>, [string, ErrorReason_$union]> => list_3<Shared_PluginDataProperty>(uncurry2(Decoders_pluginDataPropertyDecoder), path, value));
+}, path_1, v));
+
+export const Decoders_fieldValueDecoder = (path_7: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]>) => ((value_6: any): FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]> => andThen<string, Shared_FieldValue_$union>(uncurry3((kind: string): ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]>)) => {
+    switch (kind) {
+        case "single":
+            return (path_2: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]>) => ((value_2: any): FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]> => map_2<Shared_FieldAnswer, Shared_FieldValue_$union>(Shared_FieldValue_Single, uncurry2(Decoders_singleDecoder), path_2, value_2));
+        case "multiple":
+            return (path_3: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]>) => ((value_3: any): FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]> => map_2<[Shared_FieldKey, FSharpSet<Shared_FieldAnswer>], Shared_FieldValue_$union>((tupledArg: [Shared_FieldKey, FSharpSet<Shared_FieldAnswer>]): Shared_FieldValue_$union => Shared_FieldValue_Multiple(tupledArg[1]), uncurry2(Decoders_multipleDecoder), path_3, value_3));
+        case "matrix":
+            return (path_4: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]>) => ((value_4: any): FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]> => map_2<Shared_MatrixAnswer, Shared_FieldValue_$union>(Shared_FieldValue_Matrix, uncurry2(Decoders_matrixDecoder), path_4, value_4));
+        case "pluginData":
+            return (path_5: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]>) => ((value_5: any): FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]> => map_2<FSharpList<Shared_PluginDataProperty>, Shared_FieldValue_$union>(Shared_FieldValue_PluginData, uncurry2(Decoders_pluginDataDecoder), path_5, value_5));
+        default: {
+            let msg: string;
+            const arg_1: string = join(", ", Decoders_validKinds);
+            msg = toText(printf("Unknown kind \'%s\', expected one of: %s"))(kind)(arg_1);
+            return (path_6: string): ((arg0: any) => FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]>) => ((arg20$0040: any): FSharpResult$2_$union<Shared_FieldValue_$union, [string, ErrorReason_$union]> => fail<Shared_FieldValue_$union>(msg, path_6, arg20$0040));
+        }
+    }
+}), (path_1: string, value_1: any): FSharpResult$2_$union<string, [string, ErrorReason_$union]> => field<string>("kind", string, path_1, value_1), path_7, value_6));
+
+export const Decoders_formAnswersDecoder = (path_2: string): ((arg0: any) => FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, [string, ErrorReason_$union]>) => ((value_1: any): FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, [string, ErrorReason_$union]> => andThen<FSharpList<[string, Shared_FieldValue_$union]>, FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>>(uncurry3((pairs: FSharpList<[string, Shared_FieldValue_$union]>): ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, [string, ErrorReason_$union]>)) => {
+    const parsed: FSharpList<FSharpResult$2_$union<[Shared_FieldKey, Shared_FieldValue_$union], string>> = map_1<[string, Shared_FieldValue_$union], FSharpResult$2_$union<[Shared_FieldKey, Shared_FieldValue_$union], string>>((tupledArg: [string, Shared_FieldValue_$union]): FSharpResult$2_$union<[Shared_FieldKey, Shared_FieldValue_$union], string> => {
+        const k: string = tupledArg[0];
+        let matchValue: [boolean, string];
+        let outArg = "00000000-0000-0000-0000-000000000000";
+        matchValue = ([tryParse(k, new FSharpRef<string>((): string => outArg, (v_1: string): void => {
+            outArg = v_1;
+        })), outArg] as [boolean, string]);
+        if (matchValue[0]) {
+            return FSharpResult$2_Ok<[Shared_FieldKey, Shared_FieldValue_$union], string>([new Shared_FieldKey(matchValue[1]), tupledArg[1]] as [Shared_FieldKey, Shared_FieldValue_$union]);
+        }
+        else {
+            return FSharpResult$2_Error<[Shared_FieldKey, Shared_FieldValue_$union], string>(toText(printf("Form answer key \'%s\' is not a valid GUID"))(k));
+        }
+    }, pairs);
+    const errors: FSharpList<string> = choose<FSharpResult$2_$union<[Shared_FieldKey, Shared_FieldValue_$union], string>, string>((_arg: FSharpResult$2_$union<[Shared_FieldKey, Shared_FieldValue_$union], string>): Option<string> => {
+        if (_arg.tag === /* Error */ 1) {
+            return _arg.fields[0];
+        }
+        else {
+            return undefined;
+        }
+    }, parsed);
+    if (isEmpty(errors)) {
+        const output: FSharpMap<Shared_FieldKey, Shared_FieldValue_$union> = ofList<Shared_FieldKey, Shared_FieldValue_$union>(choose<FSharpResult$2_$union<[Shared_FieldKey, Shared_FieldValue_$union], string>, [Shared_FieldKey, Shared_FieldValue_$union]>((_arg_1: FSharpResult$2_$union<[Shared_FieldKey, Shared_FieldValue_$union], string>): Option<[Shared_FieldKey, Shared_FieldValue_$union]> => {
+            if (_arg_1.tag === /* Ok */ 0) {
+                return _arg_1.fields[0];
+            }
+            else {
+                return undefined;
+            }
+        }, parsed), {
+            Compare: compare,
+        });
+        return (arg10$0040: string): ((arg0: any) => FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, [string, ErrorReason_$union]>) => ((arg20$0040: any): FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, [string, ErrorReason_$union]> => succeed<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>>(output, arg10$0040, arg20$0040));
+    }
+    else {
+        const msg: string = join("; ", errors);
+        return (path_1: string): ((arg0: any) => FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, [string, ErrorReason_$union]>) => ((arg20$0040_1: any): FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, [string, ErrorReason_$union]> => fail<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>>(msg, path_1, arg20$0040_1));
+    }
+}), (path: string, value: any): FSharpResult$2_$union<FSharpList<[string, Shared_FieldValue_$union]>, [string, ErrorReason_$union]> => keyValuePairs<Shared_FieldValue_$union>(uncurry2(Decoders_fieldValueDecoder), path, value), path_2, value_1));
+
+/**
+ * Validate and parse a single FieldValue from JSON (discriminated format)
+ */
+export function gateFieldValue(json: string): FSharpResult$2_$union<Shared_FieldValue_$union, FSharpList<Rejection>> {
+    const matchValue: FSharpResult$2_$union<Shared_FieldValue_$union, string> = fromString<Shared_FieldValue_$union>(uncurry2(Decoders_fieldValueDecoder), json);
+    if (matchValue.tag === /* Error */ 1) {
+        return FSharpResult$2_Error<Shared_FieldValue_$union, FSharpList<Rejection>>(singleton(new Rejection(RejectionPath_Root(), RejectionReason_NotJson(matchValue.fields[0]), (json.length > 200) ? (json.slice(undefined, 199 + 1) + "…") : json)));
+    }
+    else {
+        return FSharpResult$2_Ok<Shared_FieldValue_$union, FSharpList<Rejection>>(matchValue.fields[0]);
+    }
+}
+
+/**
+ * Validate and parse a full form's answers from JSON (Record<fieldKey, discriminated value>)
+ */
+export function gateFormAnswers(json: string): FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, FSharpList<Rejection>> {
+    const matchValue: FSharpResult$2_$union<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, string> = fromString<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>>(uncurry2(Decoders_formAnswersDecoder), json);
+    if (matchValue.tag === /* Error */ 1) {
+        return FSharpResult$2_Error<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, FSharpList<Rejection>>(singleton(new Rejection(RejectionPath_Root(), RejectionReason_NotJson(matchValue.fields[0]), (json.length > 500) ? (json.slice(undefined, 499 + 1) + "…") : json)));
+    }
+    else {
+        return FSharpResult$2_Ok<FSharpMap<Shared_FieldKey, Shared_FieldValue_$union>, FSharpList<Rejection>>(matchValue.fields[0]);
+    }
+}
+
+/**
+ * Validate a single field key string is a valid GUID
+ */
+export function gateFieldKey(raw: string): FSharpResult$2_$union<Shared_FieldKey, FSharpList<Rejection>> {
+    let matchValue: [boolean, string];
+    let outArg = "00000000-0000-0000-0000-000000000000";
+    matchValue = ([tryParse(raw, new FSharpRef<string>((): string => outArg, (v: string): void => {
+        outArg = v;
+    })), outArg] as [boolean, string]);
+    if (matchValue[0]) {
+        return FSharpResult$2_Ok<Shared_FieldKey, FSharpList<Rejection>>(new Shared_FieldKey(matchValue[1]));
+    }
+    else {
+        return FSharpResult$2_Error<Shared_FieldKey, FSharpList<Rejection>>(singleton(new Rejection(RejectionPath_Root(), RejectionReason_InvalidGuid("fieldKey", raw), raw)));
+    }
+}
+
+/**
+ * Try to decode an object (from TS) to FieldValue using the discriminated format.
+ * Returns Some when objectValue has kind and decodes successfully; None for flat format or decode failure.
+ * Handles both JS objects (Fable) and JSON strings (.NET server via jsonValueToObj).
+ */
+export function tryDecodeFieldValueFromObject(objValue: any): Option<Shared_FieldValue_$union> {
+    let s: string, s_1: string;
+    if (objValue == null) {
+        return undefined;
+    }
+    else {
+        try {
+            const matchValue: FSharpResult$2_$union<Shared_FieldValue_$union, string> = fromString<Shared_FieldValue_$union>(uncurry2(Decoders_fieldValueDecoder), (typeof objValue === "string") ? (((s = (objValue as string), s.trimStart().startsWith("{"))) ? ((s_1 = (objValue as string), s_1)) : toString(0, Auto_generateBoxedEncoder_437914C6(obj_type, undefined, undefined, undefined)(objValue))) : toString(0, Auto_generateBoxedEncoder_437914C6(obj_type, undefined, undefined, undefined)(objValue)));
+            return (matchValue.tag === /* Error */ 1) ? undefined : matchValue.fields[0];
+        }
+        catch (matchValue_1: any) {
+            return undefined;
+        }
+    }
+}
+
+//# sourceMappingURL=FormAnswersGate.ts.map