@nfdi4plants/arctrl 1.0.0-beta.5 → 1.0.0-beta.6

package/ISA/ISA/ArcTypes/ArcTypes.js

@@ -1,5 +1,5 @@
 import { map as map_1, defaultArg, unwrap } from "../../../fable_modules/fable-library.4.5.0/Option.js";
-import { concat, collect, append as append_4, tryFind, removeAt, tryFindIndex, item as item_1, map as map_2, delay, toList, fold, length, forAll, contains, filter, toArray } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
+import { concat, collect, append as append_4, tryFind, removeAt, tryFindIndex, choose, item, map as map_2, delay, toList, fold, length, forAll, contains, filter, toArray } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
 import { defaultOf, safeHash, equals, disposeSafe, getEnumerator, stringHash } from "../../../fable_modules/fable-library.4.5.0/Util.js";
 import { addRangeInPlace, tryFind as tryFind_1, removeInPlace, equalsWith, append as append_3, contains as contains_1, map } from "../../../fable_modules/fable-library.4.5.0/Array.js";
 import { distinctBy, Array_distinct } from "../../../fable_modules/fable-library.4.5.0/Seq2.js";
@@ -10,7 +10,7 @@ import { Value_fromString_Z721C83C5, Value__get_Text } from "../JsonTypes/Value.
 import { AnnotationValue } from "../JsonTypes/AnnotationValue.js";
 import { ArcTablesAux_applyIOMap, ArcTablesAux_getIOMap, ArcTables_$reflection, ArcTables } from "./ArcTables.js";
 import { AssayMaterials_get_empty, AssayMaterials_create_Z253F0553 } from "../JsonTypes/AssayMaterials.js";
-import { HashCodes_boxHashOption, HashCodes_boxHashArray, Option_fromValueWithDefault } from "../Helper.js";
+import { ResizeArray_map, HashCodes_boxHashOption, HashCodes_boxHashArray, Option_fromValueWithDefault } from "../Helper.js";
 import { unzip, ofSeq, map as map_3, toArray as toArray_1, ofArray, empty } from "../../../fable_modules/fable-library.4.5.0/List.js";
 import { getSources, getProtocols, getUnits, getCharacteristics, getData, getMaterials, getSamples } from "../JsonTypes/ProcessSequence.js";
 import { Assay_create_3D372A24 } from "../JsonTypes/Assay.js";
@@ -510,21 +510,21 @@ export class ArcAssay extends ArcTables {
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_1) => equals(item_1(i_1, a), item_1(i_1, b)), rangeDouble(0, 1, length(a) - 1))))))), (a_1 = this$.Performers, (b_1 = other.Performers, (length(a_1) === length(b_1)) && fold((acc_1, e_1) => {
+        }, true, toList(delay(() => map_2((i_1) => equals(item(i_1, a), item(i_1, b)), rangeDouble(0, 1, length(a) - 1))))))), (a_1 = this$.Performers, (b_1 = other.Performers, (length(a_1) === length(b_1)) && fold((acc_1, e_1) => {
             if (acc_1) {
                 return e_1;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_2) => equals(item_1(i_2, a_1), item_1(i_2, b_1)), rangeDouble(0, 1, length(a_1) - 1))))))), (a_2 = this$.Comments, (b_2 = other.Comments, (length(a_2) === length(b_2)) && fold((acc_2, e_2) => {
+        }, true, toList(delay(() => map_2((i_2) => equals(item(i_2, a_1), item(i_2, b_1)), rangeDouble(0, 1, length(a_1) - 1))))))), (a_2 = this$.Comments, (b_2 = other.Comments, (length(a_2) === length(b_2)) && fold((acc_2, e_2) => {
             if (acc_2) {
                 return e_2;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_3) => equals(item_1(i_3, a_2), item_1(i_3, b_2)), rangeDouble(0, 1, length(a_2) - 1)))))))]);
