@nfdi4plants/arctrl 1.1.0 → 2.0.0-alpha.1

package/ISA/ISA.Json/Investigation.js

@@ -1,114 +0,0 @@
-import { replace } from "../../fable_modules/fable-library.4.5.0/String.js";
-import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
-import { toString, nil, object as object_24 } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
-import { empty as empty_1, choose } from "../../fable_modules/fable-library.4.5.0/List.js";
-import { uncurry2, equals } from "../../fable_modules/fable-library.4.5.0/Util.js";
-import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library.4.5.0/Seq.js";
-import { ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
-import { tryInclude } from "./GEncode.js";
-import { OntologySourceReference_decoder, OntologySourceReference_encoder } from "./Ontology.js";
-import { decoder as decoder_6, encoder as encoder_1 } from "./Publication.js";
-import { decoder as decoder_7, encoder as encoder_2 } from "./Person.js";
-import { Study_decoder, Study_encoder } from "./Study.js";
-import { decoder as decoder_8, encoder as encoder_3 } from "./Comment.js";
-import { list as list_1, string, object as object_25 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { Investigation } from "../ISA/JsonTypes/Investigation.js";
-import { fromJsonString as fromJsonString_1 } from "./Decode.js";
-
-export function genID(i) {
-    const matchValue = i.ID;
-    if (matchValue == null) {
-        const matchValue_1 = i.FileName;
-        if (matchValue_1 == null) {
-            const matchValue_2 = i.Identifier;
-            if (matchValue_2 == null) {
-                const matchValue_3 = i.Title;
-                if (matchValue_3 == null) {
-                    return "#EmptyStudy";
-                }
-                else {
-                    return "#Study_" + replace(matchValue_3, " ", "_");
-                }
-            }
-            else {
-                return "#Study_" + replace(matchValue_2, " ", "_");
-            }
-        }
-        else {
-            return "#Study_" + replace(matchValue_1, " ", "_");
-        }
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function encoder(options, oa) {
-    return object_24(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
-            let s_1;
-            const value_3 = value_2;
-            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
-        }, oa["ID"])), delay(() => {
-            let value_5, s_2;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Investigation", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("filename", (value_7) => {
-                let s_3;
-                const value_8 = value_7;
-                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
-            }, oa["FileName"])), delay(() => append(singleton(tryInclude("identifier", (value_10) => {
-                let s_4;
-                const value_11 = value_10;
-                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
-            }, oa["Identifier"])), delay(() => append(singleton(tryInclude("title", (value_13) => {
-                let s_5;
-                const value_14 = value_13;
-                return (typeof value_14 === "string") ? ((s_5 = value_14, s_5)) : nil;
-            }, oa["Title"])), delay(() => append(singleton(tryInclude("description", (value_16) => {
-                let s_6;
-                const value_17 = value_16;
-                return (typeof value_17 === "string") ? ((s_6 = value_17, s_6)) : nil;
-            }, oa["Description"])), delay(() => append(singleton(tryInclude("submissionDate", (value_19) => {
-                let s_7;
-                const value_20 = value_19;
-                return (typeof value_20 === "string") ? ((s_7 = value_20, s_7)) : nil;
-            }, oa["SubmissionDate"])), delay(() => append(singleton(tryInclude("publicReleaseDate", (value_22) => {
-                let s_8;
-                const value_23 = value_22;
-                return (typeof value_23 === "string") ? ((s_8 = value_23, s_8)) : nil;
-            }, oa["PublicReleaseDate"])), delay(() => append(singleton(tryInclude("ontologySourceReferences", (osr) => OntologySourceReference_encoder(options, osr), oa["OntologySourceReferences"])), delay(() => append(singleton(tryInclude("publications", (oa_1) => encoder_1(options, oa_1), oa["Publications"])), delay(() => append(singleton(tryInclude("people", (oa_2) => encoder_2(options, oa_2), oa["Contacts"])), delay(() => append(singleton(tryInclude("studies", (oa_3) => Study_encoder(options, oa_3), oa["Studies"])), delay(() => singleton(tryInclude("comments", (comment) => encoder_3(options, comment), oa["Comments"]))))))))))))))))))))))));
-        }));
-    }))));
-}
-
-export function decoder(options) {
-    return (path_12) => ((v) => object_25((get$) => {
-        let objectArg, objectArg_1, objectArg_2, objectArg_3, objectArg_4, objectArg_5, objectArg_6, arg_15, decoder_1, objectArg_7, arg_17, decoder_2, objectArg_8, arg_19, decoder_3, objectArg_9, arg_21, decoder_4, objectArg_10, arg_23, decoder_5, objectArg_11;
-        return new Investigation((objectArg = get$.Optional, objectArg.Field("@id", string)), (objectArg_1 = get$.Optional, objectArg_1.Field("filename", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("identifier", string)), (objectArg_3 = get$.Optional, objectArg_3.Field("title", string)), (objectArg_4 = get$.Optional, objectArg_4.Field("description", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("submissionDate", string)), (objectArg_6 = get$.Optional, objectArg_6.Field("publicReleaseDate", string)), (arg_15 = ((decoder_1 = OntologySourceReference_decoder(options), (path_7) => ((value_7) => list_1(uncurry2(decoder_1), path_7, value_7)))), (objectArg_7 = get$.Optional, objectArg_7.Field("ontologySourceReferences", uncurry2(arg_15)))), (arg_17 = ((decoder_2 = decoder_6(options), (path_8) => ((value_8) => list_1(uncurry2(decoder_2), path_8, value_8)))), (objectArg_8 = get$.Optional, objectArg_8.Field("publications", uncurry2(arg_17)))), (arg_19 = ((decoder_3 = decoder_7(options), (path_9) => ((value_9) => list_1(uncurry2(decoder_3), path_9, value_9)))), (objectArg_9 = get$.Optional, objectArg_9.Field("people", uncurry2(arg_19)))), (arg_21 = ((decoder_4 = Study_decoder(options), (path_10) => ((value_10) => list_1(uncurry2(decoder_4), path_10, value_10)))), (objectArg_10 = get$.Optional, objectArg_10.Field("studies", uncurry2(arg_21)))), (arg_23 = ((decoder_5 = decoder_8(options), (path_11) => ((value_11) => list_1(uncurry2(decoder_5), path_11, value_11)))), (objectArg_11 = get$.Optional, objectArg_11.Field("comments", uncurry2(arg_23)))), empty_1());
-    }, path_12, v));
-}
-
-export function fromJsonString(s) {
-    return fromJsonString_1(uncurry2(decoder(ConverterOptions_$ctor())), s);
-}
-
-export function toJsonString(p) {
-    return toString(2, encoder(ConverterOptions_$ctor(), p));
-}
-
-/**
- * exports in json-ld format
- */
-export function toStringLD(i) {
-    let returnVal;
-    return toString(2, encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), i));
-}
-

