@nfdi4plants/arctrl 2.0.1 → 2.1.0-alpha.1

package/Json/Process/Protocol.js

@@ -1,24 +1,21 @@
-import { printf, toText, replace } from "../../fable_modules/fable-library-js.4.16.0/String.js";
-import { append, empty, ofArray, singleton, choose } from "../../fable_modules/fable-library-js.4.16.0/List.js";
-import { equals } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
-import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
-import { list as list_4 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
-import { defaultSpaces, tryIncludeListOpt, tryInclude } from "../Encode.js";
+import { replace } from "../../fable_modules/fable-library-js.4.22.0/String.js";
+import { append, empty, ofArray, singleton, choose } from "../../fable_modules/fable-library-js.4.22.0/List.js";
+import { defaultArg, map } from "../../fable_modules/fable-library-js.4.22.0/Option.js";
+import { list as list_4 } from "../../fable_modules/Thoth.Json.Core.0.4.0/Encode.fs.js";
+import { tryIncludeListOpt, tryInclude } from "../Encode.js";
 import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ISAJson_encoder, OntologyAnnotation_ROCrate_decoderDefinedTerm, OntologyAnnotation_ROCrate_encoderDefinedTerm } from "../OntologyAnnotation.js";
-import { Component_ISAJson_decoder, Component_ISAJson_encoder, Component_ROCrate_decoder, Component_ROCrate_encoder } from "./Component.js";
-import { Comment_ISAJson_decoder, Comment_ISAJson_encoder, Comment_ROCrate_decoder, Comment_ROCrate_encoder } from "../Comment.js";
+import { ISAJson_decoder as ISAJson_decoder_1, ISAJson_encoder as ISAJson_encoder_1, ROCrate_decoder as ROCrate_decoder_1, ROCrate_encoder as ROCrate_encoder_1 } from "./Component.js";
+import { ISAJson_decoder as ISAJson_decoder_2, ISAJson_encoder as ISAJson_encoder_2, ROCrate_decoder as ROCrate_decoder_2, ROCrate_encoder as ROCrate_encoder_2 } from "../Comment.js";
 import { context_jsonvalue } from "../context/rocrate/isa_protocol_context.js";
-import { string, list as list_5, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { map as map_1 } from "../../fable_modules/fable-library-js.4.22.0/Seq.js";
+import { string, list as list_5, object } from "../../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
 import { Option_fromValueWithDefault } from "../../Core/Helper/Collections.js";
-import { unwrap, defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
 import { Decode_uri } from "../Decode.js";
 import { Protocol } from "../../Core/Process/Protocol.js";
-import { ProtocolParameter_ISAJson_decoder, ProtocolParameter_ISAJson_encoder } from "./ProtocolParameter.js";
+import { decoder, encoder } from "./ProtocolParameter.js";
 import { encode } from "../IDTable.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 Protocol_ROCrate_genID(studyName, assayName, processName, p) {
+export function ROCrate_genID(studyName, assayName, processName, p) {
     const matchValue = p.ID;
     let matchResult, id_1;
     if (matchValue != null) {
@@ -97,87 +94,87 @@ export function Protocol_ROCrate_genID(studyName, assayName, processName, p) {
     }
 }
 
-export function Protocol_ROCrate_encoder(studyName, assayName, processName, oa) {
-    return new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, ofArray([["@id", new Json(0, [Protocol_ROCrate_genID(studyName, assayName, processName, oa)])], ["@type", list_4(singleton(new Json(0, ["Protocol"])))], tryInclude("name", (value_2) => (new Json(0, [value_2])), oa.Name), tryInclude("protocolType", OntologyAnnotation_ROCrate_encoderDefinedTerm, oa.ProtocolType), tryInclude("description", (value_4) => (new Json(0, [value_4])), oa.Description), tryInclude("uri", (value_6) => (new Json(0, [value_6])), oa.Uri), tryInclude("version", (value_8) => (new Json(0, [value_8])), oa.Version), tryIncludeListOpt("components", Component_ROCrate_encoder, oa.Components), tryIncludeListOpt("comments", Comment_ROCrate_encoder, oa.Comments), ["@context", context_jsonvalue]]))]);
+export function ROCrate_encoder(studyName, assayName, processName, oa) {
+    let value;
+    const values = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([["@id", (value = ROCrate_genID(studyName, assayName, processName, oa), {
+        Encode(helpers) {
+            return helpers.encodeString(value);
+        },
+    })], ["@type", list_4(singleton({
+        Encode(helpers_1) {
+            return helpers_1.encodeString("Protocol");
+        },
+    }))], tryInclude("name", (value_2) => ({
+        Encode(helpers_2) {
+            return helpers_2.encodeString(value_2);
+        },
+    }), oa.Name), tryInclude("protocolType", OntologyAnnotation_ROCrate_encoderDefinedTerm, oa.ProtocolType), tryInclude("description", (value_4) => ({
+        Encode(helpers_3) {
+            return helpers_3.encodeString(value_4);
+        },
+    }), oa.Description), tryInclude("uri", (value_6) => ({
+        Encode(helpers_4) {
+            return helpers_4.encodeString(value_6);
+        },
+    }), oa.Uri), tryInclude("version", (value_8) => ({
+        Encode(helpers_5) {
+            return helpers_5.encodeString(value_8);
+        },
+    }), oa.Version), tryIncludeListOpt("components", ROCrate_encoder_1, oa.Components), tryIncludeListOpt("comments", ROCrate_encoder_2, oa.Comments), ["@context", context_jsonvalue]]));
+    return {
+        Encode(helpers_6) {
+            const arg = map_1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_6)], values);
+            return helpers_6.encodeObject(arg);
+        },
+    };
 }
 
