@nfdi4plants/arctrl 1.1.0 → 2.0.0-alpha.1

package/ISA/ISA.Json/Protocol.js

@@ -1,242 +0,0 @@
-import { value as value_19 } from "../../fable_modules/fable-library.4.5.0/Option.js";
-import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
-import { toString, nil, object as object_18 } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
-import { 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 { list as list_1, string, object as object_19 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { fromJsonString, uri } from "./Decode.js";
-import { ProtocolParameter } from "../ISA/JsonTypes/ProtocolParameter.js";
-import { replace } from "../../fable_modules/fable-library.4.5.0/String.js";
-import { Result_Map } from "../../fable_modules/fable-library.4.5.0/Choice.js";
-import { Component, Component_decomposeName_Z721C83C5 } from "../ISA/JsonTypes/Component.js";
-import { decoder as decoder_3, encoder } from "./Comment.js";
-import { Protocol } from "../ISA/JsonTypes/Protocol.js";
-
-export function ProtocolParameter_genID(pp) {
-    const matchValue = pp.ID;
-    if (matchValue == null) {
-        const matchValue_1 = pp.ParameterName;
-        let matchResult, n_1;
-        if (matchValue_1 != null) {
-            if (!(matchValue_1.ID == null)) {
-                matchResult = 0;
-                n_1 = matchValue_1;
-            }
-            else {
-                matchResult = 1;
-            }
-        }
-        else {
-            matchResult = 1;
-        }
-        switch (matchResult) {
-            case 0:
-                return "#Param_" + value_19(n_1.ID);
-            default:
-                return "#EmptyProtocolParameter";
-        }
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function ProtocolParameter_encoder(options, oa) {
-    return object_18(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 = ProtocolParameter_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 = "ProtocolParameter", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => singleton(tryInclude("parameterName", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa["ParameterName"]))));
-        }));
-    }))));
-}
-
-export function ProtocolParameter_decoder(options) {
-    return (path) => ((v) => object_19((get$) => {
-        let objectArg, arg_3, objectArg_1;
-        return new ProtocolParameter((objectArg = get$.Optional, objectArg.Field("@id", uri)), (arg_3 = OntologyAnnotation_decoder(options), (objectArg_1 = get$.Optional, objectArg_1.Field("parameterName", uncurry2(arg_3)))));
-    }, path, v));
-}
-
-export function ProtocolParameter_fromJsonString(s) {
-    return fromJsonString(uncurry2(ProtocolParameter_decoder(ConverterOptions_$ctor())), s);
-}
-
-export function ProtocolParameter_toString(p) {
-    return toString(2, ProtocolParameter_encoder(ConverterOptions_$ctor(), p));
-}
-
-/**
- * exports in json-ld format
- */
-export function ProtocolParameter_toStringLD(p) {
-    let returnVal;
-    return toString(2, ProtocolParameter_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
-}
-
-export function Component_genID(c) {
-    const matchValue = c.ComponentName;
-    if (matchValue == null) {
-        return "#EmptyComponent";
-    }
-    else {
-        return "#Component_" + replace(matchValue, " ", "_");
-    }
-}
-
-export function Component_encoder(options, oa) {
-    return object_18(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 = Component_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : empty(), delay(() => {
-            let value_2, s_1;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_2 = "Component", (typeof value_2 === "string") ? ((s_1 = value_2, s_1)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("componentName", (value_4) => {
-                let s_2;
-                const value_5 = value_4;
-                return (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil;
-            }, oa["ComponentName"])), delay(() => singleton(tryInclude("componentType", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa["ComponentType"]))))));
-        }));
-    }))));
-}
-
-export function Component_decoder(options, s, json) {
-    return Result_Map((c) => {
-        let patternInput;
-        const matchValue = c.ComponentName;
-        if (matchValue == null) {
-            patternInput = [void 0, void 0];
-        }
-        else {
-            const tupledArg = Component_decomposeName_Z721C83C5(matchValue);
-            patternInput = [tupledArg[0], tupledArg[1]];
-        }
-        return new Component(c.ComponentName, patternInput[0], patternInput[1], c.ComponentType);
-    }, object_19((get$) => {
-        let objectArg, arg_3, objectArg_1;
-        return new Component((objectArg = get$.Optional, objectArg.Field("componentName", uri)), void 0, void 0, (arg_3 = OntologyAnnotation_decoder(options), (objectArg_1 = get$.Optional, objectArg_1.Field("componentType", uncurry2(arg_3)))));
-    }, s, json));
-}
-
-export function Component_fromJsonString(s) {
-    let options;
-    return fromJsonString(uncurry2((options = ConverterOptions_$ctor(), (s_1) => ((json) => Component_decoder(options, s_1, json)))), s);
-}
-
-export function Component_toJsonString(p) {
-    return toString(2, Component_encoder(ConverterOptions_$ctor(), p));
-}
-
-/**
- * exports in json-ld format
- */
-export function Component_toStringLD(p) {
-    let returnVal;
-    return toString(2, Component_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
-}
-
-export function Protocol_genID(p) {
-    const matchValue = p.ID;
-    if (matchValue == null) {
-        const matchValue_1 = p.Uri;
-        if (matchValue_1 == null) {
-            const matchValue_2 = p.Name;
-            if (matchValue_2 == null) {
-                return "#EmptyProtocol";
-            }
-            else {
-                return "#Protocol_" + replace(matchValue_2, " ", "_");
-            }
-        }
-        else {
-            return matchValue_1;
-        }
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function Protocol_encoder(options, oa) {
-    return object_18(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 = Protocol_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 = "Protocol", (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("protocolType", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa["ProtocolType"])), delay(() => append(singleton(tryInclude("description", (value_10) => {
-                let s_4;
-                const value_11 = value_10;
-                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
-            }, oa["Description"])), delay(() => append(singleton(tryInclude("uri", (value_13) => {
-                let s_5;
-                const value_14 = value_13;
-                return (typeof value_14 === "string") ? ((s_5 = value_14, s_5)) : nil;
-            }, oa["Uri"])), delay(() => append(singleton(tryInclude("version", (value_16) => {
-                let s_6;
-                const value_17 = value_16;
-                return (typeof value_17 === "string") ? ((s_6 = value_17, s_6)) : nil;
-            }, oa["Version"])), delay(() => append(singleton(tryInclude("parameters", (oa_2) => ProtocolParameter_encoder(options, oa_2), oa["Parameters"])), delay(() => append(singleton(tryInclude("components", (oa_3) => Component_encoder(options, oa_3), oa["Components"])), delay(() => singleton(tryInclude("comments", (comment) => encoder(options, comment), oa["Comments"]))))))))))))))))));
-        }));
-    }))));
-}
-
-export function Protocol_decoder(options) {
-    return (path_6) => ((v) => object_19((get$) => {
-        let objectArg, objectArg_1, arg_5, objectArg_2, objectArg_3, objectArg_4, objectArg_5, arg_13, decoder, objectArg_6, objectArg_7, arg_17, decoder_2, objectArg_8;
-        return new Protocol((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = OntologyAnnotation_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("protocolType", uncurry2(arg_5)))), (objectArg_3 = get$.Optional, objectArg_3.Field("description", string)), (objectArg_4 = get$.Optional, objectArg_4.Field("uri", uri)), (objectArg_5 = get$.Optional, objectArg_5.Field("version", string)), (arg_13 = ((decoder = ProtocolParameter_decoder(options), (path_3) => ((value_3) => list_1(uncurry2(decoder), path_3, value_3)))), (objectArg_6 = get$.Optional, objectArg_6.Field("parameters", uncurry2(arg_13)))), (objectArg_7 = get$.Optional, objectArg_7.Field("components", (path_4, value_4) => list_1((s_2, json_2) => Component_decoder(options, s_2, json_2), path_4, value_4))), (arg_17 = ((decoder_2 = decoder_3(options), (path_5) => ((value_5) => list_1(uncurry2(decoder_2), path_5, value_5)))), (objectArg_8 = get$.Optional, objectArg_8.Field("comments", uncurry2(arg_17)))));
-    }, path_6, v));
-}
-
-export function Protocol_fromJsonString(s) {
-    return fromJsonString(uncurry2(Protocol_decoder(ConverterOptions_$ctor())), s);
-}
-
-export function Protocol_toJsonString(p) {
-    return toString(2, Protocol_encoder(ConverterOptions_$ctor(), p));
-}
-
-/**
- * exports in json-ld format
- */
-export function Protocol_toStringLD(p) {
-    let returnVal;
-    return toString(2, Protocol_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
-}
-

package/ISA/ISA.Json/Publication.js

@@ -1,92 +0,0 @@
-import { replace } from "../../fable_modules/fable-library.4.5.0/String.js";
-import { toString, nil, object as object_12 } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
-import { 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 { decoder as decoder_2, encoder as encoder_1 } from "./Comment.js";
-import { array, string, object as object_13 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { fromJsonString as fromJsonString_1, uri } from "./Decode.js";
-import { Publication } from "../ISA/JsonTypes/Publication.js";
-
-export function genID(p) {
-    const matchValue = p.DOI;
-    if (matchValue == null) {
-        const matchValue_1 = p.PubMedID;
-        if (matchValue_1 == null) {
-            const matchValue_2 = p.Title;
-            if (matchValue_2 == null) {
-                return "#EmptyPublication";
-            }
-            else {
-                return "#Pub_" + replace(matchValue_2, " ", "_");
-            }
-        }
-        else {
-            return matchValue_1;
-        }
-    }
-    else {
-        return matchValue;
-    }
-}
-
-export function encoder(options, oa) {
-    return object_12(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)]) : empty(), delay(() => {
-            let value_2, s_1;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_2 = "Publication", (typeof value_2 === "string") ? ((s_1 = value_2, s_1)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("pubMedID", (value_4) => {
-                let s_2;
-                const value_5 = value_4;
-                return (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil;
-            }, oa["PubMedID"])), delay(() => append(singleton(tryInclude("doi", (value_7) => {
-                let s_3;
-                const value_8 = value_7;
-                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
-            }, oa["DOI"])), delay(() => append(singleton(tryInclude("authorList", (value_10) => {
-                let s_4;
-                const value_11 = value_10;
-                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
-            }, oa["Authors"])), 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("status", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa["Status"])), delay(() => singleton(tryInclude("comments", (comment) => encoder_1(options, comment), oa["Comments"]))))))))))))));
-        }));
-    }))));
-}
-
-export function decoder(options) {
-    return (path_4) => ((v) => object_13((get$) => {
-        let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, objectArg_4, arg_11, decoder_1, objectArg_5;
-        return new Publication((objectArg = get$.Optional, objectArg.Field("pubMedID", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("doi", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("authorList", string)), (objectArg_3 = get$.Optional, objectArg_3.Field("title", string)), (arg_9 = OntologyAnnotation_decoder(options), (objectArg_4 = get$.Optional, objectArg_4.Field("status", uncurry2(arg_9)))), (arg_11 = ((decoder_1 = decoder_2(options), (path_3) => ((value_3) => array(uncurry2(decoder_1), path_3, value_3)))), (objectArg_5 = get$.Optional, objectArg_5.Field("comments", uncurry2(arg_11)))));
-    }, path_4, 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(p) {
-    let returnVal;
-    return toString(2, encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
-}
-

package/ISA/ISA.Json/StringTable.js

@@ -1,43 +0,0 @@
-import { sortBy, map, toArray } from "../../fable_modules/fable-library.4.5.0/Seq.js";
-import { comparePrimitives } from "../../fable_modules/fable-library.4.5.0/Util.js";
-import { map as map_1 } from "../../fable_modules/fable-library.4.5.0/Array.js";
-import { int, string, array as array_1 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { Dict_tryFind } from "../ISA/Helper.js";
-import { addToDict } from "../../fable_modules/fable-library.4.5.0/MapUtil.js";
-import { FSharpResult$2 } from "../../fable_modules/fable-library.4.5.0/Choice.js";
-
-export function StringTable_arrayFromMap(otm) {
-    return toArray(map((kv_1) => kv_1[0], sortBy((kv) => kv[1], otm, {
-        Compare: comparePrimitives,
-    })));
-}
-
-export function StringTable_encoder(ot) {
-    return map_1((value) => value, ot);
-}
-
-export const StringTable_decoder = (path_1) => ((value_1) => array_1(string, path_1, value_1));
-
-export function StringTable_encodeString(otm, s) {
-    const s_1 = s;
-    const matchValue = Dict_tryFind(s_1, otm);
-    if (matchValue == null) {
-        const i_1 = otm.size | 0;
-        addToDict(otm, s_1, i_1);
-        return i_1;
-    }
-    else {
-        return matchValue;
-    }
-}
-
-export function StringTable_decodeString(ot, s, o) {
-    const matchValue = int(s)(o);
-    if (matchValue.tag === 1) {
-        return new FSharpResult$2(1, [matchValue.fields[0]]);
-    }
-    else {
-        return new FSharpResult$2(0, [ot[matchValue.fields[0]]]);
-    }
-}
-

package/ISA/ISA.Json/Study.js

@@ -1,212 +0,0 @@
-import { toString, nil, object as object_36 } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.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 { tryInclude } from "./GEncode.js";
-import { Sample_decoder, Source_decoder, Sample_encoder, Source_encoder } from "./Data.js";
-import { MaterialAttribute_decoder, MaterialAttribute_encoder, Material_decoder, Material_encoder } from "./Material.js";
-import { string, list as list_1, object as object_37 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { StudyMaterials } from "../ISA/JsonTypes/StudyMaterials.js";
-import { replace } from "../../fable_modules/fable-library.4.5.0/String.js";
-import { URIModule_toString } from "../ISA/JsonTypes/URI.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 { decoder as decoder_10, encoder } from "./Publication.js";
-import { decoder as decoder_11, encoder as encoder_1 } from "./Person.js";
-import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "./Ontology.js";
-import { Protocol_decoder, Protocol_encoder } from "./Protocol.js";
-import { Process_decoder, Process_encoder } from "./Process.js";
-import { Assay_decoder, Assay_encoder } from "./Assay.js";
-import { Factor_decoder, Factor_encoder } from "./Factor.js";
-import { decoder as decoder_12, encoder as encoder_2 } from "./Comment.js";
-import { fromJsonString, uri } from "./Decode.js";
-import { Study } from "../ISA/JsonTypes/Study.js";
-
-export function StudyMaterials_encoder(options, oa) {
-    return object_36(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, ofArray([tryInclude("sources", (oa_1) => Source_encoder(options, oa_1), oa["Sources"]), tryInclude("samples", (oa_2) => Sample_encoder(options, oa_2), oa["Samples"]), tryInclude("otherMaterials", (oa_3) => Material_encoder(options, oa_3), oa["OtherMaterials"])])));
-}
-
-export function StudyMaterials_decoder(options) {
-    return (path_3) => ((v) => object_37((get$) => {
-        let objectArg, objectArg_1, objectArg_2;
-        return new StudyMaterials((objectArg = get$.Optional, objectArg.Field("sources", (path, value) => list_1((s, json) => Source_decoder(options, s, json), path, value))), (objectArg_1 = get$.Optional, objectArg_1.Field("samples", (path_1, value_1) => list_1((s_1, json_1) => Sample_decoder(options, s_1, json_1), path_1, value_1))), (objectArg_2 = get$.Optional, objectArg_2.Field("otherMaterials", (path_2, value_2) => list_1((s_2, json_2) => Material_decoder(options, s_2, json_2), path_2, value_2))));
-    }, path_3, v));
-}
-
-export function Study_genID(s) {
-    const matchValue = s.ID;
-    if (matchValue == null) {
-        const matchValue_1 = s.FileName;
-        if (matchValue_1 == null) {
-            const matchValue_2 = s.Identifier;
-            if (matchValue_2 == null) {
-                const matchValue_3 = s.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 Study_encoder(options, oa) {
-    return object_36(choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, nil)) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => {
-        let value, s_1;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = Study_genID(oa), (typeof value === "string") ? ((s_1 = value, s_1)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
-            let s_2;
-            const value_3 = value_2;
-            return (typeof value_3 === "string") ? ((s_2 = value_3, s_2)) : nil;
-        }, oa["ID"])), delay(() => {
-            let value_5, s_3;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Study", (typeof value_5 === "string") ? ((s_3 = value_5, s_3)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("filename", (value_7) => {
-                let s_4;
-                const value_8 = value_7;
-                return (typeof value_8 === "string") ? ((s_4 = value_8, s_4)) : nil;
-            }, oa["FileName"])), delay(() => append(singleton(tryInclude("identifier", (value_10) => {
-                let s_5;
-                const value_11 = value_10;
-                return (typeof value_11 === "string") ? ((s_5 = value_11, s_5)) : nil;
-            }, oa["Identifier"])), delay(() => append(singleton(tryInclude("title", (value_13) => {
-                let s_6;
-                const value_14 = value_13;
-                return (typeof value_14 === "string") ? ((s_6 = value_14, s_6)) : nil;
-            }, oa["Title"])), delay(() => append(singleton(tryInclude("description", (value_16) => {
-                let s_7;
-                const value_17 = value_16;
-                return (typeof value_17 === "string") ? ((s_7 = value_17, s_7)) : nil;
-            }, oa["Description"])), delay(() => append(singleton(tryInclude("submissionDate", (value_19) => {
-                let s_8;
-                const value_20 = value_19;
-                return (typeof value_20 === "string") ? ((s_8 = value_20, s_8)) : nil;
-            }, oa["SubmissionDate"])), delay(() => append(singleton(tryInclude("publicReleaseDate", (value_22) => {
-                let s_9;
-                const value_23 = value_22;
-                return (typeof value_23 === "string") ? ((s_9 = value_23, s_9)) : nil;
-            }, oa["PublicReleaseDate"])), delay(() => append(singleton(tryInclude("publications", (oa_1) => encoder(options, oa_1), oa["Publications"])), delay(() => append(singleton(tryInclude("people", (oa_2) => encoder_1(options, oa_2), oa["Contacts"])), delay(() => append(singleton(tryInclude("studyDesignDescriptors", (oa_3) => OntologyAnnotation_encoder(options, oa_3), oa["StudyDesignDescriptors"])), delay(() => append(singleton(tryInclude("protocols", (oa_4) => Protocol_encoder(options, oa_4), oa["Protocols"])), delay(() => append(singleton(tryInclude("materials", (oa_5) => StudyMaterials_encoder(options, oa_5), oa["Materials"])), delay(() => append(singleton(tryInclude("processSequence", (oa_6) => Process_encoder(options, oa_6), oa["ProcessSequence"])), delay(() => append(singleton(tryInclude("assays", (oa_7) => Assay_encoder(options, oa_7), oa["Assays"])), delay(() => append(singleton(tryInclude("factors", (oa_8) => Factor_encoder(options, oa_8), oa["Factors"])), delay(() => append(singleton(tryInclude("characteristicCategories", (oa_9) => MaterialAttribute_encoder(options, oa_9), oa["CharacteristicCategories"])), delay(() => append(singleton(tryInclude("unitCategories", (oa_10) => OntologyAnnotation_encoder(options, oa_10), oa["UnitCategories"])), delay(() => singleton(tryInclude("comments", (comment) => encoder_2(options, comment), oa["Comments"]))))))))))))))))))))))))))))))))))));
-        }));
-    }))));
-}
-
-export function Study_decoder(options) {
-    return (path_16) => ((v) => object_37((get$) => {
-        let arg_33, decoder_8, objectArg_16, arg_35, decoder_9, objectArg_17;
-        let ID;
-        const objectArg = get$.Optional;
-        ID = objectArg.Field("@id", uri);
-        let FileName;
-        const objectArg_1 = get$.Optional;
-        FileName = objectArg_1.Field("filename", string);
-        let Identifier;
-        const objectArg_2 = get$.Optional;
-        Identifier = objectArg_2.Field("identifier", string);
-        let Title;
-        const objectArg_3 = get$.Optional;
-        Title = objectArg_3.Field("title", string);
-        let Description;
-        const objectArg_4 = get$.Optional;
-        Description = objectArg_4.Field("description", string);
-        let SubmissionDate;
-        const objectArg_5 = get$.Optional;
-        SubmissionDate = objectArg_5.Field("submissionDate", string);
-        let PublicReleaseDate;
-        const objectArg_6 = get$.Optional;
-        PublicReleaseDate = objectArg_6.Field("publicReleaseDate", string);
-        let Publications;
-        let arg_15;
-        const decoder = decoder_10(options);
-        arg_15 = ((path_6) => ((value_6) => list_1(uncurry2(decoder), path_6, value_6)));
-        const objectArg_7 = get$.Optional;
-        Publications = objectArg_7.Field("publications", uncurry2(arg_15));
-        let Contacts;
-        let arg_17;
-        const decoder_1 = decoder_11(options);
-        arg_17 = ((path_7) => ((value_7) => list_1(uncurry2(decoder_1), path_7, value_7)));
-        const objectArg_8 = get$.Optional;
-        Contacts = objectArg_8.Field("people", uncurry2(arg_17));
-        let StudyDesignDescriptors;
-        let arg_19;
-        const decoder_2 = OntologyAnnotation_decoder(options);
-        arg_19 = ((path_8) => ((value_8) => list_1(uncurry2(decoder_2), path_8, value_8)));
-        const objectArg_9 = get$.Optional;
-        StudyDesignDescriptors = objectArg_9.Field("studyDesignDescriptors", uncurry2(arg_19));
-        let Protocols;
-        let arg_21;
-        const decoder_3 = Protocol_decoder(options);
-        arg_21 = ((path_9) => ((value_9) => list_1(uncurry2(decoder_3), path_9, value_9)));
-        const objectArg_10 = get$.Optional;
-        Protocols = objectArg_10.Field("protocols", uncurry2(arg_21));
-        let Materials;
-        const arg_23 = StudyMaterials_decoder(options);
-        const objectArg_11 = get$.Optional;
-        Materials = objectArg_11.Field("materials", uncurry2(arg_23));
-        let Assays;
-        let arg_25;
-        const decoder_4 = Assay_decoder(options);
-        arg_25 = ((path_10) => ((value_10) => list_1(uncurry2(decoder_4), path_10, value_10)));
-        const objectArg_12 = get$.Optional;
-        Assays = objectArg_12.Field("assays", uncurry2(arg_25));
-        let Factors;
-        let arg_27;
-        const decoder_5 = Factor_decoder(options);
-        arg_27 = ((path_11) => ((value_11) => list_1(uncurry2(decoder_5), path_11, value_11)));
-        const objectArg_13 = get$.Optional;
-        Factors = objectArg_13.Field("factors", uncurry2(arg_27));
-        let CharacteristicCategories;
-        let arg_29;
-        const decoder_6 = MaterialAttribute_decoder(options);
-        arg_29 = ((path_12) => ((value_12) => list_1(uncurry2(decoder_6), path_12, value_12)));
-        const objectArg_14 = get$.Optional;
-        CharacteristicCategories = objectArg_14.Field("characteristicCategories", uncurry2(arg_29));
-        let UnitCategories;
-        let arg_31;
-        const decoder_7 = OntologyAnnotation_decoder(options);
-        arg_31 = ((path_13) => ((value_13) => list_1(uncurry2(decoder_7), path_13, value_13)));
-        const objectArg_15 = get$.Optional;
-        UnitCategories = objectArg_15.Field("unitCategories", uncurry2(arg_31));
-        return new Study(ID, FileName, Identifier, Title, Description, SubmissionDate, PublicReleaseDate, Publications, Contacts, StudyDesignDescriptors, Protocols, Materials, (arg_33 = ((decoder_8 = Process_decoder(options), (path_14) => ((value_14) => list_1(uncurry2(decoder_8), path_14, value_14)))), (objectArg_16 = get$.Optional, objectArg_16.Field("processSequence", uncurry2(arg_33)))), Assays, Factors, CharacteristicCategories, UnitCategories, (arg_35 = ((decoder_9 = decoder_12(options), (path_15) => ((value_15) => list_1(uncurry2(decoder_9), path_15, value_15)))), (objectArg_17 = get$.Optional, objectArg_17.Field("comments", uncurry2(arg_35)))));
-    }, path_16, v));
-}
-
-export function Study_fromJsonString(s) {
-    return fromJsonString(uncurry2(Study_decoder(ConverterOptions_$ctor())), s);
-}
-
-export function Study_toJsonString(p) {
-    return toString(2, Study_encoder(ConverterOptions_$ctor(), p));
-}
-
-/**
- * exports in json-ld format
- */
-export function Study_toStringLD(s) {
-    let returnVal;
-    return toString(2, Study_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), s));
-}
-