package/ISA/ISA.Json/Material.js

@@ -1,233 +0,0 @@
-import { MaterialType } from "../ISA/JsonTypes/MaterialType.js";
-import { toString, object as object_10, nil } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
-import { list as list_1, object as object_11, string } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { FSharpResult$2 } from "../../fable_modules/fable-library.4.5.0/Choice.js";
-import { ErrorReason } from "../../fable_modules/Thoth.Json.10.1.0/Types.fs.js";
-import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
-import { ofArray, choose } from "../../fable_modules/fable-library.4.5.0/List.js";
-import { uncurry2, equals } from "../../fable_modules/fable-library.4.5.0/Util.js";
-import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library.4.5.0/Seq.js";
-import { ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
-import { tryInclude } from "./GEncode.js";
-import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "./Ontology.js";
-import { hasUnknownFields, fromJsonString, uri } from "./Decode.js";
-import { MaterialAttribute } from "../ISA/JsonTypes/MaterialAttribute.js";
-import { Value_decoder, Value_encoder } from "./Factor.js";
-import { MaterialAttributeValue } from "../ISA/JsonTypes/MaterialAttributeValue.js";
-import { replace } from "../../fable_modules/fable-library.4.5.0/String.js";
-import { Material } from "../ISA/JsonTypes/Material.js";
-
-export function MaterialType_encoder(options, value) {
-    if (value instanceof MaterialType) {
-        if (value.tag === 1) {
-            return "Labeled Extract Name";
-        }
-        else {
-            return "Extract Name";
-        }
-    }
-    else {
-        return nil;
-    }
-}
-
-export function MaterialType_decoder(options, s, json) {
-    const matchValue = string(s, json);
-    if (matchValue.tag === 1) {
-        return new FSharpResult$2(1, [matchValue.fields[0]]);
-    }
-    else {
-        switch (matchValue.fields[0]) {
-            case "Extract Name":
-                return new FSharpResult$2(0, [new MaterialType(0, [])]);
-            case "Labeled Extract Name":
-                return new FSharpResult$2(0, [new MaterialType(1, [])]);
-            default: {
-                const s_1 = matchValue.fields[0];
-                return new FSharpResult$2(1, [[`Could not parse ${s_1}No other value than "Extract Name" or "Labeled Extract Name" allowed for materialtype`, new ErrorReason(0, [s_1, nil])]]);
-            }
-        }
-    }
-}
-
-export function MaterialAttribute_genID(m) {
-    const matchValue = m.ID;
-    if (matchValue == null) {
-        return "#EmptyMaterialAttribute";
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function MaterialAttribute_encoder(options, oa) {
-    return object_10(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = MaterialAttribute_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
-            let s_1;
-            const value_3 = value_2;
-            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
-        }, oa["ID"])), delay(() => {
-            let value_5, s_2;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "MaterialAttribute", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => singleton(tryInclude("characteristicType", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa["CharacteristicType"]))));
-        }));
-    }))));
-}
-
-export function MaterialAttribute_decoder(options) {
-    return (path) => ((v) => object_11((get$) => {
-        let objectArg, arg_3, objectArg_1;
-        return new MaterialAttribute((objectArg = get$.Optional, objectArg.Field("@id", uri)), (arg_3 = OntologyAnnotation_decoder(options), (objectArg_1 = get$.Optional, objectArg_1.Field("characteristicType", uncurry2(arg_3)))));
-    }, path, v));
-}
-
-export function MaterialAttribute_fromJsonString(s) {
-    return fromJsonString(uncurry2(MaterialAttribute_decoder(ConverterOptions_$ctor())), s);
-}
-
-export function MaterialAttribute_toJsonString(m) {
-    return toString(2, MaterialAttribute_encoder(ConverterOptions_$ctor(), m));
-}
-
-/**
- * exports in json-ld format
- */
-export function MaterialAttribute_toStringLD(m) {
-    let returnVal;
-    return toString(2, MaterialAttribute_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), m));
-}
-
-export function MaterialAttributeValue_genID(m) {
-    const matchValue = m.ID;
-    if (matchValue == null) {
-        return "#EmptyMaterialAttributeValue";
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function MaterialAttributeValue_encoder(options, oa) {
-    return object_10(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = MaterialAttributeValue_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
-            let s_1;
-            const value_3 = value_2;
-            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
-        }, oa["ID"])), delay(() => {
-            let value_5, s_2;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "MaterialAttributeValue", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("category", (oa_1) => MaterialAttribute_encoder(options, oa_1), oa["Category"])), delay(() => append(singleton(tryInclude("value", (value_7) => Value_encoder(options, value_7), oa["Value"])), delay(() => singleton(tryInclude("unit", (oa_2) => OntologyAnnotation_encoder(options, oa_2), oa["Unit"]))))))));
-        }));
-    }))));
-}
-
-export function MaterialAttributeValue_decoder(options) {
-    return (path) => ((v) => object_11((get$) => {
-        let objectArg, arg_3, objectArg_1, objectArg_2, arg_7, objectArg_3;
-        return new MaterialAttributeValue((objectArg = get$.Optional, objectArg.Field("@id", uri)), (arg_3 = MaterialAttribute_decoder(options), (objectArg_1 = get$.Optional, objectArg_1.Field("category", uncurry2(arg_3)))), (objectArg_2 = get$.Optional, objectArg_2.Field("value", (s_1, json_1) => Value_decoder(options, s_1, json_1))), (arg_7 = OntologyAnnotation_decoder(options), (objectArg_3 = get$.Optional, objectArg_3.Field("unit", uncurry2(arg_7)))));
-    }, path, v));
-}
-
-export function MaterialAttributeValue_fromJsonString(s) {
-    return fromJsonString(uncurry2(MaterialAttributeValue_decoder(ConverterOptions_$ctor())), s);
-}
-
-export function MaterialAttributeValue_toJsonString(m) {
-    return toString(2, MaterialAttributeValue_encoder(ConverterOptions_$ctor(), m));
-}
-
-/**
- * exports in json-ld format
- */
-export function MaterialAttributeValue_toStringLD(m) {
-    let returnVal;
-    return toString(2, MaterialAttributeValue_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), m));
-}
-
-export function Material_genID(m) {
-    const matchValue = m.ID;
-    if (matchValue == null) {
-        const matchValue_1 = m.Name;
-        if (matchValue_1 == null) {
-            return "#EmptyMaterial";
-        }
-        else {
-            return "#Material_" + replace(matchValue_1, " ", "_");
-        }
-    }
-    else {
-        return matchValue;
-    }
-}
-
-export function Material_encoder(options, oa) {
-    return object_10(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = Material_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
-            let s_1;
-            const value_3 = value_2;
-            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
-        }, oa["ID"])), delay(() => {
-            let value_5, s_2;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Material", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("name", (value_7) => {
-                let s_3;
-                const value_8 = value_7;
-                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
-            }, oa["Name"])), delay(() => append(singleton(tryInclude("type", (value_10) => MaterialType_encoder(options, value_10), oa["MaterialType"])), delay(() => append(singleton(tryInclude("characteristics", (oa_1) => MaterialAttributeValue_encoder(options, oa_1), oa["Characteristics"])), delay(() => singleton(tryInclude("derivesFrom", (oa_2) => Material_encoder(options, oa_2), oa["DerivesFrom"]))))))))));
-        }));
-    }))));
-}
-
-export function Material_decoder(options, s, json) {
-    if (hasUnknownFields(ofArray(["@id", "@type", "name", "type", "characteristics", "derivesFrom"]), json)) {
-        return new FSharpResult$2(1, [["Unknown fields in material", new ErrorReason(0, [s, nil])]]);
-    }
-    else {
-        return object_11((get$) => {
-            let objectArg, objectArg_1, objectArg_2, arg_7, decoder, objectArg_3, objectArg_4;
-            return new Material((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("type", (s_2, json_2) => MaterialType_decoder(options, s_2, json_2))), (arg_7 = ((decoder = MaterialAttributeValue_decoder(options), (path_1) => ((value_1) => list_1(uncurry2(decoder), path_1, value_1)))), (objectArg_3 = get$.Optional, objectArg_3.Field("characteristics", uncurry2(arg_7)))), (objectArg_4 = get$.Optional, objectArg_4.Field("derivesFrom", (path_2, value_2) => list_1((s_3, json_3) => Material_decoder(options, s_3, json_3), path_2, value_2))));
-        }, s, json);
-    }
-}
-
-export function Material_fromJsonString(s) {
-    let options;
-    return fromJsonString(uncurry2((options = ConverterOptions_$ctor(), (s_1) => ((json) => Material_decoder(options, s_1, json)))), s);
-}
-
-export function Material_toJsonString(m) {
-    return toString(2, Material_encoder(ConverterOptions_$ctor(), m));
-}
-
-/**
- * exports in json-ld format
- */
-export function Material_toStringLD(m) {
-    let returnVal;
-    return toString(2, Material_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), m));
-}
-

