@nfdi4plants/arctrl 1.0.0-beta.7 → 1.0.0-beta.9

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;
-}
-

package/ISA/ISA/JsonTypes/ProtocolParameter.js

@@ -1,8 +1,8 @@
-import { Record, toString } 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 { OntologyAnnotation, OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
+import { OntologyAnnotation_$reflection, OntologyAnnotation } from "./OntologyAnnotation.js";
 import { bind, map, defaultArg, unwrap } from "../../../fable_modules/fable-library.4.5.0/Option.js";
 import { Option_fromValueWithDefault } from "../Helper.js";
+import { Record, toString } 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";
 
 export class ProtocolParameter extends Record {
     constructor(ID, ParameterName) {
@@ -10,13 +10,60 @@ export class ProtocolParameter extends Record {
         this.ID = ID;
         this.ParameterName = ParameterName;
     }
+    static make(id, parameterName) {
+        return new ProtocolParameter(id, parameterName);
+    }
+    static create(Id, ParameterName) {
+        return ProtocolParameter.make(Id, ParameterName);
+    }
+    static get empty() {
+        return ProtocolParameter.create();
+    }
+    static fromString(term, source, accession, comments) {
+        const oa = OntologyAnnotation.fromString(term, source, accession, unwrap(comments));
+        const parameterName = Option_fromValueWithDefault(OntologyAnnotation.empty, oa);
+        return ProtocolParameter.make(void 0, parameterName);
+    }
+    static toString(pp) {
+        const value = {
+            TermAccessionNumber: "",
+            TermName: "",
+            TermSourceREF: "",
+        };
+        return defaultArg(map((oa) => OntologyAnnotation.toString(oa), pp.ParameterName), value);
+    }
+    get NameText() {
+        const this$ = this;
+        return defaultArg(map((oa) => oa.NameText, this$.ParameterName), "");
+    }
+    get TryNameText() {
+        const this$ = this;
+        return unwrap(bind((oa) => oa.TryNameText, this$.ParameterName));
+    }
+    MapCategory(f) {
+        const this$ = this;
+        return new ProtocolParameter(this$.ID, map(f, this$.ParameterName));
+    }
+    SetCategory(c) {
+        const this$ = this;
+        return new ProtocolParameter(this$.ID, c);
+    }
+    static tryGetNameText(pp) {
+        return pp.TryNameText;
+    }
+    static getNameText(pp) {
+        return defaultArg(ProtocolParameter.tryGetNameText(pp), "");
+    }
+    static nameEqualsString(name, pp) {
+        return pp.NameText === name;
+    }
     Print() {
         const this$ = this;
         return toString(this$);
     }
     PrintCompact() {
         const this$ = this;
-        return "OA " + ProtocolParameter__get_NameText(this$);
+        return "OA " + this$.NameText;
     }
 }
 
@@ -24,78 +71,3 @@ export function ProtocolParameter_$reflection() {
     return record_type("ARCtrl.ISA.ProtocolParameter", [], ProtocolParameter, () => [["ID", option_type(string_type)], ["ParameterName", option_type(OntologyAnnotation_$reflection())]]);
 }
 
-export function ProtocolParameter_make(id, parameterName) {
-    return new ProtocolParameter(id, parameterName);
-}
-
-export function ProtocolParameter_create_Z6C54B221(Id, ParameterName) {
-    return ProtocolParameter_make(Id, ParameterName);
-}
-
-export function ProtocolParameter_get_empty() {
-    return ProtocolParameter_create_Z6C54B221();
-}
-
-/**
- * Create a ISAJson Protocol Parameter from ISATab string entries
- */
-export function ProtocolParameter_fromString_Z2304A83C(term, source, accession, comments) {
-    const oa = OntologyAnnotation.fromString(term, source, accession, unwrap(comments));
-    return ProtocolParameter_make(void 0, Option_fromValueWithDefault(OntologyAnnotation.empty, oa));
-}
-
-/**
- * Get ISATab string entries from an ISAJson ProtocolParameter object (name,source,accession)
- */
-export function ProtocolParameter_toString_Z3A4310A5(pp) {
-    const value = {
-        TermAccessionNumber: "",
-        TermName: "",
-        TermSourceREF: "",
-    };
-    return defaultArg(map((oa) => OntologyAnnotation.toString(oa), pp.ParameterName), value);
-}
-
-/**
- * Returns the name of the parameter as string
- */
-export function ProtocolParameter__get_NameText(this$) {
-    return defaultArg(map((oa) => oa.NameText, this$.ParameterName), "");
-}
-
-/**
- * Returns the name of the parameter as string
- */
-export function ProtocolParameter__get_TryNameText(this$) {
-    return bind((oa) => oa.TryNameText, this$.ParameterName);
-}
-
-export function ProtocolParameter__MapCategory_Z69DD836A(this$, f) {
-    return new ProtocolParameter(this$.ID, map(f, this$.ParameterName));
-}
-
-export function ProtocolParameter__SetCategory_Z4C0FE73C(this$, c) {
-    return new ProtocolParameter(this$.ID, c);
-}
-
-/**
- * Returns the name of the paramater as string if it exists
- */
-export function ProtocolParameter_tryGetNameText_Z3A4310A5(pp) {
-    return ProtocolParameter__get_TryNameText(pp);
-}
-
-/**
- * Returns the name of the paramater as string
- */
-export function ProtocolParameter_getNameText_Z3A4310A5(pp) {
-    return defaultArg(ProtocolParameter_tryGetNameText_Z3A4310A5(pp), "");
-}
-
-/**
- * Returns true if the given name matches the name of the parameter
- */
-export function ProtocolParameter_nameEqualsString(name, pp) {
-    return ProtocolParameter__get_NameText(pp) === name;
-}
-

package/ISA/ISA/JsonTypes/Value.js

@@ -1,12 +1,12 @@
-import { Union, toString } from "../../../fable_modules/fable-library.4.5.0/Types.js";
-import { printf, toText } from "../../../fable_modules/fable-library.4.5.0/String.js";
-import { OntologyAnnotation, OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
-import { union_type, string_type, float64_type, int32_type } from "../../../fable_modules/fable-library.4.5.0/Reflection.js";
 import { parse } from "../../../fable_modules/fable-library.4.5.0/Double.js";
 import { parse as parse_1 } from "../../../fable_modules/fable-library.4.5.0/Int32.js";
+import { OntologyAnnotation_$reflection, OntologyAnnotation } from "./OntologyAnnotation.js";
 import { 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 { AnnotationValue_toString_Z6FAD7738 } from "./AnnotationValue.js";
+import { Union, toString } from "../../../fable_modules/fable-library.4.5.0/Types.js";
+import { printf, toText } from "../../../fable_modules/fable-library.4.5.0/String.js";
+import { union_type, string_type, float64_type, int32_type } from "../../../fable_modules/fable-library.4.5.0/Reflection.js";
 
 export class Value extends Union {
     constructor(tag, fields) {
@@ -17,194 +17,129 @@ export class Value extends Union {
     cases() {
         return ["Ontology", "Int", "Float", "Name"];
     }
-    Print() {
-        const this$ = this;
-        return toString(this$);
-    }
-    PrintCompact() {
-        const this$ = this;
-        return (this$.tag === 1) ? toText(printf("%i"))(this$.fields[0]) : ((this$.tag === 2) ? toText(printf("%f"))(this$.fields[0]) : ((this$.tag === 3) ? this$.fields[0] : this$.fields[0].NameText));
-    }
-}
-
-export function Value_$reflection() {
-    return union_type("ARCtrl.ISA.Value", [], Value, () => [[["Item", OntologyAnnotation_$reflection()]], [["Item", int32_type]], [["Item", float64_type]], [["Item", string_type]]]);
-}
-
-export function Value_fromString_Z721C83C5(value) {
-    try {
-        return new Value(1, [parse_1(value, 511, false, 32)]);
-    }
-    catch (matchValue) {
+    static fromString(value) {
         try {
-            return new Value(2, [parse(value)]);
+            return new Value(1, [parse_1(value, 511, false, 32)]);
         }
-        catch (matchValue_1) {
-            return new Value(3, [value]);
+        catch (matchValue) {
+            try {
+                return new Value(2, [parse(value)]);
+            }
+            catch (matchValue_1) {
+                return new Value(3, [value]);
+            }
         }
     }
-}
-
-export function Value_fromOptions(value, termSource, termAccesssion) {
-    let matchResult, value_1;
-    if (value == null) {
-        if (termSource == null) {
-            if (termAccesssion == null) {
-                matchResult = 1;
+    static fromOptions(value, termSource, termAccesssion) {
+        let value_1;
+        return (value == null) ? ((termSource == null) ? ((termAccesssion == null) ? void 0 : (new Value(0, [OntologyAnnotation.fromString(defaultArg(value, ""), termSource, termAccesssion)]))) : (new Value(0, [OntologyAnnotation.fromString(defaultArg(value, ""), termSource, termAccesssion)]))) : ((termSource == null) ? ((termAccesssion == null) ? ((value_1 = value, (() => {
+            try {
+                return new Value(1, [parse_1(value_1, 511, false, 32)]);
+            }
+            catch (matchValue_1) {
+                try {
+                    return new Value(2, [parse(value_1)]);
+                }
+                catch (matchValue_2) {
+                    return new Value(3, [value_1]);
+                }
             }
-            else {
-                matchResult = 2;
+        })())) : (new Value(0, [OntologyAnnotation.fromString(defaultArg(value, ""), termSource, termAccesssion)]))) : (new Value(0, [OntologyAnnotation.fromString(defaultArg(value, ""), termSource, termAccesssion)])));
+    }
+    static toOptions(value) {
+        switch (value.tag) {
+            case 1:
+                return [int32ToString(value.fields[0]), void 0, void 0];
+            case 2:
+                return [value.fields[0].toString(), void 0, void 0];
+            case 3:
+                return [value.fields[0], void 0, void 0];
+            default: {
+                const oa = value.fields[0];
+                return [map(AnnotationValue_toString_Z6FAD7738, oa.Name), oa.TermAccessionNumber, oa.TermSourceREF];
             }
         }
+    }
+    get Text() {
+        const this$ = this;
+        return (this$.tag === 2) ? this$.fields[0].toString() : ((this$.tag === 1) ? int32ToString(this$.fields[0]) : ((this$.tag === 3) ? this$.fields[0] : this$.fields[0].NameText));
+    }
+    AsName() {
+        const this$ = this;
+        if (this$.tag === 3) {
+            return this$.fields[0];
+        }
         else {
-            matchResult = 2;
+            throw new Error(`Value ${this$} is not of case name`);
         }
     }
-    else if (termSource == null) {
-        if (termAccesssion == null) {
-            matchResult = 0;
-            value_1 = value;
+    AsInt() {
+        const this$ = this;
+        if (this$.tag === 1) {
+            return this$.fields[0] | 0;
         }
         else {
-            matchResult = 2;
+            throw new Error(`Value ${this$} is not of case int`);
         }
     }
-    else {
-        matchResult = 2;
-    }
-    switch (matchResult) {
-        case 0:
-            return (() => {
-                try {
-                    return new Value(1, [parse_1(value_1, 511, false, 32)]);
-                }
-                catch (matchValue_1) {
-                    try {
-                        return new Value(2, [parse(value_1)]);
-                    }
-                    catch (matchValue_2) {
-                        return new Value(3, [value_1]);
-                    }
-                }
-            })();
-        case 1:
-            return void 0;
-        default:
-            return new Value(0, [OntologyAnnotation.fromString(defaultArg(value, ""), termSource, termAccesssion)]);
-    }
-}
-
-export function Value_toOptions_72E9EF0F(value) {
-    switch (value.tag) {
-        case 1:
-            return [int32ToString(value.fields[0]), void 0, void 0];
-        case 2:
-            return [value.fields[0].toString(), void 0, void 0];
-        case 3:
-            return [value.fields[0], void 0, void 0];
-        default: {
-            const oa = value.fields[0];
-            return [map(AnnotationValue_toString_Z6FAD7738, oa.Name), oa.TermAccessionNumber, oa.TermSourceREF];
+    AsFloat() {
+        const this$ = this;
+        if (this$.tag === 2) {
+            return this$.fields[0];
+        }
+        else {
+            throw new Error(`Value ${this$} is not of case float`);
         }
     }
-}
-
-export function Value__get_Text(this$) {
-    switch (this$.tag) {
-        case 2:
-            return this$.fields[0].toString();
-        case 1:
-            return int32ToString(this$.fields[0]);
-        case 3:
+    AsOntology() {
+        const this$ = this;
+        if (this$.tag === 0) {
             return this$.fields[0];
-        default:
-            return this$.fields[0].NameText;
-    }
-}
-
-export function Value__AsName(this$) {
-    if (this$.tag === 3) {
-        return this$.fields[0];
-    }
-    else {
-        throw new Error(`Value ${this$} is not of case name`);
-    }
-}
-
-export function Value__AsInt(this$) {
-    if (this$.tag === 1) {
-        return this$.fields[0] | 0;
-    }
-    else {
-        throw new Error(`Value ${this$} is not of case int`);
-    }
-}
-
-export function Value__AsFloat(this$) {
-    if (this$.tag === 2) {
-        return this$.fields[0];
-    }
-    else {
-        throw new Error(`Value ${this$} is not of case float`);
-    }
-}
-
-export function Value__AsOntology(this$) {
-    if (this$.tag === 0) {
-        return this$.fields[0];
-    }
-    else {
-        throw new Error(`Value ${this$} is not of case ontology`);
-    }
-}
-
-export function Value__get_IsAnOntology(this$) {
-    if (this$.tag === 0) {
-        return true;
+        }
+        else {
+            throw new Error(`Value ${this$} is not of case ontology`);
+        }
     }
-    else {
-        return false;
+    get IsAnOntology() {
+        const this$ = this;
+        return this$.tag === 0;
     }
-}
-
-export function Value__get_IsNumerical(this$) {
-    switch (this$.tag) {
-        case 1:
-        case 2:
-            return true;
-        default:
-            return false;
+    get IsNumerical() {
+        const this$ = this;
+        switch (this$.tag) {
+            case 1:
+            case 2:
+                return true;
+            default:
+                return false;
+        }
     }
-}
-
-export function Value__get_IsAnInt(this$) {
-    if (this$.tag === 1) {
-        return true;
+    get IsAnInt() {
+        const this$ = this;
+        return this$.tag === 1;
     }
-    else {
-        return false;
+    get IsAFloat() {
+        const this$ = this;
+        return this$.tag === 2;
     }
-}
-
-export function Value__get_IsAFloat(this$) {
-    if (this$.tag === 2) {
-        return true;
+    get IsAText() {
+        const this$ = this;
+        return this$.tag === 3;
     }
-    else {
-        return false;
+    static getText(v) {
+        return v.Text;
     }
-}
-
-export function Value__get_IsAText(this$) {
-    if (this$.tag === 3) {
-        return true;
+    Print() {
+        const this$ = this;
+        return toString(this$);
     }
-    else {
-        return false;
+    PrintCompact() {
+        const this$ = this;
+        return (this$.tag === 1) ? toText(printf("%i"))(this$.fields[0]) : ((this$.tag === 2) ? toText(printf("%f"))(this$.fields[0]) : ((this$.tag === 3) ? this$.fields[0] : this$.fields[0].NameText));
     }
 }
 
-export function Value_getText_72E9EF0F(v) {
-    return Value__get_Text(v);
+export function Value_$reflection() {
+    return union_type("ARCtrl.ISA.Value", [], Value, () => [[["Item", OntologyAnnotation_$reflection()]], [["Item", int32_type]], [["Item", float64_type]], [["Item", string_type]]]);
 }
 

package/ISA/ISA/Regex.js

@@ -1,6 +1,10 @@
 import { create, match } from "../../fable_modules/fable-library.4.5.0/RegExp.js";
-import { value as value_1, map, some } from "../../fable_modules/fable-library.4.5.0/Option.js";
 import { parse } from "../../fable_modules/fable-library.4.5.0/Int32.js";
+import { map } from "../../fable_modules/fable-library.4.5.0/Option.js";
+
+export function Pattern_handleGroupPatterns(pattern) {
+    return pattern;
+}
 
 export const Pattern_ExcelNumberFormat = `"(?<${"numberFormat"}>(.*?))"`;
 
@@ -20,7 +24,7 @@ export const Pattern_OutputPattern = `Output\\s\\[(?<${"iotype"}>.+)\\]`;
  * Matches, if the input string matches the given regex pattern.
  */
 export function ActivePatterns_$007CRegex$007C_$007C(pattern, input) {
-    const m = match(create(pattern), input.trim());
+    const m = match(create(Pattern_handleGroupPatterns(pattern)), input.trim());
     if (m != null) {
         return m;
     }
@@ -66,8 +70,10 @@ export function ActivePatterns_$007CTermColumn$007C_$007C(input) {
  * Matches a "Unit" column header.
  */
 export function ActivePatterns_$007CUnitColumnHeader$007C_$007C(input) {
-    if (ActivePatterns_$007CRegex$007C_$007C("Unit", input) != null) {
-        return some(void 0);
+    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("Unit", input);
+    if (activePatternResult != null) {
+        const o = activePatternResult;
+        return o[0];
     }
     else {
         return void 0;
@@ -462,8 +468,8 @@ export function tryParseTermColumn(input) {
 export function tryParseUnitColumnHeader(input) {
     const activePatternResult = ActivePatterns_$007CUnitColumnHeader$007C_$007C(input);
     if (activePatternResult != null) {
-        const r = value_1(activePatternResult);
-        return some(void 0);
+        const r = activePatternResult;
+        return r;
     }
     else {
         return void 0;