@nfdi4plants/arctrl 1.0.7 → 1.2.0

package/ISA/ISA.Json/Person.js

@@ -1,17 +1,21 @@
-import { tryPick } from "../../fable_modules/fable-library.4.5.0/Array.js";
-import { replace } from "../../fable_modules/fable-library.4.5.0/String.js";
+import { tryPick } from "../../fable_modules/fable-library-js.4.13.0/Array.js";
+import { printf, toText, replace } from "../../fable_modules/fable-library-js.4.13.0/String.js";
 import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
+import { ConverterOptions__set_IncludeContext_Z1FBCCD16, ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID, ConverterOptions__get_IncludeContext, ConverterOptions__get_IsRoCrate } from "./ConverterOptions.js";
+import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library-js.4.13.0/Seq.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { context_jsonvalue } from "./context/rocrate/isa_organization_context.js";
 import { Person } from "../ISA/JsonTypes/Person.js";
-import { toString, nil, object as object_22 } 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 { ofArray, choose } from "../../fable_modules/fable-library-js.4.13.0/List.js";
+import { equals } from "../../fable_modules/fable-library-js.4.13.0/Util.js";
+import { tryIncludeArray, tryInclude } from "./GEncode.js";
 import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "./Ontology.js";
-import { decoder as decoder_3, encoder as encoder_1 } from "./Comment.js";
-import { array as array_1, string, object as object_23 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
-import { fromJsonString as fromJsonString_1, uri } from "./Decode.js";
+import { decoder as decoder_2, encoder as encoder_1 } from "./Comment.js";
+import { context_jsonvalue as context_jsonvalue_1 } from "./context/rocrate/isa_person_context.js";
+import { uri, object } from "./Decode.js";
+import { array as array_1, string } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.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";
 
 export function genID(p) {
     const matchValue = p.ID;
@@ -114,66 +118,33 @@ export function genID(p) {
     }
 }
 
+export function affiliationEncoder(options, affiliation) {
+    if (ConverterOptions__get_IsRoCrate(options)) {
+        return new Json(5, [toList(delay(() => append(singleton(["@type", new Json(0, ["Organization"])]), delay(() => append(singleton(["@id", new Json(0, [`Organization/${affiliation}`])]), delay(() => append(singleton(["name", new Json(0, [affiliation])]), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue]) : empty())))))))))]);
+    }
+    else {
+        return new Json(0, [affiliation]);
+    }
+}
+
 export function encoder(options, oa) {
-    let oa_1;
-    const person = oa;
-    oa_1 = Person.setCommentFromORCID(person);
-    return object_22(choose((tupledArg) => {
+    const oa_1 = Person.setCommentFromORCID(oa);
+    return new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
-        if (equals(v, nil)) {
+        if (equals(v, new Json(3, []))) {
             return void 0;
         }
         else {
             return [tupledArg[0], v];
         }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = genID(oa_1), (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_1["ID"])), delay(() => {
-            let value_5, s_2;
-            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Person", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("firstName", (value_7) => {
-                let s_3;
-                const value_8 = value_7;
-                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
-            }, oa_1["FirstName"])), delay(() => append(singleton(tryInclude("lastName", (value_10) => {
-                let s_4;
-                const value_11 = value_10;
-                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
-            }, oa_1["LastName"])), delay(() => append(singleton(tryInclude("midInitials", (value_13) => {
-                let s_5;
-                const value_14 = value_13;
-                return (typeof value_14 === "string") ? ((s_5 = value_14, s_5)) : nil;
-            }, oa_1["MidInitials"])), delay(() => append(singleton(tryInclude("email", (value_16) => {
-                let s_6;
-                const value_17 = value_16;
-                return (typeof value_17 === "string") ? ((s_6 = value_17, s_6)) : nil;
-            }, oa_1["EMail"])), delay(() => append(singleton(tryInclude("phone", (value_19) => {
-                let s_7;
-                const value_20 = value_19;
-                return (typeof value_20 === "string") ? ((s_7 = value_20, s_7)) : nil;
-            }, oa_1["Phone"])), delay(() => append(singleton(tryInclude("fax", (value_22) => {
-                let s_8;
-                const value_23 = value_22;
-                return (typeof value_23 === "string") ? ((s_8 = value_23, s_8)) : nil;
-            }, oa_1["Fax"])), delay(() => append(singleton(tryInclude("address", (value_25) => {
-                let s_9;
-                const value_26 = value_25;
-                return (typeof value_26 === "string") ? ((s_9 = value_26, s_9)) : nil;
-            }, oa_1["Address"])), delay(() => append(singleton(tryInclude("affiliation", (value_28) => {
-                let s_10;
-                const value_29 = value_28;
-                return (typeof value_29 === "string") ? ((s_10 = value_29, s_10)) : nil;
-            }, oa_1["Affiliation"])), delay(() => append(singleton(tryInclude("roles", (oa_2) => OntologyAnnotation_encoder(options, oa_2), oa_1["Roles"])), delay(() => singleton(tryInclude("comments", (comment) => encoder_1(options, comment), oa_1["Comments"]))))))))))))))))))))));
-        }));
-    }))));
+    }, toList(delay(() => append(ConverterOptions__get_SetID(options) ? singleton(["@id", new Json(0, [genID(oa_1)])]) : singleton(tryInclude("@id", (value_1) => (new Json(0, [value_1])), oa_1.ID)), delay(() => append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", new Json(0, ["Person"])]) : empty(), delay(() => append(singleton(tryInclude("firstName", (value_4) => (new Json(0, [value_4])), oa_1.FirstName)), delay(() => append(singleton(tryInclude("lastName", (value_6) => (new Json(0, [value_6])), oa_1.LastName)), delay(() => append(singleton(tryInclude("midInitials", (value_8) => (new Json(0, [value_8])), oa_1.MidInitials)), delay(() => append(singleton(tryInclude("email", (value_10) => (new Json(0, [value_10])), oa_1.EMail)), delay(() => append(singleton(tryInclude("phone", (value_12) => (new Json(0, [value_12])), oa_1.Phone)), delay(() => append(singleton(tryInclude("fax", (value_14) => (new Json(0, [value_14])), oa_1.Fax)), delay(() => append(singleton(tryInclude("address", (value_16) => (new Json(0, [value_16])), oa_1.Address)), delay(() => append(singleton(tryInclude("affiliation", (affiliation) => affiliationEncoder(options, affiliation), oa_1.Affiliation)), delay(() => append(singleton(tryIncludeArray("roles", (oa_2) => OntologyAnnotation_encoder(options, oa_2), oa_1.Roles)), delay(() => append(singleton(tryIncludeArray("comments", (comment) => encoder_1(options, comment), oa_1.Comments)), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue_1]) : empty()))))))))))))))))))))))))))))]);
 }
 
+export const allowedFields = ofArray(["@id", "firstName", "lastName", "midInitials", "email", "phone", "fax", "address", "affiliation", "roles", "comments", "@type", "@context"]);
+
 export function decoder(options) {
-    return (path_10) => ((v) => object_23((get$) => {
-        let objectArg_2, objectArg_3, objectArg_4, objectArg_5, objectArg_6, objectArg_7, objectArg_8, arg_19, decoder_1, objectArg_9, arg_21, decoder_2, objectArg_10;
+    return object(allowedFields, (get$) => {
+        let objectArg_2, objectArg_3, objectArg_4, objectArg_5, objectArg_6, objectArg_7, objectArg_8, arg_19, objectArg_9, arg_21, objectArg_10;
         let person;
         let ID;
         const objectArg = get$.Optional;
@@ -181,13 +152,19 @@ export function decoder(options) {
         let FirstName;
         const objectArg_1 = get$.Optional;
         FirstName = objectArg_1.Field("firstName", string);
-        person = (new Person(ID, void 0, (objectArg_2 = get$.Optional, objectArg_2.Field("lastName", string)), FirstName, (objectArg_3 = get$.Optional, objectArg_3.Field("midInitials", string)), (objectArg_4 = get$.Optional, objectArg_4.Field("email", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("phone", string)), (objectArg_6 = get$.Optional, objectArg_6.Field("fax", string)), (objectArg_7 = get$.Optional, objectArg_7.Field("address", string)), (objectArg_8 = get$.Optional, objectArg_8.Field("affiliation", string)), (arg_19 = ((decoder_1 = OntologyAnnotation_decoder(options), (path_8) => ((value_8) => array_1(uncurry2(decoder_1), path_8, value_8)))), (objectArg_9 = get$.Optional, objectArg_9.Field("roles", uncurry2(arg_19)))), (arg_21 = ((decoder_2 = decoder_3(options), (path_9) => ((value_9) => array_1(uncurry2(decoder_2), path_9, value_9)))), (objectArg_10 = get$.Optional, objectArg_10.Field("comments", uncurry2(arg_21))))));
+        person = (new Person(ID, void 0, (objectArg_2 = get$.Optional, objectArg_2.Field("lastName", string)), FirstName, (objectArg_3 = get$.Optional, objectArg_3.Field("midInitials", string)), (objectArg_4 = get$.Optional, objectArg_4.Field("email", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("phone", string)), (objectArg_6 = get$.Optional, objectArg_6.Field("fax", string)), (objectArg_7 = get$.Optional, objectArg_7.Field("address", string)), (objectArg_8 = get$.Optional, objectArg_8.Field("affiliation", string)), (arg_19 = array_1(OntologyAnnotation_decoder(options)), (objectArg_9 = get$.Optional, objectArg_9.Field("roles", arg_19))), (arg_21 = array_1(decoder_2(options)), (objectArg_10 = get$.Optional, objectArg_10.Field("comments", arg_21)))));
         return Person.setOrcidFromComments(person);
-    }, path_10, v));
+    });
 }
 
 export function fromJsonString(s) {
-    return fromJsonString_1(uncurry2(decoder(ConverterOptions_$ctor())), s);
+    const matchValue = fromString(decoder(ConverterOptions_$ctor()), s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
 }
 
 export function toJsonString(p) {
@@ -197,8 +174,13 @@ export function toJsonString(p) {
 /**
  * exports in json-ld format
  */
-export function toStringLD(p) {
+export function toJsonldString(p) {
     let returnVal;
     return toString(2, encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
 }
 
+export function toJsonldStringWithContext(a) {
+    let returnVal;
+    return toString(2, encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
+}
+

package/ISA/ISA.Json/Process.js

@@ -1,25 +1,30 @@
-import { replace } from "../../fable_modules/fable-library.4.5.0/String.js";
+import { printf, toText, replace } from "../../fable_modules/fable-library-js.4.13.0/String.js";
 import { ProtocolParameter } from "../ISA/JsonTypes/ProtocolParameter.js";
 import { Value } from "../ISA/JsonTypes/Value.js";
-import { list as list_2, toString, nil, object as object_22 } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
-import { map, 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 { map, ofArray, choose } from "../../fable_modules/fable-library-js.4.13.0/List.js";
+import { equals } from "../../fable_modules/fable-library-js.4.13.0/Util.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library-js.4.13.0/Seq.js";
+import { ConverterOptions__set_IncludeContext_Z1FBCCD16, ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeContext, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
+import { list as list_1 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
+import { tryIncludeList, tryInclude } from "./GEncode.js";
 import { Protocol_decoder, Protocol_encoder, ProtocolParameter_decoder, ProtocolParameter_encoder } from "./Protocol.js";
 import { Value_decoder, Value_encoder } from "./Factor.js";
 import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "./Ontology.js";
-import { list as list_1, string, object as object_23 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { context_jsonvalue } from "./context/rocrate/isa_process_parameter_value_context.js";
+import { list as list_2, string, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
 import { ProcessParameterValue } from "../ISA/JsonTypes/ProcessParameterValue.js";
-import { uri, fromJsonString } from "./Decode.js";
-import { ProcessInput } from "../ISA/JsonTypes/ProcessInput.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 { Data_decoder, Sample_decoder, Source_decoder, Source_encoder, Data_encoder, Sample_encoder } from "./Data.js";
 import { Material_decoder, Material_encoder } from "./Material.js";
-import { FSharpResult$2 } from "../../fable_modules/fable-library.4.5.0/Choice.js";
+import { FSharpResult$2 } from "../../fable_modules/fable-library-js.4.13.0/Result.js";
+import { ProcessInput } from "../ISA/JsonTypes/ProcessInput.js";
 import { ProcessOutput } from "../ISA/JsonTypes/ProcessOutput.js";
 import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
-import { decoder as decoder_4, encoder } from "./Comment.js";
+import { decoder as decoder_1, encoder } from "./Comment.js";
+import { context_jsonvalue as context_jsonvalue_1 } from "./context/rocrate/isa_process_context.js";
+import { uri } from "./Decode.js";
 import { Process } from "../ISA/JsonTypes/Process.js";
 
 export function ProcessParameterValue_genID(p) {
@@ -48,32 +53,32 @@ export function ProcessParameterValue_genID(p) {
 }
 
 export function ProcessParameterValue_encoder(options, oa) {
-    return object_22(choose((tupledArg) => {
+    return new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
-        if (equals(v, nil)) {
+        if (equals(v, new Json(3, []))) {
             return void 0;
         }
         else {
             return [tupledArg[0], v];
         }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = ProcessParameterValue_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 = "ProcessParameterValue", (typeof value_2 === "string") ? ((s_1 = value_2, s_1)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("category", (oa_1) => ProtocolParameter_encoder(options, oa_1), oa["Category"])), delay(() => append(singleton(tryInclude("value", (value_4) => Value_encoder(options, value_4), oa["Value"])), delay(() => singleton(tryInclude("unit", (oa_2) => OntologyAnnotation_encoder(options, oa_2), oa["Unit"]))))))));
-        }));
-    }))));
+    }, toList(delay(() => append(ConverterOptions__get_SetID(options) ? singleton(["@id", new Json(0, [ProcessParameterValue_genID(oa)])]) : empty(), delay(() => append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", list_1(ofArray([new Json(0, ["ProcessParameterValue"]), new Json(0, ["ArcProcessParameterValue"])]))]) : empty(), delay(() => append(singleton(tryInclude("category", (oa_1) => ProtocolParameter_encoder(options, oa_1), oa.Category)), delay(() => append(singleton(tryInclude("value", (value_3) => Value_encoder(options, value_3), oa.Value)), delay(() => append(singleton(tryInclude("unit", (oa_2) => OntologyAnnotation_encoder(options, oa_2), oa.Unit)), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue]) : empty()))))))))))))))]);
 }
 
 export function ProcessParameterValue_decoder(options) {
-    return (path) => ((v) => object_23((get$) => {
-        let arg_1, objectArg, objectArg_1, arg_5, objectArg_2;
-        return new ProcessParameterValue((arg_1 = ProtocolParameter_decoder(options), (objectArg = get$.Optional, objectArg.Field("category", uncurry2(arg_1)))), (objectArg_1 = get$.Optional, objectArg_1.Field("value", (s, json) => Value_decoder(options, s, json))), (arg_5 = OntologyAnnotation_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("unit", uncurry2(arg_5)))));
-    }, path, v));
+    return object((get$) => {
+        let arg_1, objectArg, arg_3, objectArg_1, arg_5, objectArg_2;
+        return new ProcessParameterValue((arg_1 = ProtocolParameter_decoder(options), (objectArg = get$.Optional, objectArg.Field("category", arg_1))), (arg_3 = Value_decoder(options), (objectArg_1 = get$.Optional, objectArg_1.Field("value", arg_3))), (arg_5 = OntologyAnnotation_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("unit", arg_5))));
+    });
 }
 
 export function ProcessParameterValue_fromJsonString(s) {
-    return fromJsonString(uncurry2(ProcessParameterValue_decoder(ConverterOptions_$ctor())), s);
+    const matchValue = fromString(ProcessParameterValue_decoder(ConverterOptions_$ctor()), s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
 }
 
 export function ProcessParameterValue_toJsonString(p) {
@@ -83,121 +88,131 @@ export function ProcessParameterValue_toJsonString(p) {
 /**
  * exports in json-ld format
  */
-export function ProcessParameterValue_toStringLD(p) {
+export function ProcessParameterValue_toJsonldString(p) {
     let returnVal;
     return toString(2, ProcessParameterValue_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
 }
 
+export function ProcessParameterValue_toJsonldStringWithContext(a) {
+    let returnVal;
+    return toString(2, ProcessParameterValue_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
+}
+
 export function ProcessInput_encoder(options, value) {
-    if (value instanceof ProcessInput) {
-        if (value.tag === 1) {
+    switch (value.tag) {
+        case 1:
             return Sample_encoder(options, value.fields[0]);
-        }
-        else if (value.tag === 2) {
+        case 2:
             return Data_encoder(options, value.fields[0]);
-        }
-        else if (value.tag === 3) {
+        case 3:
             return Material_encoder(options, value.fields[0]);
-        }
-        else {
+        default:
             return Source_encoder(options, value.fields[0]);
-        }
-    }
-    else {
-        return nil;
     }
 }
 
-export function ProcessInput_decoder(options, s, json) {
-    const matchValue = Source_decoder(options, s, json);
-    if (matchValue.tag === 1) {
-        const matchValue_1 = Sample_decoder(options, s, json);
-        if (matchValue_1.tag === 1) {
-            const matchValue_2 = Data_decoder(options, s, json);
-            if (matchValue_2.tag === 1) {
-                const matchValue_3 = Material_decoder(options, s, json);
-                if (matchValue_3.tag === 1) {
-                    return new FSharpResult$2(1, [matchValue_3.fields[0]]);
+export function ProcessInput_decoder(options) {
+    return {
+        Decode(s, json) {
+            const matchValue = Source_decoder(options).Decode(s, json);
+            if (matchValue.tag === 1) {
+                const matchValue_1 = Sample_decoder(options).Decode(s, json);
+                if (matchValue_1.tag === 1) {
+                    const matchValue_2 = Data_decoder(options).Decode(s, json);
+                    if (matchValue_2.tag === 1) {
+                        const matchValue_3 = Material_decoder(options).Decode(s, json);
+                        return (matchValue_3.tag === 1) ? (new FSharpResult$2(1, [matchValue_3.fields[0]])) : (new FSharpResult$2(0, [new ProcessInput(3, [matchValue_3.fields[0]])]));
+                    }
+                    else {
+                        return new FSharpResult$2(0, [new ProcessInput(2, [matchValue_2.fields[0]])]);
+                    }
                 }
                 else {
-                    return new FSharpResult$2(0, [new ProcessInput(3, [matchValue_3.fields[0]])]);
+                    return new FSharpResult$2(0, [new ProcessInput(1, [matchValue_1.fields[0]])]);
                 }
             }
             else {
-                return new FSharpResult$2(0, [new ProcessInput(2, [matchValue_2.fields[0]])]);
+                return new FSharpResult$2(0, [new ProcessInput(0, [matchValue.fields[0]])]);
             }
-        }
-        else {
-            return new FSharpResult$2(0, [new ProcessInput(1, [matchValue_1.fields[0]])]);
-        }
-    }
-    else {
-        return new FSharpResult$2(0, [new ProcessInput(0, [matchValue.fields[0]])]);
-    }
+        },
+    };
 }
 
 export function ProcessInput_fromJsonString(s) {
-    let options;
-    return fromJsonString(uncurry2((options = ConverterOptions_$ctor(), (s_1) => ((json) => ProcessInput_decoder(options, s_1, json)))), s);
+    const matchValue = fromString(ProcessInput_decoder(ConverterOptions_$ctor()), s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
 }
 
 export function ProcessInput_toJsonString(m) {
     return toString(2, ProcessInput_encoder(ConverterOptions_$ctor(), m));
 }
 
-export function ProcessInput_toStringLD(m) {
+export function ProcessInput_toJsonldString(m) {
     let returnVal;
     return toString(2, ProcessInput_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), m));
 }
 
+export function ProcessInput_toJsonldStringWithContext(a) {
+    let returnVal;
+    return toString(2, ProcessInput_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
+}
+
 export function ProcessOutput_encoder(options, value) {
-    if (value instanceof ProcessOutput) {
-        if (value.tag === 1) {
+    switch (value.tag) {
+        case 1:
             return Data_encoder(options, value.fields[0]);
-        }
-        else if (value.tag === 2) {
+        case 2:
             return Material_encoder(options, value.fields[0]);
-        }
-        else {
+        default:
             return Sample_encoder(options, value.fields[0]);
-        }
-    }
-    else {
-        return nil;
     }
 }
 
-export function ProcessOutput_decoder(options, s, json) {
-    const matchValue = Sample_decoder(options, s, json);
-    if (matchValue.tag === 1) {
-        const matchValue_1 = Data_decoder(options, s, json);
-        if (matchValue_1.tag === 1) {
-            const matchValue_2 = Material_decoder(options, s, json);
-            if (matchValue_2.tag === 1) {
-                return new FSharpResult$2(1, [matchValue_2.fields[0]]);
+export function ProcessOutput_decoder(options) {
+    return {
+        Decode(s, json) {
+            const matchValue = Sample_decoder(options).Decode(s, json);
+            if (matchValue.tag === 1) {
+                const matchValue_1 = Data_decoder(options).Decode(s, json);
+                if (matchValue_1.tag === 1) {
+                    const matchValue_2 = Material_decoder(options).Decode(s, json);
+                    return (matchValue_2.tag === 1) ? (new FSharpResult$2(1, [matchValue_2.fields[0]])) : (new FSharpResult$2(0, [new ProcessOutput(2, [matchValue_2.fields[0]])]));
+                }
+                else {
+                    return new FSharpResult$2(0, [new ProcessOutput(1, [matchValue_1.fields[0]])]);
+                }
             }
             else {
-                return new FSharpResult$2(0, [new ProcessOutput(2, [matchValue_2.fields[0]])]);
+                return new FSharpResult$2(0, [new ProcessOutput(0, [matchValue.fields[0]])]);
             }
-        }
-        else {
-            return new FSharpResult$2(0, [new ProcessOutput(1, [matchValue_1.fields[0]])]);
-        }
-    }
-    else {
-        return new FSharpResult$2(0, [new ProcessOutput(0, [matchValue.fields[0]])]);
-    }
+        },
+    };
 }
 
 export function ProcessOutput_fromJsonString(s) {
-    let options;
-    return fromJsonString(uncurry2((options = ConverterOptions_$ctor(), (s_1) => ((json) => ProcessOutput_decoder(options, s_1, json)))), s);
+    const matchValue = fromString(ProcessOutput_decoder(ConverterOptions_$ctor()), s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
 }
 
 export function ProcessOutput_toJsonString(m) {
     return toString(2, ProcessOutput_encoder(ConverterOptions_$ctor(), m));
 }
 
+export function ProcessOutput_toJsonldStringWithContext(a) {
+    let returnVal;
+    return toString(2, ProcessOutput_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
+}
+
 export function Process_genID(p) {
     const matchValue = p.ID;
     if (matchValue == null) {
@@ -214,78 +229,77 @@ export function Process_genID(p) {
     }
 }
 
-export function Process_encoder(options, oa) {
-    return object_22(choose((tupledArg) => {
+export function Process_encoder(options, studyName, assayName, oa) {
+    return new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
-        if (equals(v, nil)) {
+        if (equals(v, new Json(3, []))) {
             return void 0;
         }
         else {
             return [tupledArg[0], v];
         }
-    }, toList(delay(() => {
-        let value, s;
-        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = Process_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 = "Process", (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("executesProtocol", (oa_1) => Protocol_encoder(options, oa_1), oa["ExecutesProtocol"])), delay(() => append(singleton(tryInclude("parameterValues", (oa_2) => ProcessParameterValue_encoder(options, oa_2), oa["ParameterValues"])), delay(() => append(singleton(tryInclude("performer", (value_10) => {
-                let s_4;
-                const value_11 = value_10;
-                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
-            }, oa["Performer"])), delay(() => append(singleton(tryInclude("date", (value_13) => {
-                let s_5;
-                const value_14 = value_13;
-                return (typeof value_14 === "string") ? ((s_5 = value_14, s_5)) : nil;
-            }, oa["Date"])), delay(() => append(singleton(tryInclude("previousProcess", (oa_3) => Process_encoder(options, oa_3), oa["PreviousProcess"])), delay(() => append(singleton(tryInclude("nextProcess", (oa_4) => Process_encoder(options, oa_4), oa["NextProcess"])), delay(() => append(singleton(tryInclude("inputs", (value_16) => ProcessInput_encoder(options, value_16), oa["Inputs"])), delay(() => append(singleton(tryInclude("outputs", (value_17) => ProcessOutput_encoder(options, value_17), oa["Outputs"])), delay(() => singleton(tryInclude("comments", (comment) => encoder(options, comment), oa["Comments"]))))))))))))))))))))));
-        }));
-    }))));
+    }, toList(delay(() => append(ConverterOptions__get_SetID(options) ? singleton(["@id", new Json(0, [Process_genID(oa)])]) : singleton(tryInclude("@id", (value_1) => (new Json(0, [value_1])), oa.ID)), delay(() => append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", list_1(ofArray([new Json(0, ["Process"]), new Json(0, ["ArcProcess"])]))]) : empty(), delay(() => append(singleton(tryInclude("name", (value_5) => (new Json(0, [value_5])), oa.Name)), delay(() => append(singleton(tryInclude("executesProtocol", (oa_1) => Protocol_encoder(options, studyName, assayName, oa.Name, oa_1), oa.ExecutesProtocol)), delay(() => append(singleton(tryIncludeList("parameterValues", (oa_2) => ProcessParameterValue_encoder(options, oa_2), oa.ParameterValues)), delay(() => append(singleton(tryInclude("performer", (value_7) => (new Json(0, [value_7])), oa.Performer)), delay(() => append(singleton(tryInclude("date", (value_9) => (new Json(0, [value_9])), oa.Date)), delay(() => append(singleton(tryInclude("previousProcess", (oa_3) => Process_encoder(options, studyName, assayName, oa_3), oa.PreviousProcess)), delay(() => append(singleton(tryInclude("nextProcess", (oa_4) => Process_encoder(options, studyName, assayName, oa_4), oa.NextProcess)), delay(() => append(singleton(tryIncludeList("inputs", (value_11) => ProcessInput_encoder(options, value_11), oa.Inputs)), delay(() => append(singleton(tryIncludeList("outputs", (value_12) => ProcessOutput_encoder(options, value_12), oa.Outputs)), delay(() => append(singleton(tryIncludeList("comments", (comment) => encoder(options, comment), oa.Comments)), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue_1]) : empty()))))))))))))))))))))))))))))]);
 }
 
 export function Process_decoder(options) {
-    return (path_7) => ((v) => object_23((get$) => {
-        let objectArg, objectArg_1, arg_5, objectArg_2, arg_7, decoder, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, objectArg_7, objectArg_8, objectArg_9, arg_21, decoder_3, objectArg_10;
-        return new Process((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = Protocol_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("executesProtocol", uncurry2(arg_5)))), (arg_7 = ((decoder = ProcessParameterValue_decoder(options), (path_1) => ((value_1) => list_1(uncurry2(decoder), path_1, value_1)))), (objectArg_3 = get$.Optional, objectArg_3.Field("parameterValues", uncurry2(arg_7)))), (objectArg_4 = get$.Optional, objectArg_4.Field("performer", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("date", string)), (arg_13 = Process_decoder(options), (objectArg_6 = get$.Optional, objectArg_6.Field("previousProcess", uncurry2(arg_13)))), (arg_15 = Process_decoder(options), (objectArg_7 = get$.Optional, objectArg_7.Field("nextProcess", uncurry2(arg_15)))), (objectArg_8 = get$.Optional, objectArg_8.Field("inputs", (path_4, value_4) => list_1((s_1, json_1) => ProcessInput_decoder(options, s_1, json_1), path_4, value_4))), (objectArg_9 = get$.Optional, objectArg_9.Field("outputs", (path_5, value_5) => list_1((s_2, json_2) => ProcessOutput_decoder(options, s_2, json_2), path_5, value_5))), (arg_21 = ((decoder_3 = decoder_4(options), (path_6) => ((value_6) => list_1(uncurry2(decoder_3), path_6, value_6)))), (objectArg_10 = get$.Optional, objectArg_10.Field("comments", uncurry2(arg_21)))));
-    }, path_7, v));
+    return object((get$) => {
+        let objectArg, objectArg_1, arg_5, objectArg_2, arg_7, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, objectArg_7, arg_17, objectArg_8, arg_19, objectArg_9, arg_21, objectArg_10;
+        return new Process((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = Protocol_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("executesProtocol", arg_5))), (arg_7 = list_2(ProcessParameterValue_decoder(options)), (objectArg_3 = get$.Optional, objectArg_3.Field("parameterValues", arg_7))), (objectArg_4 = get$.Optional, objectArg_4.Field("performer", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("date", string)), (arg_13 = Process_decoder(options), (objectArg_6 = get$.Optional, objectArg_6.Field("previousProcess", arg_13))), (arg_15 = Process_decoder(options), (objectArg_7 = get$.Optional, objectArg_7.Field("nextProcess", arg_15))), (arg_17 = list_2(ProcessInput_decoder(options)), (objectArg_8 = get$.Optional, objectArg_8.Field("inputs", arg_17))), (arg_19 = list_2(ProcessOutput_decoder(options)), (objectArg_9 = get$.Optional, objectArg_9.Field("outputs", arg_19))), (arg_21 = list_2(decoder_1(options)), (objectArg_10 = get$.Optional, objectArg_10.Field("comments", arg_21))));
+    });
 }
 
 export function Process_fromJsonString(s) {
-    return fromJsonString(uncurry2(Process_decoder(ConverterOptions_$ctor())), s);
+    const matchValue = fromString(Process_decoder(ConverterOptions_$ctor()), s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
 }
 
 export function Process_toJsonString(p) {
-    return toString(2, Process_encoder(ConverterOptions_$ctor(), p));
+    return toString(2, Process_encoder(ConverterOptions_$ctor(), void 0, void 0, p));
 }
 
 /**
  * exports in json-ld format
  */
-export function Process_toStringLD(p) {
+export function Process_toJsonldString(p) {
     let returnVal;
-    return toString(2, Process_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
+    return toString(2, Process_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), void 0, void 0, p));
+}
+
+export function Process_toJsonldStringWithContext(a) {
+    let returnVal;
+    return toString(2, Process_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), void 0, void 0, a));
 }
 
 export function ProcessSequence_fromJsonString(s) {
-    let decoder;
-    return fromJsonString(uncurry2((decoder = Process_decoder(ConverterOptions_$ctor()), (path) => ((value) => list_1(uncurry2(decoder), path, value)))), s);
+    const matchValue = fromString(list_2(Process_decoder(ConverterOptions_$ctor())), s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
 }
 
 export function ProcessSequence_toJsonString(p) {
     let options;
-    return toString(2, list_2(map((options = ConverterOptions_$ctor(), (oa) => Process_encoder(options, oa)), p)));
+    return toString(2, list_1(map((options = ConverterOptions_$ctor(), (oa) => Process_encoder(options, void 0, void 0, oa)), p)));
 }
 
 /**
  * exports in json-ld format
  */
-export function ProcessSequence_toStringLD(p) {
+export function ProcessSequence_toJsonldString(p) {
+    let options, returnVal;
+    return toString(2, list_1(map((options = ((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal))), (oa) => Process_encoder(options, void 0, void 0, oa)), p)));
+}
+
+export function ProcessSequence_toJsonldStringWithContext(p) {
     let options, returnVal;
-    return toString(2, list_2(map((options = ((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal))), (oa) => Process_encoder(options, oa)), p)));
+    return toString(2, list_1(map((options = ((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal))), (oa) => Process_encoder(options, void 0, void 0, oa)), p)));
 }