-export const Protocol_ROCrate_decoder = object((get$) => {
+export const ROCrate_decoder = object((get$) => {
     let list_3, list_1, arg_1, objectArg, arg_3, objectArg_1, arg_5, objectArg_2, objectArg_3, objectArg_4, objectArg_5, objectArg_6, objectArg_7, objectArg_8, arg_19, objectArg_9;
-    const components = Option_fromValueWithDefault(empty(), (list_3 = ((list_1 = defaultArg((arg_1 = list_5(Component_ROCrate_decoder), (objectArg = get$.Optional, objectArg.Field("components", arg_1))), empty()), append(defaultArg((arg_3 = list_5(Component_ROCrate_decoder), (objectArg_1 = get$.Optional, objectArg_1.Field("reagents", arg_3))), empty()), list_1))), append(defaultArg((arg_5 = list_5(Component_ROCrate_decoder), (objectArg_2 = get$.Optional, objectArg_2.Field("computationalTools", arg_5))), empty()), list_3)));
-    return new Protocol((objectArg_3 = get$.Optional, objectArg_3.Field("@id", Decode_uri)), (objectArg_4 = get$.Optional, objectArg_4.Field("name", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("protocolType", OntologyAnnotation_ROCrate_decoderDefinedTerm)), (objectArg_6 = get$.Optional, objectArg_6.Field("description", string)), (objectArg_7 = get$.Optional, objectArg_7.Field("uri", Decode_uri)), (objectArg_8 = get$.Optional, objectArg_8.Field("version", string)), void 0, components, (arg_19 = list_5(Comment_ROCrate_decoder), (objectArg_9 = get$.Optional, objectArg_9.Field("comments", arg_19))));
+    const components = Option_fromValueWithDefault(empty(), (list_3 = ((list_1 = defaultArg((arg_1 = list_5(ROCrate_decoder_1), (objectArg = get$.Optional, objectArg.Field("components", arg_1))), empty()), append(defaultArg((arg_3 = list_5(ROCrate_decoder_1), (objectArg_1 = get$.Optional, objectArg_1.Field("reagents", arg_3))), empty()), list_1))), append(defaultArg((arg_5 = list_5(ROCrate_decoder_1), (objectArg_2 = get$.Optional, objectArg_2.Field("computationalTools", arg_5))), empty()), list_3)));
+    return new Protocol((objectArg_3 = get$.Optional, objectArg_3.Field("@id", Decode_uri)), (objectArg_4 = get$.Optional, objectArg_4.Field("name", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("protocolType", OntologyAnnotation_ROCrate_decoderDefinedTerm)), (objectArg_6 = get$.Optional, objectArg_6.Field("description", string)), (objectArg_7 = get$.Optional, objectArg_7.Field("uri", Decode_uri)), (objectArg_8 = get$.Optional, objectArg_8.Field("version", string)), undefined, components, (arg_19 = list_5(ROCrate_decoder_2), (objectArg_9 = get$.Optional, objectArg_9.Field("comments", arg_19))));
 });
 
-export function Protocol_ISAJson_encoder(studyName, assayName, processName, idMap, oa) {
-    const f = (oa_1) => (new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, ofArray([tryInclude("@id", (value) => (new Json(0, [value])), Protocol_ROCrate_genID(studyName, assayName, processName, oa_1)), tryInclude("name", (value_2) => (new Json(0, [value_2])), oa_1.Name), tryInclude("protocolType", (oa_2) => OntologyAnnotation_ISAJson_encoder(idMap, oa_2), oa_1.ProtocolType), tryInclude("description", (value_4) => (new Json(0, [value_4])), oa_1.Description), tryInclude("uri", (value_6) => (new Json(0, [value_6])), oa_1.Uri), tryInclude("version", (value_8) => (new Json(0, [value_8])), oa_1.Version), tryIncludeListOpt("parameters", (value_10) => ProtocolParameter_ISAJson_encoder(idMap, value_10), oa_1.Parameters), tryIncludeListOpt("components", (c) => Component_ISAJson_encoder(idMap, c), oa_1.Components), tryIncludeListOpt("comments", (comment) => Comment_ISAJson_encoder(idMap, comment), oa_1.Comments)]))]));
+export function ISAJson_encoder(studyName, assayName, processName, idMap, oa) {
+    const f = (oa_1) => {
+        const values = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([tryInclude("@id", (value) => ({
+            Encode(helpers) {
+                return helpers.encodeString(value);
+            },
+        }), ROCrate_genID(studyName, assayName, processName, oa_1)), tryInclude("name", (value_2) => ({
+            Encode(helpers_1) {
+                return helpers_1.encodeString(value_2);
+            },
+        }), oa_1.Name), tryInclude("protocolType", (oa_2) => OntologyAnnotation_ISAJson_encoder(idMap, oa_2), oa_1.ProtocolType), tryInclude("description", (value_4) => ({
+            Encode(helpers_2) {
+                return helpers_2.encodeString(value_4);
+            },
+        }), oa_1.Description), tryInclude("uri", (value_6) => ({
+            Encode(helpers_3) {
+                return helpers_3.encodeString(value_6);
+            },
+        }), oa_1.Uri), tryInclude("version", (value_8) => ({
+            Encode(helpers_4) {
+                return helpers_4.encodeString(value_8);
+            },
+        }), oa_1.Version), tryIncludeListOpt("parameters", (value_10) => encoder(idMap, value_10), oa_1.Parameters), tryIncludeListOpt("components", (c) => ISAJson_encoder_1(idMap, c), oa_1.Components), tryIncludeListOpt("comments", (comment) => ISAJson_encoder_2(idMap, comment), oa_1.Comments)]));
+        return {
+            Encode(helpers_5) {
+                const arg = map_1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_5)], values);
+                return helpers_5.encodeObject(arg);
+            },
+        };
+    };
     if (idMap != null) {
-        return encode((p_1) => Protocol_ROCrate_genID(studyName, assayName, processName, p_1), f, oa, idMap);
+        return encode((p_1) => ROCrate_genID(studyName, assayName, processName, p_1), f, oa, idMap);
     }
     else {
         return f(oa);
     }
 }
 