package/ISA/ISA.Json/Ontology.js

@@ -1,223 +0,0 @@
-import { array, object as object_11, string, float, int } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { FSharpResult$2 } from "../../fable_modules/fable-library.4.5.0/Choice.js";
-import { uncurry2, equals, int32ToString } from "../../fable_modules/fable-library.4.5.0/Util.js";
-import { replace } from "../../fable_modules/fable-library.4.5.0/String.js";
-import { toString, nil, object as object_10 } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
-import { choose } from "../../fable_modules/fable-library.4.5.0/List.js";
-import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library.4.5.0/Seq.js";
-import { ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
-import { tryInclude } from "./GEncode.js";
-import { decoder as decoder_1, encoder } from "./Comment.js";
-import { fromJsonString, uri } from "./Decode.js";
-import { OntologySourceReference } from "../ISA/JsonTypes/OntologySourceReference.js";
-import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
-import { OntologyAnnotation } from "../ISA/JsonTypes/OntologyAnnotation.js";
-import { unwrap } from "../../fable_modules/fable-library.4.5.0/Option.js";
-import { StringTable_decodeString, StringTable_encodeString } from "./StringTable.js";
-
-/**
- * This decodes from integer, float or string to string only!
- */
-export function AnnotationValue_decoder(options, s, json) {
-    const matchValue = int(s)(json);
-    if (matchValue.tag === 1) {
-        const matchValue_1 = float(s, json);
-        if (matchValue_1.tag === 1) {
-            const matchValue_2 = string(s, json);
-            if (matchValue_2.tag === 1) {
-                return new FSharpResult$2(1, [matchValue_2.fields[0]]);
-            }
-            else {
-                return new FSharpResult$2(0, [matchValue_2.fields[0]]);
-            }
-        }
-        else {
-            return new FSharpResult$2(0, [matchValue_1.fields[0].toString()]);
-        }
-    }
-    else {
-        return new FSharpResult$2(0, [int32ToString(matchValue.fields[0])]);
-    }
-}
-
-export function OntologySourceReference_genID(o) {
-    const matchValue = o.File;
-    if (matchValue == null) {
-        const matchValue_1 = o.Name;
-        if (matchValue_1 == null) {
-            return "#DummyOntologySourceRef";
-        }
-        else {
-            return "#OntologySourceRef_" + replace(matchValue_1, " ", "_");
-        }
-    }
-    else {
-        return matchValue;
-    }
-}
-
-export function OntologySourceReference_encoder(options, osr) {
-    return object_10(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = OntologySourceReference_genID(osr), (typeof value === "string") ? ((s = value, s)) : nil)]) : empty(), delay(() => {
-            let value_2, s_1;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_2 = "OntologySourceReference", (typeof value_2 === "string") ? ((s_1 = value_2, s_1)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("description", (value_4) => {
-                let s_2;
-                const value_5 = value_4;
-                return (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil;
-            }, osr["Description"])), delay(() => append(singleton(tryInclude("file", (value_7) => {
-                let s_3;
-                const value_8 = value_7;
-                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
-            }, osr["File"])), delay(() => append(singleton(tryInclude("name", (value_10) => {
-                let s_4;
-                const value_11 = value_10;
-                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
-            }, osr["Name"])), delay(() => append(singleton(tryInclude("version", (value_13) => {
-                let s_5;
-                const value_14 = value_13;
-                return (typeof value_14 === "string") ? ((s_5 = value_14, s_5)) : nil;
-            }, osr["Version"])), delay(() => singleton(tryInclude("comments", (comment) => encoder(options, comment), osr["Comments"]))))))))))));
-        }));
-    }))));
-}
-
-export function OntologySourceReference_decoder(options) {
-    return (path_4) => ((v) => object_11((get$) => {
-        let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, decoder, objectArg_4;
-        return new OntologySourceReference((objectArg = get$.Optional, objectArg.Field("description", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("file", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("name", string)), (objectArg_3 = get$.Optional, objectArg_3.Field("version", string)), (arg_9 = ((decoder = decoder_1(options), (path_3) => ((value_3) => array(uncurry2(decoder), path_3, value_3)))), (objectArg_4 = get$.Optional, objectArg_4.Field("comments", uncurry2(arg_9)))));
-    }, path_4, v));
-}
-
-export function OntologySourceReference_fromJsonString(s) {
-    return fromJsonString(uncurry2(OntologySourceReference_decoder(ConverterOptions_$ctor())), s);
-}
-
-export function OntologySourceReference_toJsonString(oa) {
-    return toString(2, OntologySourceReference_encoder(ConverterOptions_$ctor(), oa));
-}
-
-/**
- * exports in json-ld format
- */
-export function OntologySourceReference_toStringLD(oa) {
-    let returnVal;
-    return toString(2, OntologySourceReference_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), oa));
-}
-
-export function OntologyAnnotation_genID(o) {
-    const matchValue = o.ID;
-    if (matchValue == null) {
-        const matchValue_1 = o.TermAccessionNumber;
-        if (matchValue_1 == null) {
-            const matchValue_2 = o.TermSourceREF;
-            if (matchValue_2 == null) {
-                return "#DummyOntologyAnnotation";
-            }
-            else {
-                return "#" + replace(matchValue_2, " ", "_");
-            }
-        }
-        else {
-            return matchValue_1;
-        }
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function OntologyAnnotation_encoder(options, oa) {
-    return object_10(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = OntologyAnnotation_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
-            let s_1;
-            const value_3 = value_2;
-            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
-        }, oa["ID"])), delay(() => {
-            let value_5, s_2;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "OntologyAnnotation", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("annotationValue", (value_7) => {
-                let s_3;
-                const value_8 = value_7;
-                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
-            }, oa["Name"])), delay(() => append(singleton(tryInclude("termSource", (value_10) => {
-                let s_4;
-                const value_11 = value_10;
-                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
-            }, oa["TermSourceREF"])), delay(() => append(singleton(tryInclude("termAccession", (value_13) => {
-                let s_5;
-                const value_14 = value_13;
-                return (typeof value_14 === "string") ? ((s_5 = value_14, s_5)) : nil;
-            }, oa["TermAccessionNumber"])), delay(() => singleton(tryInclude("comments", (comment) => encoder(options, comment), oa["Comments"]))))))))));
-        }));
-    }))));
-}
-
-export function OntologyAnnotation_decoder(options) {
-    return (path_3) => ((v) => object_11((get$) => {
-        let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, decoder, objectArg_4;
-        return OntologyAnnotation.create(unwrap((objectArg = get$.Optional, objectArg.Field("@id", uri))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("annotationValue", (s_1, json_1) => AnnotationValue_decoder(options, s_1, json_1)))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("termSource", string))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("termAccession", string))), unwrap((arg_9 = ((decoder = decoder_1(options), (path_2) => ((value_2) => array(uncurry2(decoder), path_2, value_2)))), (objectArg_4 = get$.Optional, objectArg_4.Field("comments", uncurry2(arg_9))))));
-    }, path_3, v));
-}
-
-export function OntologyAnnotation_compressedEncoder(stringTable, options, oa) {
-    return object_10(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = OntologyAnnotation_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
-            let s_1;
-            const value_3 = value_2;
-            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
-        }, oa["ID"])), delay(() => {
-            let value_5, s_2;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "OntologyAnnotation", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("a", (s_3) => StringTable_encodeString(stringTable, s_3), oa["Name"])), delay(() => append(singleton(tryInclude("ts", (s_4) => StringTable_encodeString(stringTable, s_4), oa["TermSourceREF"])), delay(() => append(singleton(tryInclude("ta", (s_5) => StringTable_encodeString(stringTable, s_5), oa["TermAccessionNumber"])), delay(() => singleton(tryInclude("comments", (comment) => encoder(options, comment), oa["Comments"]))))))))));
-        }));
-    }))));
-}
-
-export function OntologyAnnotation_compressedDecoder(stringTable, options) {
-    return (path_1) => ((v) => object_11((get$) => {
-        let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, decoder, objectArg_4;
-        return OntologyAnnotation.create(unwrap((objectArg = get$.Optional, objectArg.Field("@id", uri))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("a", (s_1, o) => StringTable_decodeString(stringTable, s_1, o)))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("ts", (s_2, o_1) => StringTable_decodeString(stringTable, s_2, o_1)))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("ta", (s_3, o_2) => StringTable_decodeString(stringTable, s_3, o_2)))), unwrap((arg_9 = ((decoder = decoder_1(options), (path) => ((value) => array(uncurry2(decoder), path, value)))), (objectArg_4 = get$.Optional, objectArg_4.Field("comments", uncurry2(arg_9))))));
-    }, path_1, v));
-}
-
-export function OntologyAnnotation_fromJsonString(s) {
-    return fromJsonString(uncurry2(OntologyAnnotation_decoder(ConverterOptions_$ctor())), s);
-}
-
-export function OntologyAnnotation_toJsonString(oa) {
-    return toString(2, OntologyAnnotation_encoder(ConverterOptions_$ctor(), oa));
-}
-
-/**
- * exports in json-ld format
- */
-export function OntologyAnnotation_toStringLD(oa) {
-    let returnVal;
-    return toString(2, OntologyAnnotation_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), oa));
-}
-