package/ISA/ISA.Json/Validation/Fable.js

@@ -1,69 +0,0 @@
-import { Record } from "../../../fable_modules/fable-library.4.5.0/Types.js";
-import { bool_type, option_type, array_type, record_type, string_type, obj_type } from "../../../fable_modules/fable-library.4.5.0/Reflection.js";
-import { map } from "../../../fable_modules/fable-library.4.5.0/Array.js";
-import { singleton } from "../../../fable_modules/fable-library.4.5.0/AsyncBuilder.js";
-import { awaitPromise } from "../../../fable_modules/fable-library.4.5.0/Async.js";
-import * as JsonValidation from "../../../../../src/ISA/ISA.Json/Validation/JsonValidation.js";
-import { value } from "../../../fable_modules/fable-library.4.5.0/Option.js";
-
-export class ValidationError extends Record {
-    constructor(path, property, message, schema, instance, name, argument, stack) {
-        super();
-        this.path = path;
-        this.property = property;
-        this.message = message;
-        this.schema = schema;
-        this.instance = instance;
-        this.name = name;
-        this.argument = argument;
-        this.stack = stack;
-    }
-}
-
-export function ValidationError_$reflection() {
-    return record_type("ARCtrl.ISA.Json.Fable.ValidationError", [], ValidationError, () => [["path", obj_type], ["property", string_type], ["message", string_type], ["schema", obj_type], ["instance", obj_type], ["name", string_type], ["argument", obj_type], ["stack", string_type]]);
-}
-
-export function ValidationError__ToErrorString(this$) {
-    return `Property ${this$.property} (${this$.instance}) ${this$.message}.`;
-}
-
-export class ValidatorResult extends Record {
-    constructor(instance, schema, options, path, propertyPath, errors, throwError, throFirst, throwAll, disableFormat) {
-        super();
-        this.instance = instance;
-        this.schema = schema;
-        this.options = options;
-        this.path = path;
-        this.propertyPath = propertyPath;
-        this.errors = errors;
-        this.throwError = throwError;
-        this.throFirst = throFirst;
-        this.throwAll = throwAll;
-        this.disableFormat = disableFormat;
-    }
-}
-
-export function ValidatorResult_$reflection() {
-    return record_type("ARCtrl.ISA.Json.Fable.ValidatorResult", [], ValidatorResult, () => [["instance", obj_type], ["schema", obj_type], ["options", obj_type], ["path", array_type(obj_type)], ["propertyPath", string_type], ["errors", array_type(ValidationError_$reflection())], ["throwError", option_type(obj_type)], ["throFirst", option_type(obj_type)], ["throwAll", option_type(obj_type)], ["disableFormat", bool_type]]);
-}
-
-export function ValidatorResult__ToValidationResult(this$) {
-    if (this$.errors.length === 0) {
-        return [true, []];
-    }
-    else {
-        return [false, map(ValidationError__ToErrorString, this$.errors)];
-    }
-}
-
-export function validate(schemaURL, objectString) {
-    let validationResult = void 0;
-    return singleton.Delay(() => singleton.Bind(awaitPromise(JsonValidation.validateAgainstSchema(objectString, schemaURL).then((o) => {
-        validationResult = o;
-    })), () => {
-        const output = ValidatorResult__ToValidationResult(value(validationResult));
-        return singleton.Return(output);
-    }));
-}
-