-export const Protocol_ISAJson_decoder = object((get$) => {
+export const ISAJson_decoder = object((get$) => {
     let objectArg, objectArg_1, objectArg_2, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, objectArg_7, arg_17, objectArg_8;
-    return new Protocol((objectArg = get$.Optional, objectArg.Field("@id", Decode_uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("protocolType", OntologyAnnotation_ISAJson_decoder)), (objectArg_3 = get$.Optional, objectArg_3.Field("description", string)), (objectArg_4 = get$.Optional, objectArg_4.Field("uri", Decode_uri)), (objectArg_5 = get$.Optional, objectArg_5.Field("version", string)), (arg_13 = list_5(ProtocolParameter_ISAJson_decoder), (objectArg_6 = get$.Optional, objectArg_6.Field("parameters", arg_13))), (arg_15 = list_5(Component_ISAJson_decoder), (objectArg_7 = get$.Optional, objectArg_7.Field("components", arg_15))), (arg_17 = list_5(Comment_ISAJson_decoder), (objectArg_8 = get$.Optional, objectArg_8.Field("comments", arg_17))));
+    return new Protocol((objectArg = get$.Optional, objectArg.Field("@id", Decode_uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("protocolType", OntologyAnnotation_ISAJson_decoder)), (objectArg_3 = get$.Optional, objectArg_3.Field("description", string)), (objectArg_4 = get$.Optional, objectArg_4.Field("uri", Decode_uri)), (objectArg_5 = get$.Optional, objectArg_5.Field("version", string)), (arg_13 = list_5(decoder), (objectArg_6 = get$.Optional, objectArg_6.Field("parameters", arg_13))), (arg_15 = list_5(ISAJson_decoder_1), (objectArg_7 = get$.Optional, objectArg_7.Field("components", arg_15))), (arg_17 = list_5(ISAJson_decoder_2), (objectArg_8 = get$.Optional, objectArg_8.Field("comments", arg_17))));
 });
 
-export function ARCtrl_Process_Protocol__Protocol_fromISAJsonString_Static_Z721C83C5(s) {
-    const matchValue = fromString(Protocol_ISAJson_decoder, s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ARCtrl_Process_Protocol__Protocol_toISAJsonString_Static_Z3B036AA(spaces, useIDReferencing) {
-    const idMap = defaultArg(useIDReferencing, false) ? (new Map([])) : void 0;
-    return (f) => {
-        const value = Protocol_ISAJson_encoder(void 0, void 0, void 0, idMap, f);
-        return toString(defaultSpaces(spaces), value);
-    };
-}
-
-export function ARCtrl_Process_Protocol__Protocol_ToISAJsonString_71136F3F(this$, spaces) {
-    return ARCtrl_Process_Protocol__Protocol_toISAJsonString_Static_Z3B036AA(spaces)(this$);
-}
-
-export function ARCtrl_Process_Protocol__Protocol_fromROCrateString_Static_Z721C83C5(s) {
-    const matchValue = fromString(Protocol_ROCrate_decoder, s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ARCtrl_Process_Protocol__Protocol_toROCrateString_Static_Z482224B9(studyName, assayName, processName, spaces) {
-    return (f) => {
-        const value = Protocol_ROCrate_encoder(studyName, assayName, processName, f);
-        return toString(defaultSpaces(spaces), value);
-    };
-}
-
-export function ARCtrl_Process_Protocol__Protocol_ToROCrateString_Z482224B9(this$, studyName, assayName, processName, spaces) {
-    return ARCtrl_Process_Protocol__Protocol_toROCrateString_Static_Z482224B9(unwrap(studyName), unwrap(assayName), unwrap(processName), unwrap(spaces))(this$);
-}
-

package/Json/Process/ProtocolParameter.js

@@ -1,17 +1,13 @@
 import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ISAJson_encoder, OntologyAnnotation_ROCrate_genID } from "../OntologyAnnotation.js";
-import { ofArray, choose } from "../../fable_modules/fable-library-js.4.16.0/List.js";
-import { equals } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
-import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
-import { defaultSpaces, tryInclude } from "../Encode.js";
+import { ofArray, choose } from "../../fable_modules/fable-library-js.4.22.0/List.js";
+import { map } from "../../fable_modules/fable-library-js.4.22.0/Option.js";
+import { tryInclude } from "../Encode.js";
+import { map as map_1 } from "../../fable_modules/fable-library-js.4.22.0/Seq.js";
 import { encode } from "../IDTable.js";
-import { object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { object } from "../../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
 import { ProtocolParameter } from "../../Core/Process/ProtocolParameter.js";
-import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
-import { printf, toText } from "../../fable_modules/fable-library-js.4.16.0/String.js";
-import { toString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
-import { unwrap } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
 
-export function ProtocolParameter_ISAJson_genID(p) {
+export function genID(p) {
     const matchValue = p.ParameterName;
     if (matchValue == null) {
         return "#EmptyProtocolParameter";
@@ -21,47 +17,30 @@ export function ProtocolParameter_ISAJson_genID(p) {
     }
 }
 
-export function ProtocolParameter_ISAJson_encoder(idMap, value) {
-    const f = (value_1) => (new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, ofArray([tryInclude("@id", (value_2) => (new Json(0, [value_2])), ProtocolParameter_ISAJson_genID(value_1)), tryInclude("parameterName", (oa) => OntologyAnnotation_ISAJson_encoder(idMap, oa), value_1.ParameterName)]))]));
+export function encoder(idMap, value) {
+    const f = (value_1) => {
+        const values = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([tryInclude("@id", (value_2) => ({
+            Encode(helpers) {
+                return helpers.encodeString(value_2);
+            },
+        }), genID(value_1)), tryInclude("parameterName", (oa) => OntologyAnnotation_ISAJson_encoder(idMap, oa), value_1.ParameterName)]));
+        return {
+            Encode(helpers_1) {
+                const arg = map_1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_1)], values);
+                return helpers_1.encodeObject(arg);
+            },
+        };
+    };
     if (idMap != null) {
-        return encode(ProtocolParameter_ISAJson_genID, f, value, idMap);
+        return encode(genID, f, value, idMap);
     }
     else {
         return f(value);
     }
 }
 
-export const ProtocolParameter_ISAJson_decoder = object((get$) => {
+export const decoder = object((get$) => {
     let objectArg;
-    return new ProtocolParameter(void 0, (objectArg = get$.Optional, objectArg.Field("parameterName", OntologyAnnotation_ISAJson_decoder)));
+    return new ProtocolParameter(undefined, (objectArg = get$.Optional, objectArg.Field("parameterName", OntologyAnnotation_ISAJson_decoder)));
 });
 
-export function ARCtrl_Process_ProtocolParameter__ProtocolParameter_fromISAJsonString_Static_Z721C83C5(s) {
-    const matchValue = fromString(ProtocolParameter_ISAJson_decoder, s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ARCtrl_Process_ProtocolParameter__ProtocolParameter_toISAJsonString_Static_71136F3F(spaces) {
-    return (v) => {
-        const value = ProtocolParameter_ISAJson_encoder(void 0, v);
-        return toString(defaultSpaces(spaces), value);
-    };
-}
-
-export function ARCtrl_Process_ProtocolParameter__ProtocolParameter_ToISAJsonString_71136F3F(this$, spaces) {
-    return ARCtrl_Process_ProtocolParameter__ProtocolParameter_toISAJsonString_Static_71136F3F(unwrap(spaces))(this$);
-}
-

package/Json/Process/Sample.js

@@ -1,24 +1,21 @@
-import { printf, toText, replace } from "../../fable_modules/fable-library-js.4.16.0/String.js";
-import { ofArray, singleton, choose, append, empty, map } from "../../fable_modules/fable-library-js.4.16.0/List.js";
-import { MaterialAttributeValue_ISAJson_decoder, MaterialAttributeValue_ISAJson_encoder, MaterialAttributeValue_ROCrate_decoder, MaterialAttributeValue_ROCrate_encoder } from "./MaterialAttributeValue.js";
-import { unwrap, defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
-import { FactorValue_ISAJson_decoder, FactorValue_ISAJson_encoder, FactorValue_ROCrate_decoder, FactorValue_ROCrate_encoder } from "./FactorValue.js";
-import { equals } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
-import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
-import { list as list_5 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
-import { defaultSpaces, tryIncludeListOpt, tryIncludeList, tryInclude } from "../Encode.js";
+import { replace } from "../../fable_modules/fable-library-js.4.22.0/String.js";
+import { ofArray, singleton, choose, append, empty, map } from "../../fable_modules/fable-library-js.4.22.0/List.js";
+import { ISAJson_decoder as ISAJson_decoder_1, ISAJson_encoder as ISAJson_encoder_1, ROCrate_decoder as ROCrate_decoder_2, ROCrate_encoder as ROCrate_encoder_1 } from "./MaterialAttributeValue.js";
+import { map as map_1, defaultArg } from "../../fable_modules/fable-library-js.4.22.0/Option.js";
+import { ISAJson_decoder as ISAJson_decoder_2, ISAJson_encoder as ISAJson_encoder_2, ROCrate_decoder as ROCrate_decoder_1, ROCrate_encoder as ROCrate_encoder_2 } from "./FactorValue.js";
+import { list as list_5 } from "../../fable_modules/Thoth.Json.Core.0.4.0/Encode.fs.js";
+import { tryIncludeListOpt, tryIncludeList, tryInclude } from "../Encode.js";
 import { context_jsonvalue } from "../context/rocrate/isa_sample_context.js";
-import { list as list_6, object, string } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
-import { FSharpResult$2 } from "../../fable_modules/fable-library-js.4.16.0/Result.js";
+import { map as map_2 } from "../../fable_modules/fable-library-js.4.22.0/Seq.js";
+import { list as list_6, object, string } from "../../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
+import { FSharpResult$2 } from "../../fable_modules/fable-library-js.4.22.0/Result.js";
 import { Option_fromValueWithDefault } from "../../Core/Helper/Collections.js";
 import { Decode_objectNoAdditionalProperties, Decode_uri } from "../Decode.js";
-import { Source_ISAJson_decoder, Source_ISAJson_encoder, Source_ROCrate_decoder } from "./Source.js";
+import { ISAJson_decoder as ISAJson_decoder_3, ISAJson_encoder as ISAJson_encoder_3, ROCrate_decoder as ROCrate_decoder_3 } from "./Source.js";
 import { Sample } from "../../Core/Process/Sample.js";
 import { encode } from "../IDTable.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 Sample_ROCrate_genID(s) {
+export function ROCrate_genID(s) {
     const matchValue = s.ID;
     if (matchValue == null) {
         const matchValue_1 = s.Name;
@@ -34,39 +31,50 @@ export function Sample_ROCrate_genID(s) {
     }
 }
 
-export function Sample_ROCrate_encoder(oa) {
+export function ROCrate_encoder(oa) {
+    let value_2;
     let additionalProperties;
-    const list_3 = map(MaterialAttributeValue_ROCrate_encoder, defaultArg(oa.Characteristics, empty()));
-    additionalProperties = append(map(FactorValue_ROCrate_encoder, defaultArg(oa.FactorValues, empty())), list_3);
-    return new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, ofArray([["@id", new Json(0, [Sample_ROCrate_genID(oa)])], ["@type", list_5(singleton(new Json(0, ["Sample"])))], tryInclude("name", (value_4) => (new Json(0, [value_4])), oa.Name), tryIncludeList("additionalProperties", (x) => x, additionalProperties), ["@context", context_jsonvalue]]))]);
+    const list_3 = map(ROCrate_encoder_1, defaultArg(oa.Characteristics, empty()));
+    additionalProperties = append(map(ROCrate_encoder_2, defaultArg(oa.FactorValues, empty())), list_3);
+    const values = choose((tupledArg) => map_1((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([["@id", (value_2 = ROCrate_genID(oa), {
+        Encode(helpers) {
+            return helpers.encodeString(value_2);
+        },
+    })], ["@type", list_5(singleton({
+        Encode(helpers_1) {
+            return helpers_1.encodeString("Sample");
+        },
+    }))], tryInclude("name", (value_4) => ({
+        Encode(helpers_2) {
+            return helpers_2.encodeString(value_4);
+        },
+    }), oa.Name), tryIncludeList("additionalProperties", (x) => x, additionalProperties), ["@context", context_jsonvalue]]));
+    return {
+        Encode(helpers_3) {
+            const arg = map_2((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_3)], values);
+            return helpers_3.encodeObject(arg);
+        },
+    };
 }
 
-export const Sample_ROCrate_additionalPropertyDecoder = {
+export const ROCrate_additionalPropertyDecoder = {
     Decode(s, json) {
         let matchValue;
         if ((s.hasProperty("additionalType", json) ? ((matchValue = string.Decode(s, s.getProperty("additionalType", json)), (matchValue.tag === 0) ? matchValue.fields[0] : "")) : "") === "FactorValue") {
-            const matchValue_1 = FactorValue_ROCrate_decoder.Decode(s, json);
-            return (matchValue_1.tag === 1) ? (new FSharpResult$2(1, [matchValue_1.fields[0]])) : (new FSharpResult$2(0, [[void 0, matchValue_1.fields[0]]]));
+            const matchValue_1 = ROCrate_decoder_1.Decode(s, json);
+            return (matchValue_1.tag === 1) ? (new FSharpResult$2(1, [matchValue_1.fields[0]])) : (new FSharpResult$2(0, [[undefined, matchValue_1.fields[0]]]));
         }
         else {
-            const matchValue_2 = MaterialAttributeValue_ROCrate_decoder.Decode(s, json);
-            return (matchValue_2.tag === 1) ? (new FSharpResult$2(1, [matchValue_2.fields[0]])) : (new FSharpResult$2(0, [[matchValue_2.fields[0], void 0]]));
+            const matchValue_2 = ROCrate_decoder_2.Decode(s, json);
+            return (matchValue_2.tag === 1) ? (new FSharpResult$2(1, [matchValue_2.fields[0]])) : (new FSharpResult$2(0, [[matchValue_2.fields[0], undefined]]));
         }
     },
 };
 
-export const Sample_ROCrate_decoder = object((get$) => {
+export const ROCrate_decoder = object((get$) => {
     let objectArg_1, objectArg_2, arg_7, objectArg_3;
     let additionalProperties;
-    const arg_1 = list_6(Sample_ROCrate_additionalPropertyDecoder);
+    const arg_1 = list_6(ROCrate_additionalPropertyDecoder);
     const objectArg = get$.Optional;
     additionalProperties = objectArg.Field("additionalProperties", arg_1);
     let patternInput;
@@ -75,76 +83,41 @@ export const Sample_ROCrate_decoder = object((get$) => {
         patternInput = [Option_fromValueWithDefault(empty(), choose((tuple) => tuple[0], additionalProperties_1)), Option_fromValueWithDefault(empty(), choose((tuple_1) => tuple_1[1], additionalProperties_1))];
     }
     else {
-        patternInput = [void 0, void 0];
+        patternInput = [undefined, undefined];
     }
-    return new Sample((objectArg_1 = get$.Optional, objectArg_1.Field("@id", Decode_uri)), (objectArg_2 = get$.Optional, objectArg_2.Field("name", string)), patternInput[0], patternInput[1], (arg_7 = list_6(Source_ROCrate_decoder), (objectArg_3 = get$.Optional, objectArg_3.Field("derivesFrom", arg_7))));
+    return new Sample((objectArg_1 = get$.Optional, objectArg_1.Field("@id", Decode_uri)), (objectArg_2 = get$.Optional, objectArg_2.Field("name", string)), patternInput[0], patternInput[1], (arg_7 = list_6(ROCrate_decoder_3), (objectArg_3 = get$.Optional, objectArg_3.Field("derivesFrom", arg_7))));
 });
 
-export function Sample_ISAJson_encoder(idMap, oa) {
-    const f = (oa_1) => (new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, ofArray([tryInclude("@id", (value) => (new Json(0, [value])), Sample_ROCrate_genID(oa_1)), tryInclude("name", (value_2) => (new Json(0, [value_2])), oa_1.Name), tryIncludeListOpt("characteristics", (oa_2) => MaterialAttributeValue_ISAJson_encoder(idMap, oa_2), oa_1.Characteristics), tryIncludeListOpt("factorValues", (fv) => FactorValue_ISAJson_encoder(idMap, fv), oa_1.FactorValues), tryIncludeListOpt("derivesFrom", (oa_3) => Source_ISAJson_encoder(idMap, oa_3), oa_1.DerivesFrom)]))]));
+export function ISAJson_encoder(idMap, oa) {
+    const f = (oa_1) => {
+        const values = choose((tupledArg) => map_1((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([tryInclude("@id", (value) => ({
+            Encode(helpers) {
+                return helpers.encodeString(value);
+            },
+        }), ROCrate_genID(oa_1)), tryInclude("name", (value_2) => ({
+            Encode(helpers_1) {
+                return helpers_1.encodeString(value_2);
+            },
+        }), oa_1.Name), tryIncludeListOpt("characteristics", (oa_2) => ISAJson_encoder_1(idMap, oa_2), oa_1.Characteristics), tryIncludeListOpt("factorValues", (fv) => ISAJson_encoder_2(idMap, fv), oa_1.FactorValues), tryIncludeListOpt("derivesFrom", (oa_3) => ISAJson_encoder_3(idMap, oa_3), oa_1.DerivesFrom)]));
+        return {
+            Encode(helpers_2) {
+                const arg = map_2((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_2)], values);
+                return helpers_2.encodeObject(arg);
+            },
+        };
+    };
     if (idMap != null) {
-        return encode(Sample_ROCrate_genID, f, oa, idMap);
+        return encode(ROCrate_genID, f, oa, idMap);
     }
     else {
         return f(oa);
     }
 }
 
-export const Sample_ISAJson_allowedFields = ofArray(["@id", "name", "characteristics", "factorValues", "derivesFrom", "@type", "@context"]);
+export const ISAJson_allowedFields = ofArray(["@id", "name", "characteristics", "factorValues", "derivesFrom", "@type", "@context"]);
 
-export const Sample_ISAJson_decoder = Decode_objectNoAdditionalProperties(Sample_ISAJson_allowedFields, (get$) => {
+export const ISAJson_decoder = Decode_objectNoAdditionalProperties(ISAJson_allowedFields, (get$) => {
     let objectArg, objectArg_1, arg_5, objectArg_2, arg_7, objectArg_3, arg_9, objectArg_4;
-    return new Sample((objectArg = get$.Optional, objectArg.Field("@id", Decode_uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = list_6(MaterialAttributeValue_ISAJson_decoder), (objectArg_2 = get$.Optional, objectArg_2.Field("characteristics", arg_5))), (arg_7 = list_6(FactorValue_ISAJson_decoder), (objectArg_3 = get$.Optional, objectArg_3.Field("factorValues", arg_7))), (arg_9 = list_6(Source_ISAJson_decoder), (objectArg_4 = get$.Optional, objectArg_4.Field("derivesFrom", arg_9))));
+    return new Sample((objectArg = get$.Optional, objectArg.Field("@id", Decode_uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = list_6(ISAJson_decoder_1), (objectArg_2 = get$.Optional, objectArg_2.Field("characteristics", arg_5))), (arg_7 = list_6(ISAJson_decoder_2), (objectArg_3 = get$.Optional, objectArg_3.Field("factorValues", arg_7))), (arg_9 = list_6(ISAJson_decoder_3), (objectArg_4 = get$.Optional, objectArg_4.Field("derivesFrom", arg_9))));
 });
 
-export function ARCtrl_Process_Sample__Sample_fromISAJsonString_Static_Z721C83C5(s) {
-    const matchValue = fromString(Sample_ISAJson_decoder, s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ARCtrl_Process_Sample__Sample_toISAJsonString_Static_Z3B036AA(spaces, useIDReferencing) {
-    const idMap = defaultArg(useIDReferencing, false) ? (new Map([])) : void 0;
-    return (f) => {
-        const value_1 = Sample_ISAJson_encoder(idMap, f);
-        return toString(defaultSpaces(spaces), value_1);
-    };
-}
-
-export function ARCtrl_Process_Sample__Sample_ToISAJsonString_Z3B036AA(this$, spaces, useIDReferencing) {
-    return ARCtrl_Process_Sample__Sample_toISAJsonString_Static_Z3B036AA(unwrap(spaces), unwrap(useIDReferencing))(this$);
-}
-
-export function ARCtrl_Process_Sample__Sample_fromROCrateString_Static_Z721C83C5(s) {
-    const matchValue = fromString(Sample_ROCrate_decoder, s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ARCtrl_Process_Sample__Sample_toROCrateString_Static_71136F3F(spaces) {
-    return (f) => {
-        const value = Sample_ROCrate_encoder(f);
-        return toString(defaultSpaces(spaces), value);
-    };
-}
-
-export function ARCtrl_Process_Sample__Sample_ToROCrateString_71136F3F(this$, spaces) {
-    return ARCtrl_Process_Sample__Sample_toROCrateString_Static_71136F3F(unwrap(spaces))(this$);
-}
-