@nfdi4plants/arctrl 1.0.0-beta.8 → 1.0.0

package/ISA/ISA/Fable.js

@@ -1,15 +1,48 @@
 import { toString } from "../../fable_modules/fable-library.4.5.0/Types.js";
-import { append } from "../../fable_modules/fable-library.4.5.0/List.js";
-import { append as append_1 } from "../../fable_modules/fable-library.4.5.0/Array.js";
-import { Array_distinct, List_distinct } from "../../fable_modules/fable-library.4.5.0/Seq2.js";
-import { structuralHash, equals } from "../../fable_modules/fable-library.4.5.0/Util.js";
+import { map, reduce, append } from "../../fable_modules/fable-library.4.5.0/Seq.js";
+import { append as append_1 } from "../../fable_modules/fable-library.4.5.0/List.js";
+import { append as append_2 } from "../../fable_modules/fable-library.4.5.0/Array.js";
+import { Array_distinct, List_distinct, distinct } from "../../fable_modules/fable-library.4.5.0/Seq2.js";
+import { identityHash, structuralHash, equals } from "../../fable_modules/fable-library.4.5.0/Util.js";
 
-export function isMap_generic(l1) {
+export function isList_python(l1) {
+    return (to_string(type(l1))).indexOf("FSharpList") >= 0;
+}
+
+export function isSeq_python(l1) {
+    const t = to_string(type(l1));
+    if (t.indexOf("Enumerator_Seq") >= 0) {
+        return true;
+    }
+    else {
+        return t.indexOf("Enumerable") >= 0;
+    }
+}
+
+export function isArray_python(l1) {
+    return (to_string(type(l1))).indexOf("list") >= 0;
+}
+
+export function isMap_python(l1) {
+    return (to_string(type(l1))).indexOf("FSharpMap") >= 0;
+}
+
+export function isNone_python(l1) {
+    let copyOfStruct;
+    return ((copyOfStruct = l1, toString(copyOfStruct))) === "None";
+}
+
+export function isMap_json(l1) {
     let copyOfStruct;
     return ((copyOfStruct = l1, toString(copyOfStruct))).indexOf("map [") === 0;
 }
 
-export function isList_generic(l1) {
+export function isSeq_json(l1) {
+    let copyOfStruct;
+    return ((copyOfStruct = l1, toString(copyOfStruct))).indexOf("seq [") === 0;
+}
+
+export function isList_json(l1) {
     let s;
     let copyOfStruct = l1;
     s = toString(copyOfStruct);
@@ -21,20 +54,53 @@ export function isList_generic(l1) {
     }
 }
 
+export function isNone_json(l1) {
+    return l1 == null;
+}
+
+export function isList_generic(l1) {
+    return isList_json(l1);
+}
+
+export function isSeq_generic(l1) {
+    return isSeq_json(l1);
+}
+
+export function isArray_generic(l1) {
+    return isList_json(l1);
+}
+
+export function isMap_generic(l1) {
+    return isMap_json(l1);
+}
+
+export function isNone_generic(l1) {
+    return isNone_json(l1);
+}
+
 export function append_generic(l1, l2) {
-    if (l2 == null) {
+    if (isNone_generic(l2)) {
         return l1;
     }
-    else if (isList_generic(l1)) {
+    else if (isSeq_generic(l1)) {
         return append(l1, l2);
     }
-    else {
+    else if (isList_generic(l1)) {
         return append_1(l1, l2);
     }
+    else {
+        return append_2(l1, l2);
+    }
 }
 
 export function distinct_generic(l1) {
-    if (isList_generic(l1)) {
+    if (isSeq_generic(l1)) {
+        return distinct(l1, {
+            Equals: equals,
+            GetHashCode: structuralHash,
+        });
+    }
+    else if (isList_generic(l1)) {
         return List_distinct(l1, {
             Equals: equals,
             GetHashCode: structuralHash,
@@ -48,3 +114,10 @@ export function distinct_generic(l1) {
     }
 }
 
+export function hashSeq(s) {
+    return reduce((a, b) => (a + b), map((x) => {
+        let copyOfStruct = x;
+        return identityHash(copyOfStruct) | 0;
+    }, s));
+}
+

package/ISA/ISA/Helper.js

@@ -1,12 +1,12 @@
 import { isIterable, defaultOf, numberHash, identityHash, structuralHash, equals, disposeSafe, getEnumerator } from "../../fable_modules/fable-library.4.5.0/Util.js";
 import { some, value as value_1 } from "../../fable_modules/fable-library.4.5.0/Option.js";
 import { exactlyOne, partition, fold, contains } from "../../fable_modules/fable-library.4.5.0/Array.js";
+import { isEmpty as isEmpty_1, iterate, fold as fold_1 } from "../../fable_modules/fable-library.4.5.0/Seq.js";
 import { empty, singleton, append, head, tail, isEmpty } from "../../fable_modules/fable-library.4.5.0/List.js";
 import { Dictionary } from "../../fable_modules/fable-library.4.5.0/MutableMap.js";
-import { isEmpty as isEmpty_1, iterate } from "../../fable_modules/fable-library.4.5.0/Seq.js";
 import { tryGetValue, addToDict } from "../../fable_modules/fable-library.4.5.0/MapUtil.js";
 import { Union, toString, FSharpRef } from "../../fable_modules/fable-library.4.5.0/Types.js";
-import { append_generic, distinct_generic, isList_generic, isMap_generic } from "./Fable.js";
+import { isNone_generic, append_generic, distinct_generic, isList_generic, isMap_generic } from "./Fable.js";
 import { union_type, makeUnion, option_type, makeGenericType, getUnionCases, name, obj_type } from "../../fable_modules/fable-library.4.5.0/Reflection.js";
 
 export function ResizeArray_map(f, a) {
@@ -175,6 +175,13 @@ export function HashCodes_boxHashArray(a) {
     }, 0, a);
 }
 
+export function HashCodes_boxHashSeq(a) {
+    return fold_1((acc, o) => {
+        let copyOfStruct;
+        return ((-1640531527 + ((copyOfStruct = o, identityHash(copyOfStruct)))) + (acc << 6)) + (acc >> 2);
+    }, 0, a);
+}
+
 /**
  * If the value matches the default, a None is returned, else a Some is returned
  */
@@ -377,7 +384,7 @@ export function Update_updateAppend(oldVal, newVal) {
  * updates oldRT with newRT by replacing all values, but only if the new value is not empty.
  */
 export function Update_updateOnlyByExisting(oldVal, newVal) {
-    if (equals(newVal, defaultOf())) {
+    if (isNone_generic(newVal)) {
         return oldVal;
     }
     else {
@@ -428,7 +435,7 @@ export function Update_updateOnlyByExisting(oldVal, newVal) {
  * updates oldRT with newRT by replacing all values, but only if the new value is not empty.
  */
 export function Update_updateOnlyByExistingAppend(oldVal, newVal) {
-    if (equals(newVal, defaultOf())) {
+    if (isNone_generic(newVal)) {
         return oldVal;
     }
     else {

package/ISA/ISA/Identifier.js

@@ -1,9 +1,11 @@
-import { match, isMatch } from "../../fable_modules/fable-library.4.5.0/RegExp.js";
+import { ActivePatterns_$007CRegex$007C_$007C } from "./Regex.js";
 import { newGuid } from "../../fable_modules/fable-library.4.5.0/Guid.js";
 import { combineMany } from "../../FileSystem/Path.js";
 
 export function checkValidCharacters(identifier) {
-    if (!isMatch(/^[a-zA-Z0-9_\- ]+$/gu, identifier)) {
+    if (ActivePatterns_$007CRegex$007C_$007C("^[a-zA-Z0-9_\\- ]+$", identifier) != null) {
+    }
+    else {
         throw new Error(`New identifier "${identifier}"contains forbidden characters! Allowed characters are: letters, digits, underscore (_), dash (-) and whitespace ( ).`);
     }
 }
@@ -32,9 +34,9 @@ export function removeMissingIdentifier(str) {
  * This functions extracts assayIdentifier from any of these combinations and returns it.
  */
 export function Assay_identifierFromFileName(fileName) {
-    const m = match(/^(assays(\/|\\))?(?<identifier>[a-zA-Z0-9_\- ]+)((\/|\\)isa.assay.xlsx)?$/gu, fileName);
-    const matchValue = m != null;
-    if (matchValue) {
+    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("^(assays(\\/|\\\\))?(?<identifier>[a-zA-Z0-9_\\- ]+)((\\/|\\\\)isa.assay.xlsx)?$", fileName);
+    if (activePatternResult != null) {
+        const m = activePatternResult;
         return (m.groups && m.groups.identifier) || "";
     }
     else {
@@ -56,9 +58,9 @@ export function Assay_fileNameFromIdentifier(identifier) {
  * This functions extracts studyIdentifier from any of these combinations and returns it.
  */
 export function Study_identifierFromFileName(fileName) {
-    const m = match(/^(studies(\/|\\))?(?<identifier>[a-zA-Z0-9_\- ]+)((\/|\\)isa.study.xlsx)?$/gu, fileName);
-    const matchValue = m != null;
-    if (matchValue) {
+    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("^(studies(\\/|\\\\))?(?<identifier>[a-zA-Z0-9_\\- ]+)((\\/|\\\\)isa.study.xlsx)?$", fileName);
+    if (activePatternResult != null) {
+        const m = activePatternResult;
         return (m.groups && m.groups.identifier) || "";
     }
     else {

package/ISA/ISA/JsonTypes/ColumnIndex.js

@@ -8,7 +8,7 @@ import { append } from "../../../fable_modules/fable-library.4.5.0/Array.js";
 import { OntologyAnnotation } from "./OntologyAnnotation.js";
 import { Factor } from "./Factor.js";
 import { MaterialAttribute_fromString_Z2304A83C } from "./MaterialAttribute.js";
-import { ProtocolParameter_fromString_Z2304A83C } from "./ProtocolParameter.js";
+import { ProtocolParameter } from "./ProtocolParameter.js";
 import { Component_fromString_Z61E08C1 } from "./Component.js";
 
 function tryInt(str) {
@@ -186,7 +186,7 @@ export function ARCtrl_ISA_MaterialAttributeValue__MaterialAttributeValue_TryGet
  * Create a ISAJson parameter from ISATab string entries
  */
 export function ARCtrl_ISA_ProtocolParameter__ProtocolParameter_fromStringWithColumnIndex_Static(term, source, accession, valueIndex) {
-    return ProtocolParameter_fromString_Z2304A83C(term, source, accession, [createOrderComment(valueIndex)]);
+    return ProtocolParameter.fromString(term, source, accession, [createOrderComment(valueIndex)]);
 }
 
 export function ARCtrl_ISA_ProtocolParameter__ProtocolParameter_getColumnIndex_Static_Z3A4310A5(p) {

package/ISA/ISA/JsonTypes/Component.js

@@ -1,8 +1,8 @@
 import { Record } from "../../../fable_modules/fable-library.4.5.0/Types.js";
 import { record_type, option_type, string_type } from "../../../fable_modules/fable-library.4.5.0/Reflection.js";
-import { Value as Value_1, Value_fromString_Z721C83C5, Value__get_Text, Value_$reflection } from "./Value.js";
+import { Value as Value_1, Value_$reflection } from "./Value.js";
 import { OntologyAnnotation, OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
-import { create, match } from "../../../fable_modules/fable-library.4.5.0/RegExp.js";
+import { ActivePatterns_$007CRegex$007C_$007C } from "../Regex.js";
 import { AnnotationValue } from "./AnnotationValue.js";
 import { map, defaultArg, unwrap } from "../../../fable_modules/fable-library.4.5.0/Option.js";
 import { Option_fromValueWithDefault } from "../Helper.js";
@@ -52,11 +52,11 @@ export function Component_composeName(value, unit) {
     else if (unit != null) {
         const u = unit;
         const v_1 = value;
-        return `${Value__get_Text(v_1)} ${u.NameText} (${u.TermAccessionShort})`;
+        return `${v_1.Text} ${u.NameText} (${u.TermAccessionShort})`;
     }
     else {
         const v = value;
-        return `${Value__get_Text(v)}`;
+        return `${v.Text}`;
     }
 }
 
@@ -68,22 +68,30 @@ export function Component_composeName(value, unit) {
  * Without this string composition we loose the ontology information for the header value.
  */
 export function Component_decomposeName_Z721C83C5(name) {
-    const r = match(create("(?<value>[^\\(]+) \\((?<ontology>[^(]*:[^)]*)\\)"), name);
-    const unitr = match(create("(?<value>[\\d\\.]+) (?<unit>.+) \\((?<ontology>[^(]*:[^)]*)\\)"), name);
-    if (unitr != null) {
+    let value;
+    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("(?<value>[\\d\\.]+) (?<unit>.+) \\((?<ontology>[^(]*:[^)]*)\\)", name);
+    if (activePatternResult != null) {
+        const unitr = activePatternResult;
         let oa;
         const termAnnotation = (unitr.groups && unitr.groups.ontology) || "";
         oa = OntologyAnnotation.fromTermAnnotation(termAnnotation);
-        return [Value_fromString_Z721C83C5((unitr.groups && unitr.groups.value) || ""), new OntologyAnnotation(oa.ID, new AnnotationValue(0, [(unitr.groups && unitr.groups.unit) || ""]), oa.TermSourceREF, oa.TermAccessionNumber, oa.Comments)];
-    }
-    else if (r != null) {
-        let oa_1;
-        const termAnnotation_1 = (r.groups && r.groups.ontology) || "";
-        oa_1 = OntologyAnnotation.fromTermAnnotation(termAnnotation_1);
-        return [new Value_1(0, [new OntologyAnnotation(oa_1.ID, new AnnotationValue(0, [Value__get_Text(Value_fromString_Z721C83C5((r.groups && r.groups.value) || ""))]), oa_1.TermSourceREF, oa_1.TermAccessionNumber, oa_1.Comments)]), void 0];
+        return [(value = ((unitr.groups && unitr.groups.value) || ""), Value_1.fromString(value)), new OntologyAnnotation(oa.ID, new AnnotationValue(0, [(unitr.groups && unitr.groups.unit) || ""]), oa.TermSourceREF, oa.TermAccessionNumber, oa.Comments)];
     }
     else {
-        return [new Value_1(3, [name]), void 0];
+        const activePatternResult_1 = ActivePatterns_$007CRegex$007C_$007C("(?<value>[^\\(]+) \\((?<ontology>[^(]*:[^)]*)\\)", name);
+        if (activePatternResult_1 != null) {
+            const r = activePatternResult_1;
+            let oa_1;
+            const termAnnotation_1 = (r.groups && r.groups.ontology) || "";
+            oa_1 = OntologyAnnotation.fromTermAnnotation(termAnnotation_1);
+            let v_1;
+            const value_1 = (r.groups && r.groups.value) || "";
+            v_1 = Value_1.fromString(value_1);
+            return [new Value_1(0, [new OntologyAnnotation(oa_1.ID, new AnnotationValue(0, [v_1.Text]), oa_1.TermSourceREF, oa_1.TermAccessionNumber, oa_1.Comments)]), void 0];
+        }
+        else {
+            return [new Value_1(3, [name]), void 0];
+        }
     }
 }
 
@@ -133,7 +141,7 @@ export function Component__get_UnitText(this$) {
 }
 
 export function Component__get_ValueText(this$) {
-    return defaultArg(map(Value__get_Text, this$.ComponentValue), "");
+    return defaultArg(map((c) => c.Text, this$.ComponentValue), "");
 }
 
 export function Component__get_ValueWithUnitText(this$) {

package/ISA/ISA/JsonTypes/OntologyAnnotation.js

@@ -1,4 +1,4 @@
-import { value as value_4, map, defaultArg, bind, unwrap } from "../../../fable_modules/fable-library.4.5.0/Option.js";
+import { value as value_4, map, defaultArg, unwrap } from "../../../fable_modules/fable-library.4.5.0/Option.js";
 import { Pattern_TermAnnotationShortPattern, ActivePatterns_$007CRegex$007C_$007C, tryParseTermAnnotation } from "../Regex.js";
 import { equals, stringHash, int32ToString } from "../../../fable_modules/fable-library.4.5.0/Util.js";
 import { AnnotationValue_$reflection, AnnotationValue_toString_Z6FAD7738, AnnotationValue_fromString_Z721C83C5 } from "./AnnotationValue.js";
@@ -29,8 +29,9 @@ export class OntologyAnnotation extends Record {
         return OntologyAnnotation.create();
     }
     get TANInfo() {
+        let matchValue;
         const this$ = this;
-        return unwrap(bind(tryParseTermAnnotation, this$.TermAccessionNumber));
+        return unwrap((matchValue = this$.TermAccessionNumber, (matchValue == null) ? void 0 : tryParseTermAnnotation(matchValue)));
     }
     get NameText() {
         const this$ = this;

package/ISA/ISA/JsonTypes/Process.js

@@ -8,11 +8,11 @@ import { ProcessParameterValue_$reflection } from "./ProcessParameterValue.js";
 import { ProcessInput_tryMaterial_102B6859, ProcessInput_trySample_102B6859, ProcessInput_tryData_102B6859, ProcessInput_trySource_102B6859, ProcessInput_tryGetCharacteristicValues_102B6859, ProcessInput_$reflection } from "./ProcessInput.js";
 import { ProcessOutput_tryGetFactorValues_11830B70, ProcessOutput_tryGetCharacteristicValues_11830B70, ProcessOutput_$reflection } from "./ProcessOutput.js";
 import { Comment$_$reflection } from "./Comment.js";
-import { create, match } from "../../../fable_modules/fable-library.4.5.0/RegExp.js";
+import { ActivePatterns_$007CRegex$007C_$007C } from "../Regex.js";
 import { parse } from "../../../fable_modules/fable-library.4.5.0/Int32.js";
 import { List_distinct } from "../../../fable_modules/fable-library.4.5.0/Seq2.js";
 import { safeHash, equals } from "../../../fable_modules/fable-library.4.5.0/Util.js";
-import { ProtocolParameter_get_empty } from "./ProtocolParameter.js";
+import { ProtocolParameter } from "./ProtocolParameter.js";
 import { Update_UpdateOptions, Option_fromValueWithDefault } from "../Helper.js";
 import { map2 } from "../../../fable_modules/fable-library.4.5.0/Array.js";
 import { Update_updateOnlyByExistingAppend, Update_updateOnlyByExisting, Update_updateAppend } from "../Helper.js";
@@ -67,8 +67,9 @@ export function Process_composeName(processNameRoot, i) {
 }
 
 export function Process_decomposeName_Z721C83C5(name) {
-    const r = match(create("(?<name>.+)_(?<num>\\d+)"), name);
-    if (r != null) {
+    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("(?<name>.+)_(?<num>\\d+)", name);
+    if (activePatternResult != null) {
+        const r = activePatternResult;
         return [(r.groups && r.groups.name) || "", parse((r.groups && r.groups.num) || "", 511, false, 32)];
     }
     else {
@@ -192,7 +193,7 @@ export function Process_tryGetInputsWithParameterBy(predicate, p) {
         return void 0;
     }
     else {
-        const matchValue_1 = tryFind((pv) => predicate(defaultArg(pv.Category, ProtocolParameter_get_empty())), matchValue);
+        const matchValue_1 = tryFind((pv) => predicate(defaultArg(pv.Category, ProtocolParameter.empty)), matchValue);
         if (matchValue_1 == null) {
             return void 0;
         }
@@ -212,7 +213,7 @@ export function Process_tryGetOutputsWithParameterBy(predicate, p) {
         return void 0;
     }
     else {
-        const matchValue_1 = tryFind((pv) => predicate(defaultArg(pv.Category, ProtocolParameter_get_empty())), matchValue);
+        const matchValue_1 = tryFind((pv) => predicate(defaultArg(pv.Category, ProtocolParameter.empty)), matchValue);
         if (matchValue_1 == null) {
             return void 0;
         }

package/ISA/ISA/JsonTypes/ProcessParameterValue.js

@@ -1,11 +1,11 @@
+import { bind, unwrap, map, defaultArg } from "../../../fable_modules/fable-library.4.5.0/Option.js";
+import { int32ToString } from "../../../fable_modules/fable-library.4.5.0/Util.js";
+import { printf, toText } from "../../../fable_modules/fable-library.4.5.0/String.js";
+import { ProtocolParameter_$reflection, ProtocolParameter } from "./ProtocolParameter.js";
 import { Record, toString } from "../../../fable_modules/fable-library.4.5.0/Types.js";
-import { bind, defaultArg, map } from "../../../fable_modules/fable-library.4.5.0/Option.js";
-import { ProtocolParameter__SetCategory_Z4C0FE73C, ProtocolParameter_create_Z6C54B221, ProtocolParameter__MapCategory_Z69DD836A, ProtocolParameter__get_TryNameText, ProtocolParameter_$reflection, ProtocolParameter__get_NameText } from "./ProtocolParameter.js";
 import { record_type, option_type } from "../../../fable_modules/fable-library.4.5.0/Reflection.js";
 import { Value_$reflection } from "./Value.js";
 import { OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
-import { int32ToString } from "../../../fable_modules/fable-library.4.5.0/Util.js";
-import { printf, toText } from "../../../fable_modules/fable-library.4.5.0/String.js";
 
 export class ProcessParameterValue extends Record {
     constructor(Category, Value, Unit) {
@@ -14,6 +14,71 @@ export class ProcessParameterValue extends Record {
         this.Value = Value;
         this.Unit = Unit;
     }
+    static make(category, value, unit) {
+        return new ProcessParameterValue(category, value, unit);
+    }
+    static create(Category, Value, Unit) {
+        return ProcessParameterValue.make(Category, Value, Unit);
+    }
+    static get empty() {
+        return ProcessParameterValue.create();
+    }
+    get NameText() {
+        const this$ = this;
+        return defaultArg(map((oa) => oa.NameText, this$.Category), "");
+    }
+    get TryNameText() {
+        const this$ = this;
+        return unwrap(bind((oa) => oa.TryNameText, this$.Category));
+    }
+    get ValueText() {
+        const this$ = this;
+        return defaultArg(map((oa) => {
+            switch (oa.tag) {
+                case 2:
+                    return oa.fields[0].toString();
+                case 1:
+                    return int32ToString(oa.fields[0]);
+                case 3:
+                    return oa.fields[0];
+                default:
+                    return oa.fields[0].NameText;
+            }
+        }, this$.Value), "");
+    }
+    get ValueWithUnitText() {
+        const this$ = this;
+        const unit = map((oa) => oa.NameText, this$.Unit);
+        const v = this$.ValueText;
+        if (unit == null) {
+            return v;
+        }
+        else {
+            const u = unit;
+            return toText(printf("%s %s"))(v)(u);
+        }
+    }
+    MapCategory(f) {
+        const this$ = this;
+        return new ProcessParameterValue(map((p) => p.MapCategory(f), this$.Category), this$.Value, this$.Unit);
+    }
+    SetCategory(c) {
+        let matchValue, p;
+        const this$ = this;
+        return new ProcessParameterValue((matchValue = this$.Category, (matchValue == null) ? ProtocolParameter.create(void 0, c) : ((p = matchValue, p.SetCategory(c)))), this$.Value, this$.Unit);
+    }
+    static tryGetNameText(pv) {
+        return pv.TryNameText;
+    }
+    static getNameText(pv) {
+        return pv.NameText;
+    }
+    static nameEqualsString(name, pv) {
+        return pv.NameText === name;
+    }
+    static getCategory(pv) {
+        return pv.Category;
+    }
     Print() {
         const this$ = this;
         return toString(this$);
@@ -21,7 +86,7 @@ export class ProcessParameterValue extends Record {
     PrintCompact() {
         let value_2, category_2, category_1, value_1;
         const this$ = this;
-        const category = map(ProtocolParameter__get_NameText, this$.Category);
+        const category = map((f) => f.NameText, this$.Category);
         const unit = map((oa) => oa.NameText, this$.Unit);
         const value = map((v) => {
             const s = v.PrintCompact();
@@ -40,90 +105,3 @@ export function ProcessParameterValue_$reflection() {
     return record_type("ARCtrl.ISA.ProcessParameterValue", [], ProcessParameterValue, () => [["Category", option_type(ProtocolParameter_$reflection())], ["Value", option_type(Value_$reflection())], ["Unit", option_type(OntologyAnnotation_$reflection())]]);
 }
 
-export function ProcessParameterValue_make(category, value, unit) {
-    return new ProcessParameterValue(category, value, unit);
-}
-
-export function ProcessParameterValue_create_569825F3(Category, Value, Unit) {
-    return ProcessParameterValue_make(Category, Value, Unit);
-}
-
-export function ProcessParameterValue_get_empty() {
-    return ProcessParameterValue_create_569825F3();
-}
-
-/**
- * Returns the name of the category as string
- */
-export function ProcessParameterValue__get_NameText(this$) {
-    return defaultArg(map(ProtocolParameter__get_NameText, this$.Category), "");
-}
-
-/**
- * Returns the name of the category as string
- */
-export function ProcessParameterValue__get_TryNameText(this$) {
-    return bind(ProtocolParameter__get_TryNameText, this$.Category);
-}
-
-export function ProcessParameterValue__get_ValueText(this$) {
-    return defaultArg(map((oa) => {
-        switch (oa.tag) {
-            case 2:
-                return oa.fields[0].toString();
-            case 1:
-                return int32ToString(oa.fields[0]);
-            case 3:
-                return oa.fields[0];
-            default:
-                return oa.fields[0].NameText;
-        }
-    }, this$.Value), "");
-}
-
-export function ProcessParameterValue__get_ValueWithUnitText(this$) {
-    const unit = map((oa) => oa.NameText, this$.Unit);
-    const v = ProcessParameterValue__get_ValueText(this$);
-    if (unit == null) {
-        return v;
-    }
-    else {
-        const u = unit;
-        return toText(printf("%s %s"))(v)(u);
-    }
-}
-
-export function ProcessParameterValue__MapCategory_Z69DD836A(this$, f) {
-    return new ProcessParameterValue(map((p) => ProtocolParameter__MapCategory_Z69DD836A(p, f), this$.Category), this$.Value, this$.Unit);
-}
-
-export function ProcessParameterValue__SetCategory_Z4C0FE73C(this$, c) {
-    let matchValue;
-    return new ProcessParameterValue((matchValue = this$.Category, (matchValue == null) ? ProtocolParameter_create_Z6C54B221(void 0, c) : ProtocolParameter__SetCategory_Z4C0FE73C(matchValue, c)), this$.Value, this$.Unit);
-}
-
-/**
- * Returns the name of the paramater value as string if it exists
- */
-export function ProcessParameterValue_tryGetNameText_5FD7232D(pv) {
-    return ProcessParameterValue__get_TryNameText(pv);
-}
-
-/**
- * Returns the name of the paramater value as string
- */
-export function ProcessParameterValue_getNameText_5FD7232D(pv) {
-    return ProcessParameterValue__get_NameText(pv);
-}
-
-/**
- * Returns true if the given name matches the name of the parameter value
- */
-export function ProcessParameterValue_nameEqualsString(name, pv) {
-    return ProcessParameterValue__get_NameText(pv) === name;
-}
-
-export function ProcessParameterValue_getCategory_5FD7232D(pv) {
-    return pv.Category;
-}
-