+        }, true, toList(delay(() => map_2((i_3) => equals(item(i_3, a_2), item(i_3, b_2)), rangeDouble(0, 1, length(a_2) - 1)))))))]);
     }
     ReferenceEquals(other) {
         const this$ = this;
@@ -697,23 +697,8 @@ export class ArcStudy extends ArcTables {
         else {
             throw new Error("Cannot execute this function. Object is not part of ArcInvestigation.");
         }
-        const assays = [];
-        let enumerator = getEnumerator(inv.Assays);
-        try {
-            while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-                const assay = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-                if (contains(assay.Identifier, this$.RegisteredAssayIdentifiers, {
-                    Equals: (x, y) => (x === y),
-                    GetHashCode: stringHash,
-                })) {
-                    void (assays.push(assay));
-                }
-            }
-        }
-        finally {
-            disposeSafe(enumerator);
-        }
-        return assays;
+        const collection = choose((assayIdentifier) => inv.TryGetAssay(assayIdentifier), this$.RegisteredAssayIdentifiers);
+        return Array.from(collection);
     }
     AddRegisteredAssay(assay) {
         const this$ = this;
@@ -812,12 +797,19 @@ export class ArcStudy extends ArcTables {
         const this$ = this;
         const matchValue = this$.Investigation;
         if (matchValue == null) {
-            const collection = map_2((identifier) => ArcAssay.init(identifier), this$.RegisteredAssayIdentifiers);
-            return Array.from(collection);
+            return ResizeArray_map((identifier_1) => ArcAssay.init(identifier_1), this$.RegisteredAssayIdentifiers);
         }
         else {
             const i = matchValue;
-            return this$.RegisteredAssays;
+            return ResizeArray_map((identifier) => {
+                const matchValue_1 = i.TryGetAssay(identifier);
+                if (matchValue_1 == null) {
+                    return ArcAssay.init(identifier);
+                }
+                else {
+                    return matchValue_1;
+                }
+            }, this$.RegisteredAssayIdentifiers);
         }
     }
     static getRegisteredAssaysOrIdentifier() {
@@ -1154,49 +1146,49 @@ export class ArcStudy extends ArcTables {
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_1) => equals(item_1(i_1, a), item_1(i_1, b)), rangeDouble(0, 1, length(a) - 1))))))), (a_1 = this$.Contacts, (b_1 = other.Contacts, (length(a_1) === length(b_1)) && fold((acc_1, e_1) => {
+        }, true, toList(delay(() => map_2((i_1) => equals(item(i_1, a), item(i_1, b)), rangeDouble(0, 1, length(a) - 1))))))), (a_1 = this$.Contacts, (b_1 = other.Contacts, (length(a_1) === length(b_1)) && fold((acc_1, e_1) => {
             if (acc_1) {
                 return e_1;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_2) => equals(item_1(i_2, a_1), item_1(i_2, b_1)), rangeDouble(0, 1, length(a_1) - 1))))))), (a_2 = this$.StudyDesignDescriptors, (b_2 = other.StudyDesignDescriptors, (length(a_2) === length(b_2)) && fold((acc_2, e_2) => {
+        }, true, toList(delay(() => map_2((i_2) => equals(item(i_2, a_1), item(i_2, b_1)), rangeDouble(0, 1, length(a_1) - 1))))))), (a_2 = this$.StudyDesignDescriptors, (b_2 = other.StudyDesignDescriptors, (length(a_2) === length(b_2)) && fold((acc_2, e_2) => {
             if (acc_2) {
                 return e_2;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_3) => equals(item_1(i_3, a_2), item_1(i_3, b_2)), rangeDouble(0, 1, length(a_2) - 1))))))), (a_3 = this$.Tables, (b_3 = other.Tables, (length(a_3) === length(b_3)) && fold((acc_3, e_3) => {
+        }, true, toList(delay(() => map_2((i_3) => equals(item(i_3, a_2), item(i_3, b_2)), rangeDouble(0, 1, length(a_2) - 1))))))), (a_3 = this$.Tables, (b_3 = other.Tables, (length(a_3) === length(b_3)) && fold((acc_3, e_3) => {
             if (acc_3) {
                 return e_3;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_4) => equals(item_1(i_4, a_3), item_1(i_4, b_3)), rangeDouble(0, 1, length(a_3) - 1))))))), (a_4 = this$.RegisteredAssayIdentifiers, (b_4 = other.RegisteredAssayIdentifiers, (length(a_4) === length(b_4)) && fold((acc_4, e_4) => {
+        }, true, toList(delay(() => map_2((i_4) => equals(item(i_4, a_3), item(i_4, b_3)), rangeDouble(0, 1, length(a_3) - 1))))))), (a_4 = this$.RegisteredAssayIdentifiers, (b_4 = other.RegisteredAssayIdentifiers, (length(a_4) === length(b_4)) && fold((acc_4, e_4) => {
             if (acc_4) {
                 return e_4;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_5) => (item_1(i_5, a_4) === item_1(i_5, b_4)), rangeDouble(0, 1, length(a_4) - 1))))))), (a_5 = this$.Factors, (b_5 = other.Factors, (length(a_5) === length(b_5)) && fold((acc_5, e_5) => {
+        }, true, toList(delay(() => map_2((i_5) => (item(i_5, a_4) === item(i_5, b_4)), rangeDouble(0, 1, length(a_4) - 1))))))), (a_5 = this$.Factors, (b_5 = other.Factors, (length(a_5) === length(b_5)) && fold((acc_5, e_5) => {
             if (acc_5) {
                 return e_5;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_6) => equals(item_1(i_6, a_5), item_1(i_6, b_5)), rangeDouble(0, 1, length(a_5) - 1))))))), (a_6 = this$.Comments, (b_6 = other.Comments, (length(a_6) === length(b_6)) && fold((acc_6, e_6) => {
+        }, true, toList(delay(() => map_2((i_6) => equals(item(i_6, a_5), item(i_6, b_5)), rangeDouble(0, 1, length(a_5) - 1))))))), (a_6 = this$.Comments, (b_6 = other.Comments, (length(a_6) === length(b_6)) && fold((acc_6, e_6) => {
             if (acc_6) {
                 return e_6;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_7) => equals(item_1(i_7, a_6), item_1(i_7, b_6)), rangeDouble(0, 1, length(a_6) - 1)))))))]);
