@nfdi4plants/arctrl 1.1.0 → 2.0.0-alpha.1

package/Json/Assay.js

@@ -0,0 +1,202 @@
+import { empty, singleton, ofArray, choose } from "../fable_modules/fable-library-js.4.16.0/List.js";
+import { equals } from "../fable_modules/fable-library-js.4.16.0/Util.js";
+import { Json } from "../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { defaultSpaces, tryIncludeList, tryIncludeSeq, tryInclude } from "./Encode.js";
+import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ISAJson_encoder, OntologyAnnotation_ROCrate_decoderDefinedTerm, OntologyAnnotation_ROCrate_decoderPropertyValue, OntologyAnnotation_ROCrate_encoderDefinedTerm, OntologyAnnotation_ROCrate_encoderPropertyValue, OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "./OntologyAnnotation.js";
+import { ArcTable_decoderCompressed, ArcTable_encoderCompressed, ArcTable_decoder, ArcTable_encoder } from "./Table/ArcTable.js";
+import { Person_ROCrate_decoder, Person_ROCrate_encoder, Person_decoder, Person_encoder } from "./Person.js";
+import { Comment_ISAJson_decoder, Comment_ISAJson_encoder, Comment_ROCrate_decoder, Comment_ROCrate_encoder, Comment_decoder, Comment_encoder } from "./Comment.js";
+import { map as map_1, list as list_2, string, object } from "../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { ArcAssay } from "../Core/ArcTypes.js";
+import { bind, map, defaultArg, unwrap } from "../fable_modules/fable-library-js.4.16.0/Option.js";
+import { Decode_objectNoAdditionalProperties, Decode_resizeArray } from "./Decode.js";
+import { toFail, printf, toText, replace } from "../fable_modules/fable-library-js.4.16.0/String.js";
+import { Assay_tryIdentifierFromFileName, createMissingIdentifier, Assay_fileNameFromIdentifier } from "../Core/Helper/Identifier.js";
+import { JsonTypes_decomposeTechnologyPlatform, JsonTypes_composeTechnologyPlatform, ARCtrl_ArcTables__ArcTables_fromProcesses_Static_62A3309D, ARCtrl_ArcTables__ArcTables_GetProcesses } from "../Core/Conversion.js";
+import { getUnits, getCharacteristics, getData } from "../Core/Process/ProcessSequence.js";
+import { list as list_1 } from "../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
+import { Data_ISAJson_encoder, Data_ROCrate_encoder } from "./Process/Data.js";
+import { Process_ISAJson_decoder, Process_ISAJson_encoder, Process_ROCrate_decoder, Process_ROCrate_encoder } from "./Process/Process.js";
+import { context_jsonvalue } from "./context/rocrate/isa_assay_context.js";
+import { encoder } from "./Process/AssayMaterials.js";
+import { Option_fromValueWithDefault } from "../Core/Helper/Collections.js";
+import { MaterialAttribute_ISAJson_encoder } from "./Process/MaterialAttribute.js";
+import { fromString } from "../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+import { toString } from "../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
+import { encode, decode } from "./Table/Compression.js";
+
+export function Assay_encoder(assay) {
+    return new Json(5, [choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, new Json(3, []))) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, ofArray([["Identifier", new Json(0, [assay.Identifier])], tryInclude("MeasurementType", OntologyAnnotation_encoder, assay.MeasurementType), tryInclude("TechnologyType", OntologyAnnotation_encoder, assay.TechnologyType), tryInclude("TechnologyPlatform", OntologyAnnotation_encoder, assay.TechnologyPlatform), tryIncludeSeq("Tables", ArcTable_encoder, assay.Tables), tryIncludeSeq("Performers", Person_encoder, assay.Performers), tryIncludeSeq("Comments", Comment_encoder, assay.Comments)]))]);
+}
+
+export const Assay_decoder = object((get$) => {
+    let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, objectArg_4, arg_11, objectArg_5, arg_13, objectArg_6;
+    return ArcAssay.create((objectArg = get$.Required, objectArg.Field("Identifier", string)), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("MeasurementType", OntologyAnnotation_decoder))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("TechnologyType", OntologyAnnotation_decoder))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("TechnologyPlatform", OntologyAnnotation_decoder))), unwrap((arg_9 = Decode_resizeArray(ArcTable_decoder), (objectArg_4 = get$.Optional, objectArg_4.Field("Tables", arg_9)))), unwrap((arg_11 = Decode_resizeArray(Person_decoder), (objectArg_5 = get$.Optional, objectArg_5.Field("Performers", arg_11)))), unwrap((arg_13 = Decode_resizeArray(Comment_decoder), (objectArg_6 = get$.Optional, objectArg_6.Field("Comments", arg_13)))));
+});
+
+export function Assay_encoderCompressed(stringTable, oaTable, cellTable, assay) {
+    return new Json(5, [choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, new Json(3, []))) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, ofArray([["Identifier", new Json(0, [assay.Identifier])], tryInclude("MeasurementType", OntologyAnnotation_encoder, assay.MeasurementType), tryInclude("TechnologyType", OntologyAnnotation_encoder, assay.TechnologyType), tryInclude("TechnologyPlatform", OntologyAnnotation_encoder, assay.TechnologyPlatform), tryIncludeSeq("Tables", (table) => ArcTable_encoderCompressed(stringTable, oaTable, cellTable, table), assay.Tables), tryIncludeSeq("Performers", Person_encoder, assay.Performers), tryIncludeSeq("Comments", Comment_encoder, assay.Comments)]))]);
+}
+
+export function Assay_decoderCompressed(stringTable, oaTable, cellTable) {
+    return object((get$) => {
+        let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, objectArg_4, arg_11, objectArg_5, arg_13, objectArg_6;
+        return ArcAssay.create((objectArg = get$.Required, objectArg.Field("Identifier", string)), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("MeasurementType", OntologyAnnotation_decoder))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("TechnologyType", OntologyAnnotation_decoder))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("TechnologyPlatform", OntologyAnnotation_decoder))), unwrap((arg_9 = Decode_resizeArray(ArcTable_decoderCompressed(stringTable, oaTable, cellTable)), (objectArg_4 = get$.Optional, objectArg_4.Field("Tables", arg_9)))), unwrap((arg_11 = Decode_resizeArray(Person_decoder), (objectArg_5 = get$.Optional, objectArg_5.Field("Performers", arg_11)))), unwrap((arg_13 = Decode_resizeArray(Comment_decoder), (objectArg_6 = get$.Optional, objectArg_6.Field("Comments", arg_13)))));
+    });
+}
+
+export function Assay_ROCrate_genID(a) {
+    const matchValue = a.Identifier;
+    if (matchValue === "") {
+        return "#EmptyAssay";
+    }
+    else {
+        return `#assay/${replace(matchValue, " ", "_")}`;
+    }
+}
+
+export function Assay_ROCrate_encoder(studyName, a) {
+    let assayName;
+    const fileName = Assay_fileNameFromIdentifier(a.Identifier);
+    const processes = ARCtrl_ArcTables__ArcTables_GetProcesses(a);
+    const dataFiles = getData(processes);
+    return new Json(5, [choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, new Json(3, []))) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, ofArray([["@id", new Json(0, [Assay_ROCrate_genID(a)])], ["@type", list_1(singleton(new Json(0, ["Assay"])))], ["additionalType", new Json(0, ["Assay"])], ["identifier", new Json(0, [a.Identifier])], ["filename", new Json(0, [fileName])], tryInclude("measurementType", OntologyAnnotation_ROCrate_encoderPropertyValue, a.MeasurementType), tryInclude("technologyType", OntologyAnnotation_ROCrate_encoderDefinedTerm, a.TechnologyType), tryInclude("technologyPlatform", OntologyAnnotation_ROCrate_encoderDefinedTerm, a.TechnologyPlatform), tryIncludeSeq("performers", Person_ROCrate_encoder, a.Performers), tryIncludeList("dataFiles", Data_ROCrate_encoder, dataFiles), tryIncludeList("processSequence", (assayName = a.Identifier, (oa_5) => Process_ROCrate_encoder(studyName, assayName, oa_5)), processes), tryIncludeSeq("comments", Comment_ROCrate_encoder, a.Comments), ["@context", context_jsonvalue]]))]);
+}
+
+export const Assay_ROCrate_decoder = object((get$) => {
+    let objectArg, arg_3, objectArg_1, objectArg_2, objectArg_3, objectArg_4, arg_12, objectArg_5, arg_14, objectArg_6;
+    const identifier = defaultArg((objectArg = get$.Optional, objectArg.Field("identifier", string)), createMissingIdentifier());
+    const tables = map((arg_4) => {
+        const a = ARCtrl_ArcTables__ArcTables_fromProcesses_Static_62A3309D(arg_4);
+        return a.Tables;
+    }, (arg_3 = list_2(Process_ROCrate_decoder), (objectArg_1 = get$.Optional, objectArg_1.Field("processSequence", arg_3))));
+    return new ArcAssay(identifier, unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("measurementType", OntologyAnnotation_ROCrate_decoderPropertyValue))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("technologyType", OntologyAnnotation_ROCrate_decoderDefinedTerm))), unwrap((objectArg_4 = get$.Optional, objectArg_4.Field("technologyPlatform", OntologyAnnotation_ROCrate_decoderDefinedTerm))), unwrap(tables), unwrap((arg_12 = Decode_resizeArray(Person_ROCrate_decoder), (objectArg_5 = get$.Optional, objectArg_5.Field("performers", arg_12)))), unwrap((arg_14 = Decode_resizeArray(Comment_ROCrate_decoder), (objectArg_6 = get$.Optional, objectArg_6.Field("comments", arg_14)))));
+});
+
+export function Assay_ISAJson_encoder(a) {
+    const fileName = Assay_fileNameFromIdentifier(a.Identifier);
+    const processes = ARCtrl_ArcTables__ArcTables_GetProcesses(a);
+    const dataFiles = getData(processes);
+    const characteristics = getCharacteristics(processes);
+    const units = getUnits(processes);
+    return new Json(5, [choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, new Json(3, []))) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, ofArray([["filename", new Json(0, [fileName])], tryInclude("measurementType", OntologyAnnotation_ISAJson_encoder, a.MeasurementType), tryInclude("technologyType", OntologyAnnotation_ISAJson_encoder, a.TechnologyType), tryInclude("technologyPlatform", (value_1) => (new Json(0, [value_1])), map(JsonTypes_composeTechnologyPlatform, a.TechnologyPlatform)), tryIncludeList("dataFiles", Data_ISAJson_encoder, dataFiles), tryInclude("materials", encoder, Option_fromValueWithDefault(empty(), processes)), tryIncludeList("characteristicCategories", MaterialAttribute_ISAJson_encoder, characteristics), tryIncludeList("unitCategories", OntologyAnnotation_ISAJson_encoder, units), tryIncludeList("processSequence", Process_ISAJson_encoder, processes), tryIncludeSeq("comments", Comment_ISAJson_encoder, a.Comments)]))]);
+}
+
+export const Assay_ISAJson_allowedFields = ofArray(["@id", "filename", "measurementType", "technologyType", "technologyPlatform", "dataFiles", "materials", "characteristicCategories", "unitCategories", "processSequence", "comments", "@type", "@context"]);
+
+export const Assay_ISAJson_decoder = Decode_objectNoAdditionalProperties(Assay_ISAJson_allowedFields, (get$) => {
+    let objectArg, arg_3, objectArg_1, objectArg_2, objectArg_3, arg_10, objectArg_4, arg_12, objectArg_5;
+    const identifier = defaultArg(bind(Assay_tryIdentifierFromFileName, (objectArg = get$.Optional, objectArg.Field("filename", string))), createMissingIdentifier());
+    const tables = map((arg_4) => {
+        const a = ARCtrl_ArcTables__ArcTables_fromProcesses_Static_62A3309D(arg_4);
+        return a.Tables;
+    }, (arg_3 = list_2(Process_ISAJson_decoder), (objectArg_1 = get$.Optional, objectArg_1.Field("processSequence", arg_3))));
+    return new ArcAssay(identifier, unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("measurementType", OntologyAnnotation_ISAJson_decoder))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("technologyType", OntologyAnnotation_ISAJson_decoder))), unwrap((arg_10 = map_1(JsonTypes_decomposeTechnologyPlatform, string), (objectArg_4 = get$.Optional, objectArg_4.Field("technologyPlatform", arg_10)))), unwrap(tables), void 0, unwrap((arg_12 = Decode_resizeArray(Comment_ISAJson_decoder), (objectArg_5 = get$.Optional, objectArg_5.Field("comments", arg_12)))));
+});
+
+export function ARCtrl_ArcAssay__ArcAssay_fromJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(Assay_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_ArcAssay__ArcAssay_toJsonString_Static_71136F3F(spaces) {
+    return (obj) => {
+        const value = Assay_encoder(obj);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_ArcAssay__ArcAssay_fromCompressedJsonString_Static_Z721C83C5(s) {
+    try {
+        const matchValue = fromString(decode(Assay_decoderCompressed), s);
+        if (matchValue.tag === 1) {
+            throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+        }
+        else {
+            return matchValue.fields[0];
+        }
+    }
+    catch (e_1) {
+        const arg_1 = e_1.message;
+        return toFail(printf("Error. Unable to parse json string to ArcStudy: %s"))(arg_1);
+    }
+}
+
+export function ARCtrl_ArcAssay__ArcAssay_toCompressedJsonString_Static_71136F3F(spaces) {
+    return (obj) => toString(defaultArg(spaces, 0), encode(Assay_encoderCompressed, obj));
+}
+
+export function ARCtrl_ArcAssay__ArcAssay_fromROCrateJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(Assay_ROCrate_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+/**
+ * exports in json-ld format
+ */
+export function ARCtrl_ArcAssay__ArcAssay_toROCrateJsonString_Static_5CABCA47(studyName, spaces) {
+    return (obj) => {
+        const value = Assay_ROCrate_encoder(studyName, obj);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_ArcAssay__ArcAssay_toISAJsonString_Static_71136F3F(spaces) {
+    return (obj) => {
+        const value = Assay_ISAJson_encoder(obj);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_ArcAssay__ArcAssay_fromISAJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(Assay_ISAJson_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+

package/Json/Comment.js

@@ -0,0 +1,130 @@
+import { ofArray, choose } from "../fable_modules/fable-library-js.4.16.0/List.js";
+import { equals } from "../fable_modules/fable-library-js.4.16.0/Util.js";
+import { Json } from "../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { defaultSpaces, tryInclude } from "./Encode.js";
+import { map, string, object } from "../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { Comment$ } from "../Core/Comment.js";
+import { value as value_6, unwrap } from "../fable_modules/fable-library-js.4.16.0/Option.js";
+import { printf, toText, replace } from "../fable_modules/fable-library-js.4.16.0/String.js";
+import { context_jsonvalue } from "./context/rocrate/isa_comment_context.js";
+import { toString } from "../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
+import { fromString } from "../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+
+export function Comment_encoder(comment) {
+    return new Json(5, [choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, new Json(3, []))) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, ofArray([tryInclude("name", (value) => (new Json(0, [value])), comment.Name), tryInclude("value", (value_2) => (new Json(0, [value_2])), comment.Value)]))]);
+}
+
+export const Comment_decoder = object((get$) => {
+    let objectArg, objectArg_1;
+    return new Comment$(unwrap((objectArg = get$.Optional, objectArg.Field("name", string))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("value", string))));
+});
+
+export function Comment_ROCrate_genID(c) {
+    const matchValue = c.Name;
+    if (matchValue == null) {
+        return "#EmptyComment";
+    }
+    else {
+        const n = matchValue;
+        const v = (c.Value != null) ? ("_" + replace(value_6(c.Value), " ", "_")) : "";
+        return ("#Comment_" + replace(n, " ", "_")) + v;
+    }
+}
+
+export function Comment_ROCrate_encoder(comment) {
+    return new Json(5, [choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, new Json(3, []))) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, ofArray([["@id", new Json(0, [Comment_ROCrate_genID(comment)])], ["@type", new Json(0, ["Comment"])], tryInclude("name", (value_2) => (new Json(0, [value_2])), comment.Name), tryInclude("value", (value_4) => (new Json(0, [value_4])), comment.Value), ["@context", context_jsonvalue]]))]);
+}
+
+export const Comment_ROCrate_decoder = object((get$) => {
+    let objectArg, objectArg_1;
+    return new Comment$(unwrap((objectArg = get$.Optional, objectArg.Field("name", string))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("value", string))));
+});
+
+export function Comment_ROCrate_encoderDisambiguatingDescription(comment) {
+    return new Json(0, [toString(0, Comment_ROCrate_encoder(comment))]);
+}
+
+export const Comment_ROCrate_decoderDisambiguatingDescription = map((s) => {
+    const matchValue = fromString(Comment_ROCrate_decoder, s.trim());
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}, string);
+
+export const Comment_ISAJson_encoder = Comment_encoder;
+
+export const Comment_ISAJson_decoder = Comment_decoder;
+
+export function ARCtrl_Comment__Comment_fromJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(Comment_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_Comment__Comment_toJsonString_Static_71136F3F(spaces) {
+    return (c) => {
+        const value = Comment_encoder(c);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_Comment__Comment_fromROCrateJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(Comment_ROCrate_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+/**
+ * exports in json-ld format
+ */
+export function ARCtrl_Comment__Comment_toROCrateJsonString_Static_71136F3F(spaces) {
+    return (c) => {
+        const value = Comment_ROCrate_encoder(c);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_Comment__Comment_toISAJsonString_Static_71136F3F(spaces) {
+    return (c) => {
+        const value = Comment_ISAJson_encoder(c);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_Comment__Comment_fromISAJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(Comment_ISAJson_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+

package/Json/ConverterOptions.js

@@ -0,0 +1,18 @@
+import { Union } from "../fable_modules/fable-library-js.4.16.0/Types.js";
+import { union_type } from "../fable_modules/fable-library-js.4.16.0/Reflection.js";
+
+export class ConverterOptions extends Union {
+    constructor(tag, fields) {
+        super();
+        this.tag = tag;
+        this.fields = fields;
+    }
+    cases() {
+        return ["ARCtrl", "ROCrate", "ISAJson"];
+    }
+}
+
+export function ConverterOptions_$reflection() {
+    return union_type("ARCtrl.Json.ConverterOptions", [], ConverterOptions, () => [[], [], []]);
+}
+

package/Json/Decode.js

@@ -0,0 +1,128 @@
+import { helpers as helpers_1 } from "../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+import { Getters$2__get_Errors, Getters$2_$ctor_Z4BE6C149, string } from "../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { FSharpResult$2 } from "../fable_modules/fable-library-js.4.16.0/Result.js";
+import { printf, toText } from "../fable_modules/fable-library-js.4.16.0/String.js";
+import { ErrorReason$1 } from "../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { exists } from "../fable_modules/fable-library-js.4.16.0/Seq.js";
+import { ofSeq, contains } from "../fable_modules/fable-library-js.4.16.0/Set.js";
+import { int32ToString, comparePrimitives } from "../fable_modules/fable-library-js.4.16.0/Util.js";
+import { head, length, isEmpty } from "../fable_modules/fable-library-js.4.16.0/List.js";
+import { fold } from "../fable_modules/fable-library-js.4.16.0/Array.js";
+import { tryParse, minValue } from "../fable_modules/fable-library-js.4.16.0/Date.js";
+import { FSharpRef } from "../fable_modules/fable-library-js.4.16.0/Types.js";
+
+export function Helpers_prependPath(path, err_, err__1) {
+    const err = [err_, err__1];
+    return [path + err[0], err[1]];
+}
+
+export const Decode_helpers = helpers_1;
+
+export function Decode_isURI(s) {
+    return true;
+}
+
+export const Decode_uri = {
+    Decode(s, json) {
+        const matchValue = string.Decode(s, json);
+        if (matchValue.tag === 1) {
+            return new FSharpResult$2(1, [matchValue.fields[0]]);
+        }
+        else if (Decode_isURI(matchValue.fields[0])) {
+            return new FSharpResult$2(0, [matchValue.fields[0]]);
+        }
+        else {
+            const s_3 = matchValue.fields[0];
+            return new FSharpResult$2(1, [[s_3, new ErrorReason$1(6, [toText(printf("Expected URI, got %s"))(s_3)])]]);
+        }
+    },
+};
+
+export function Decode_hasUnknownFields(helpers, knownFields, json) {
+    return exists((x) => !contains(x, knownFields), helpers.getProperties(json));
+}
+
+export function Decode_objectNoAdditionalProperties(allowedProperties, builder) {
+    const allowedProperties_1 = ofSeq(allowedProperties, {
+        Compare: comparePrimitives,
+    });
+    return {
+        Decode(helpers, value) {
+            const getters = Getters$2_$ctor_Z4BE6C149(helpers, value);
+            if (Decode_hasUnknownFields(helpers, allowedProperties_1, value)) {
+                return new FSharpResult$2(1, [["Unknown fields in object", new ErrorReason$1(0, ["", value])]]);
+            }
+            else {
+                const result = builder(getters);
+                const matchValue = Getters$2__get_Errors(getters);
+                if (!isEmpty(matchValue)) {
+                    const errors = matchValue;
+                    return (length(errors) > 1) ? (new FSharpResult$2(1, [["", new ErrorReason$1(7, [errors])]])) : (new FSharpResult$2(1, [head(matchValue)]));
+                }
+                else {
+                    return new FSharpResult$2(0, [result]);
+                }
+            }
+        },
+    };
+}
+
+export function Decode_noAdditionalProperties(allowedProperties, decoder) {
+    const allowedProperties_1 = ofSeq(allowedProperties, {
+        Compare: comparePrimitives,
+    });
+    return {
+        Decode(helpers, value) {
+            const getters = Getters$2_$ctor_Z4BE6C149(helpers, value);
+            return Decode_hasUnknownFields(helpers, allowedProperties_1, value) ? (new FSharpResult$2(1, [["Unknown fields in object", new ErrorReason$1(0, ["", value])]])) : decoder.Decode(helpers, value);
+        },
+    };
+}
+
+export function Decode_resizeArray(decoder) {
+    return {
+        Decode(helpers, value) {
+            if (helpers.isArray(value)) {
+                let i = -1;
+                return fold((acc, value_1) => {
+                    let tupledArg;
+                    i = ((i + 1) | 0);
+                    if (acc.tag === 0) {
+                        const acc_1 = acc.fields[0];
+                        const matchValue = decoder.Decode(helpers, value_1);
+                        if (matchValue.tag === 0) {
+                            void (acc_1.push(matchValue.fields[0]));
+                            return new FSharpResult$2(0, [acc_1]);
+                        }
+                        else {
+                            return new FSharpResult$2(1, [(tupledArg = matchValue.fields[0], Helpers_prependPath((".[" + int32ToString(i)) + "]", tupledArg[0], tupledArg[1]))]);
+                        }
+                    }
+                    else {
+                        return acc;
+                    }
+                }, new FSharpResult$2(0, [[]]), helpers.asArray(value));
+            }
+            else {
+                return new FSharpResult$2(1, [["", new ErrorReason$1(0, ["an array", value])]]);
+            }
+        },
+    };
+}
+
+export const Decode_datetime = {
+    Decode(helpers, value) {
+        if (helpers.isString(value)) {
+            let matchValue;
+            let outArg = minValue();
+            matchValue = [tryParse(helpers.asString(value), new FSharpRef(() => outArg, (v) => {
+                outArg = v;
+            })), outArg];
+            return matchValue[0] ? (new FSharpResult$2(0, [matchValue[1]])) : (new FSharpResult$2(1, [["", new ErrorReason$1(0, ["a datetime", value])]]));
+        }
+        else {
+            return new FSharpResult$2(1, [["", new ErrorReason$1(0, ["a datetime", value])]]);
+        }
+    },
+};
+

package/Json/Encode.js

@@ -0,0 +1,45 @@
+import { defaultArg, value as value_2 } from "../fable_modules/fable-library-js.4.16.0/Option.js";
+import { Json } from "../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { map, isEmpty } from "../fable_modules/fable-library-js.4.16.0/Seq.js";
+import { list as list_1, seq } from "../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
+import { item, map as map_1 } from "../fable_modules/fable-library-js.4.16.0/Array.js";
+import { map as map_2, isEmpty as isEmpty_1 } from "../fable_modules/fable-library-js.4.16.0/List.js";
+import { toString } from "../fable_modules/fable-library-js.4.16.0/Date.js";
+
+/**
+ * Try to encode the given object using the given encoder, or return Encode.nil if the object is null
+ */
+export function tryInclude(name, encoder, value) {
+    return [name, (value != null) ? encoder(value_2(value)) : (new Json(3, []))];
+}
+
+/**
+ * Try to encode the given object using the given encoder, or return Encode.nil if the object is null
+ */
+export function tryIncludeSeq(name, encoder, value) {
+    return [name, isEmpty(value) ? (new Json(3, [])) : seq(map(encoder, value))];
+}
+
+export function tryIncludeArray(name, encoder, value) {
+    return [name, (value.length === 0) ? (new Json(3, [])) : (new Json(6, [map_1(encoder, value)]))];
+}
+
+export function tryIncludeList(name, encoder, value) {
+    return [name, isEmpty_1(value) ? (new Json(3, [])) : list_1(map_2(encoder, value))];
+}
+
+export function tryIncludeListOpt(name, encoder, value) {
+    let o;
+    return [name, (value != null) ? ((o = value, isEmpty_1(o) ? (new Json(3, [])) : list_1(map_2(encoder, o)))) : (new Json(3, []))];
+}
+
+export const DefaultSpaces = 0;
+
+export function defaultSpaces(spaces) {
+    return defaultArg(spaces, DefaultSpaces);
+}
+
+export function dateTime(d) {
+    return new Json(0, [item(0, toString(d, "O", {}).split("+"))]);
+}
+