add attributes to tokenized containers

nfdi4plants · Apr 27, 2023 · ac5ab8c · ac5ab8c
1 parent 35c9d64
commit ac5ab8c
Showing 1 changed file with 11 additions and 3 deletions.
diff --git a/src/ArcGraphModel.IO/ISA/Tokenization.fs b/src/ArcGraphModel.IO/ISA/Tokenization.fs
@@ -25,14 +25,22 @@ module Tokenization =
     let parseLine (line : FsCell seq) =
         match line |> Seq.toList |> List.filter (fun c -> c.Value <> "") with
         | [] -> seq []
-        | [Container (ContainerBase.investigation) container]
         | [Container (ContainerBase.investigationContacts) container]
-        | [Container (ContainerBase.investigationPublication) container]
-        | [Container (ContainerBase.study) container]
+        | [Container (ContainerBase.investigationPublication) container] ->
+            container 
+            |> CvAttributeCollection.tryAddAttribute (CvParam(Terms.investigation,"")) 
+            |> ignore
+            [container] |> Seq.cast<ICvBase>
         | [Container (ContainerBase.studyContacts) container]
         | [Container (ContainerBase.studyAssays) container]
         | [Container (ContainerBase.studyDesignDescriptors) container]
         | [Container (ContainerBase.studyFactors) container] ->
+            container 
+            |> CvAttributeCollection.tryAddAttribute (CvParam(Terms.study,"")) 
+            |> ignore
+            [container] |> Seq.cast<ICvBase>
+        | [Container (ContainerBase.investigation) container]
+        | [Container (ContainerBase.study) container] -> 
             [container] |> Seq.cast<ICvBase>
         | line -> 
             convertTokens line