+        }, true, toList(delay(() => map_2((i_7) => equals(item(i_7, a_6), item(i_7, b_6)), rangeDouble(0, 1, length(a_6) - 1)))))))]);
     }
     ReferenceEquals(other) {
         const this$ = this;
@@ -1257,7 +1249,7 @@ export class ArcInvestigation {
         const registeredStudyIdentifiers_1 = defaultArg(registeredStudyIdentifiers, []);
         const comments_1 = defaultArg(comments, []);
         const remarks_1 = defaultArg(remarks, []);
-        this["identifier@1144"] = identifier;
+        this["identifier@1148"] = identifier;
         this["Title@"] = title;
         this["Description@"] = description;
         this["SubmissionDate@"] = submissionDate;
@@ -1270,15 +1262,15 @@ export class ArcInvestigation {
         this["RegisteredStudyIdentifiers@"] = registeredStudyIdentifiers_1;
         this["Comments@"] = comments_1;
         this["Remarks@"] = remarks_1;
-        this["init@1125"] = 1;
+        this["init@1129"] = 1;
     }
     get Identifier() {
         const this$ = this;
-        return this$["identifier@1144"];
+        return this$["identifier@1148"];
     }
     set Identifier(i) {
         const this$ = this;
-        this$["identifier@1144"] = i;
+        this$["identifier@1148"] = i;
     }
     get Title() {
         const __ = this;
@@ -1427,10 +1419,43 @@ export class ArcInvestigation {
             return newInvestigation.InitAssay(assayIdentifier);
         };
     }
+    DeleteAssayAt(index) {
+        const this$ = this;
+        this$.Assays.splice(index, 1);
+    }
+    static deleteAssayAt(index) {
+        return (inv) => {
+            const newInvestigation = inv.Copy();
+            newInvestigation.DeleteAssayAt(index);
+            return newInvestigation;
+        };
+    }
+    DeleteAssay(assayIdentifier) {
+        const this$ = this;
+        const index = this$.GetAssayIndex(assayIdentifier) | 0;
+        this$.DeleteAssayAt(index);
+    }
+    static deleteAssay(assayIdentifier) {
+        return (inv) => {
+            const newInv = inv.Copy();
+            newInv.DeleteAssay(assayIdentifier);
+            return newInv;
+        };
+    }
     RemoveAssayAt(index) {
         const this$ = this;
+        const ident = this$.GetAssayAt(index).Identifier;
         this$.Assays.splice(index, 1);
-        this$.DeregisterMissingAssays();
+        let enumerator = getEnumerator(this$.Studies);
+        try {
+            while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+                const study = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                study.DeregisterAssay(ident);
+            }
+        }
+        finally {
+            disposeSafe(enumerator);
+        }
     }
     static removeAssayAt(index) {
         return (inv) => {
@@ -1515,9 +1540,19 @@ export class ArcInvestigation {
             return newInvestigation.GetAssay(assayIdentifier);
         };
     }
+    TryGetAssay(assayIdentifier) {
+        const this$ = this;
+        return tryFind((a) => (a.Identifier === assayIdentifier), this$.Assays);
+    }
+    static tryGetAssay(assayIdentifier) {
+        return (inv) => {
+            const newInvestigation = inv.Copy();
+            return newInvestigation.TryGetAssay(assayIdentifier);
+        };
+    }
     get RegisteredStudies() {
         const this$ = this;
-        const collection = map_2((identifier) => this$.GetStudy(identifier), this$.RegisteredStudyIdentifiers);
+        const collection = choose((identifier) => this$.TryGetStudy(identifier), this$.RegisteredStudyIdentifiers);
         return Array.from(collection);
     }
     get StudyCount() {
@@ -1526,7 +1561,7 @@ export class ArcInvestigation {
     }
     get StudyIdentifiers() {
         const this$ = this;
-        return map_2((x) => x.Identifier, this$.Studies);
+        return toArray(map_2((x) => x.Identifier, this$.Studies));
     }
     AddStudy(study) {
         const this$ = this;
@@ -1597,9 +1632,34 @@ export class ArcInvestigation {
             return copy;
         };
     }
+    DeleteStudyAt(index) {
+        const this$ = this;
+        this$.Studies.splice(index, 1);
+    }
+    static deleteStudyAt(index) {
+        return (i) => {
+            const copy = i.Copy();
+            copy.DeleteStudyAt(index);
+            return copy;
+        };
+    }
+    DeleteStudy(studyIdentifier) {
+        const this$ = this;
+        const index = this$.Studies.findIndex((s) => (s.Identifier === studyIdentifier)) | 0;
+        this$.DeleteStudyAt(index);
+    }
+    static deleteStudy(studyIdentifier) {
+        return (i) => {
+            const copy = i.Copy();
+            copy.DeleteStudy(studyIdentifier);
+            return copy;
+        };
+    }
     RemoveStudyAt(index) {
         const this$ = this;
+        const ident = this$.GetStudyAt(index).Identifier;
         this$.Studies.splice(index, 1);
+        this$.DeregisterStudy(ident);
     }
     static removeStudyAt(index) {
         return (inv) => {
@@ -1610,10 +1670,8 @@ export class ArcInvestigation {
     }
     RemoveStudy(studyIdentifier) {
         const this$ = this;
-        removeInPlace(this$.GetStudy(studyIdentifier), this$.Studies, {
-            Equals: equals,
-            GetHashCode: safeHash,
-        });
+        const index = this$.GetStudyIndex(studyIdentifier) | 0;
+        this$.RemoveStudyAt(index);
     }
     static removeStudy(studyIdentifier) {
         return (inv) => {
@@ -1684,6 +1742,16 @@ export class ArcInvestigation {
             return newInv.GetStudy(studyIdentifier);
         };
     }
+    TryGetStudy(studyIdentifier) {
+        const this$ = this;
+        return tryFind((s) => (s.Identifier === studyIdentifier), this$.Studies);
+    }
+    static tryGetStudy(studyIdentifier) {
+        return (inv) => {
+            const newInv = inv.Copy();
+            return newInv.TryGetStudy(studyIdentifier);
+        };
+    }
     RegisterAssayAt(studyIndex, assayIdentifier) {
         const this$ = this;
         const study = this$.GetStudyAt(studyIndex);
@@ -1745,6 +1813,20 @@ export class ArcInvestigation {
             return copy;
         };
     }
+    DeregisterStudy(studyIdentifier) {
+        const this$ = this;
+        removeInPlace(studyIdentifier, this$.RegisteredStudyIdentifiers, {
+            Equals: (x, y) => (x === y),
+            GetHashCode: stringHash,
+        });
+    }
+    static deregisterStudy(studyIdentifier) {
+        return (i) => {
+            const copy = i.Copy();
+            copy.DeregisterStudy(studyIdentifier);
+            return copy;
+        };
+    }
     GetAllPersons() {
         const this$ = this;
         const persons = [];
@@ -1921,56 +2003,56 @@ export class ArcInvestigation {
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_1) => equals(item_1(i_1, a), item_1(i_1, b)), rangeDouble(0, 1, length(a) - 1))))))), (a_1 = this$.Contacts, (b_1 = other.Contacts, (length(a_1) === length(b_1)) && fold((acc_1, e_1) => {
+        }, true, toList(delay(() => map_2((i_1) => equals(item(i_1, a), item(i_1, b)), rangeDouble(0, 1, length(a) - 1))))))), (a_1 = this$.Contacts, (b_1 = other.Contacts, (length(a_1) === length(b_1)) && fold((acc_1, e_1) => {
             if (acc_1) {
                 return e_1;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_2) => equals(item_1(i_2, a_1), item_1(i_2, b_1)), rangeDouble(0, 1, length(a_1) - 1))))))), (a_2 = this$.OntologySourceReferences, (b_2 = other.OntologySourceReferences, (length(a_2) === length(b_2)) && fold((acc_2, e_2) => {
+        }, true, toList(delay(() => map_2((i_2) => equals(item(i_2, a_1), item(i_2, b_1)), rangeDouble(0, 1, length(a_1) - 1))))))), (a_2 = this$.OntologySourceReferences, (b_2 = other.OntologySourceReferences, (length(a_2) === length(b_2)) && fold((acc_2, e_2) => {
             if (acc_2) {
                 return e_2;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_3) => equals(item_1(i_3, a_2), item_1(i_3, b_2)), rangeDouble(0, 1, length(a_2) - 1))))))), (a_3 = this$.Assays, (b_3 = other.Assays, (length(a_3) === length(b_3)) && fold((acc_3, e_3) => {
+        }, true, toList(delay(() => map_2((i_3) => equals(item(i_3, a_2), item(i_3, b_2)), rangeDouble(0, 1, length(a_2) - 1))))))), (a_3 = this$.Assays, (b_3 = other.Assays, (length(a_3) === length(b_3)) && fold((acc_3, e_3) => {
             if (acc_3) {
                 return e_3;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_4) => equals(item_1(i_4, a_3), item_1(i_4, b_3)), rangeDouble(0, 1, length(a_3) - 1))))))), (a_4 = this$.Studies, (b_4 = other.Studies, (length(a_4) === length(b_4)) && fold((acc_4, e_4) => {
+        }, true, toList(delay(() => map_2((i_4) => equals(item(i_4, a_3), item(i_4, b_3)), rangeDouble(0, 1, length(a_3) - 1))))))), (a_4 = this$.Studies, (b_4 = other.Studies, (length(a_4) === length(b_4)) && fold((acc_4, e_4) => {
             if (acc_4) {
                 return e_4;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_5) => equals(item_1(i_5, a_4), item_1(i_5, b_4)), rangeDouble(0, 1, length(a_4) - 1))))))), (a_5 = this$.RegisteredStudyIdentifiers, (b_5 = other.RegisteredStudyIdentifiers, (length(a_5) === length(b_5)) && fold((acc_5, e_5) => {
+        }, true, toList(delay(() => map_2((i_5) => equals(item(i_5, a_4), item(i_5, b_4)), rangeDouble(0, 1, length(a_4) - 1))))))), (a_5 = this$.RegisteredStudyIdentifiers, (b_5 = other.RegisteredStudyIdentifiers, (length(a_5) === length(b_5)) && fold((acc_5, e_5) => {
             if (acc_5) {
                 return e_5;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_6) => (item_1(i_6, a_5) === item_1(i_6, b_5)), rangeDouble(0, 1, length(a_5) - 1))))))), (a_6 = this$.Comments, (b_6 = other.Comments, (length(a_6) === length(b_6)) && fold((acc_6, e_6) => {
+        }, true, toList(delay(() => map_2((i_6) => (item(i_6, a_5) === item(i_6, b_5)), rangeDouble(0, 1, length(a_5) - 1))))))), (a_6 = this$.Comments, (b_6 = other.Comments, (length(a_6) === length(b_6)) && fold((acc_6, e_6) => {
             if (acc_6) {
                 return e_6;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_7) => equals(item_1(i_7, a_6), item_1(i_7, b_6)), rangeDouble(0, 1, length(a_6) - 1))))))), (a_7 = this$.Remarks, (b_7 = other.Remarks, (length(a_7) === length(b_7)) && fold((acc_7, e_7) => {
+        }, true, toList(delay(() => map_2((i_7) => equals(item(i_7, a_6), item(i_7, b_6)), rangeDouble(0, 1, length(a_6) - 1))))))), (a_7 = this$.Remarks, (b_7 = other.Remarks, (length(a_7) === length(b_7)) && fold((acc_7, e_7) => {
             if (acc_7) {
                 return e_7;
             }
             else {
                 return false;
             }
-        }, true, toList(delay(() => map_2((i_8) => equals(item_1(i_8, a_7), item_1(i_8, b_7)), rangeDouble(0, 1, length(a_7) - 1)))))))]);
+        }, true, toList(delay(() => map_2((i_8) => equals(item(i_8, a_7), item(i_8, b_7)), rangeDouble(0, 1, length(a_7) - 1)))))))]);
     }
     ReferenceEquals(other) {
         const this$ = this;

package/ISA/ISA/Helper.js

@@ -1,6 +1,6 @@
+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 { isIterable, defaultOf, structuralHash, equals, numberHash, identityHash } from "../../fable_modules/fable-library.4.5.0/Util.js";
-import { exactlyOne, partition, fold } from "../../fable_modules/fable-library.4.5.0/Array.js";
+import { exactlyOne, partition, fold, contains } from "../../fable_modules/fable-library.4.5.0/Array.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";
@@ -9,6 +9,160 @@ import { Union, toString, FSharpRef } from "../../fable_modules/fable-library.4.
 import { 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) {
+    const b = [];
+    let enumerator = getEnumerator(a);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+            void (b.push(f(i)));
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+    return b;
+}
+
+export function ResizeArray_choose(f, a) {
+    const b = [];
+    let enumerator = getEnumerator(a);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            const matchValue = f(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]());
+            if (matchValue == null) {
+            }
+            else {
+                const x = value_1(matchValue);
+                void (b.push(x));
+            }
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+    return b;
+}
+
+export function ResizeArray_filter(f, a) {
+    const b = [];
+    let enumerator = getEnumerator(a);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+            if (f(i)) {
+                void (b.push(i));
+            }
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+    return b;
+}
+
+export function ResizeArray_fold(f, s, a) {
+    let state = s;
+    let enumerator = getEnumerator(a);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+            state = f(state, i);
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+    return state;
+}
+
+export function ResizeArray_foldBack(f, a, s) {
+    let state = s;
+    let enumerator = getEnumerator(a);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+            state = f(i, state);
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+    return state;
+}
+
+export function ResizeArray_iter(f, a) {
+    let enumerator = getEnumerator(a);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            f(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]());
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+}
+
+export function ResizeArray_reduce(f, a) {
+    switch (a.length) {
+        case 0:
+            throw new Error("ResizeArray.reduce: empty array");
+        case 1:
+            return a[0];
+        default: {
+            const a_5 = a;
+            let state = a_5[0];
+            for (let i = 1; i <= (a_5.length - 1); i++) {
+                state = f(state, a_5[i]);
+            }
+            return state;
+        }
+    }
+}
+
+export function ResizeArray_collect(f, a) {
+    const b = [];
+    let enumerator = getEnumerator(a);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            const enumerator_1 = getEnumerator(f(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]()));
+            try {
+                while (enumerator_1["System.Collections.IEnumerator.MoveNext"]()) {
+                    const j = enumerator_1["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                    void (b.push(j));
+                }
+            }
+            finally {
+                disposeSafe(enumerator_1);
+            }
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+    return b;
+}
+
+export function ResizeArray_distinct(a) {
+    const b = [];
+    let enumerator = getEnumerator(a);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+            if (!contains(i, b, {
+                Equals: equals,
+                GetHashCode: structuralHash,
+            })) {
+                void (b.push(i));
+            }
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+    return b;
+}
+
 export function HashCodes_boxHashOption(a) {
     let copyOfStruct, copyOfStruct_1;
     return (a != null) ? ((copyOfStruct = value_1(a), identityHash(copyOfStruct))) : ((copyOfStruct_1 = 0, numberHash(copyOfStruct_1)));

package/ISA/ISA/Identifier.js

@@ -4,7 +4,7 @@ import { combineMany } from "../../FileSystem/Path.js";
 
 export function checkValidCharacters(identifier) {
     if (!isMatch(/^[a-zA-Z0-9_\- ]+$/gu, identifier)) {
-        throw new Error("New identifier contains forbidden characters! Allowed characters are: letters, digits, underscore (_), dash (-) and whitespace ( ).");
+        throw new Error(`New identifier "${identifier}"contains forbidden characters! Allowed characters are: letters, digits, underscore (_), dash (-) and whitespace ( ).`);
     }
 }
 

package/ISA/ISA.Spreadsheet/ArcInvestigation.js

@@ -9,7 +9,7 @@ import { value as value_1, defaultArg } from "../../fable_modules/fable-library.
 import { List_distinctBy, List_distinct } from "../../fable_modules/fable-library.4.5.0/Seq2.js";
 import { comparePrimitives, getEnumerator, stringHash } from "../../fable_modules/fable-library.4.5.0/Util.js";
 import { Option_fromValueWithDefault } from "./Metadata/Conversions.js";
-import { ArcInvestigation } from "../ISA/ArcTypes/ArcTypes.js";
+import { ArcStudy, ArcInvestigation } from "../ISA/ArcTypes/ArcTypes.js";
 import { toRows as toRows_1, fromRows as fromRows_1 } from "./Metadata/OntologySourceReference.js";
 import { toRows as toRows_2, fromRows as fromRows_2 } from "./Metadata/Publication.js";
 import { toRows as toRows_3, fromRows as fromRows_3 } from "./Metadata/Contacts.js";
@@ -244,7 +244,10 @@ export function fromRows(rows) {
 
 export function toRows(investigation) {
     let remarks, rows;
-    return (remarks = ofArray(investigation.Remarks), (rows = delay(() => append_1(singleton(SparseRowModule_fromValues(["ONTOLOGY SOURCE REFERENCE"])), delay(() => append_1(toRows_1(ofArray(investigation.OntologySourceReferences)), delay(() => append_1(singleton(SparseRowModule_fromValues(["INVESTIGATION"])), delay(() => append_1(InvestigationInfo_toRows_Z4D87C88C(investigation), delay(() => append_1(singleton(SparseRowModule_fromValues(["INVESTIGATION PUBLICATIONS"])), delay(() => append_1(toRows_2("Investigation Publication", ofArray(investigation.Publications)), delay(() => append_1(singleton(SparseRowModule_fromValues(["INVESTIGATION CONTACTS"])), delay(() => append_1(toRows_3("Investigation Person", ofArray(investigation.Contacts)), delay(() => collect((study) => append_1(singleton(SparseRowModule_fromValues(["STUDY"])), delay(() => toRows_4(study, void 0))), investigation.RegisteredStudies)))))))))))))))))), (() => {
+    return (remarks = ofArray(investigation.Remarks), (rows = delay(() => append_1(singleton(SparseRowModule_fromValues(["ONTOLOGY SOURCE REFERENCE"])), delay(() => append_1(toRows_1(ofArray(investigation.OntologySourceReferences)), delay(() => append_1(singleton(SparseRowModule_fromValues(["INVESTIGATION"])), delay(() => append_1(InvestigationInfo_toRows_Z4D87C88C(investigation), delay(() => append_1(singleton(SparseRowModule_fromValues(["INVESTIGATION PUBLICATIONS"])), delay(() => append_1(toRows_2("Investigation Publication", ofArray(investigation.Publications)), delay(() => append_1(singleton(SparseRowModule_fromValues(["INVESTIGATION CONTACTS"])), delay(() => append_1(toRows_3("Investigation Person", ofArray(investigation.Contacts)), delay(() => collect((studyIdentifier) => {
+        const study = defaultArg(investigation.TryGetStudy(studyIdentifier), new ArcStudy(studyIdentifier));
+        return append_1(singleton(SparseRowModule_fromValues(["STUDY"])), delay(() => toRows_4(study, void 0)));
+    }, investigation.RegisteredStudyIdentifiers)))))))))))))))))), (() => {
         try {
             const rm = ofList(map((remark) => Remark.toTuple(remark), remarks), {
                 Compare: comparePrimitives,

package/Path.js

@@ -0,0 +1,10 @@
+import { combine } from "./FileSystem/Path.js";
+
+export function getAssayFolderPath(assayIdentifier) {
+    return combine("assays", assayIdentifier);
+}
+
+export function getStudyFolderPath(studyIdentifier) {
+    return combine("studies", studyIdentifier);
+}
+