From 76fc7b47ee1660a0b98193bcdcab1aef202ac184 Mon Sep 17 00:00:00 2001
From: Kevin Schneider <schneider.kev@outlook.de>
Date: Thu, 27 Jul 2023 16:32:42 +0200
Subject: [PATCH] remove old term parser match cases

---
 src/ArcGraphModel/ISA/KeyParser.fs | 37 +++++++++++++++++-------------
 src/ArcGraphModel/ISA/Terms.fs     |  4 ++--
 2 files changed, 23 insertions(+), 18 deletions(-)

diff --git a/src/ArcGraphModel/ISA/KeyParser.fs b/src/ArcGraphModel/ISA/KeyParser.fs
index 33d734f..13fdcc3 100644
--- a/src/ArcGraphModel/ISA/KeyParser.fs
+++ b/src/ArcGraphModel/ISA/KeyParser.fs
@@ -157,24 +157,29 @@ module KeyParser =
         | Term InvestigationMetadata.cvTerms term ->
             fun (pv) -> CvParam(term,pv,attributes)
 
-        | Token TokenBase.identifier term
-        | Token TokenBase.name term
-        | Token TokenBase.title term
-        | Token TokenBase.description term
-        | Token TokenBase.familyName term
-        | Token TokenBase.givenName term
-        | Token TokenBase.midInitials term
-        | Token TokenBase.email term
-        | Token TokenBase.factorType term
-        | Token TokenBase.designType term
-        | Token TokenBase.data term
-        | Token TokenBase.source term
-        | Token TokenBase.sample term
-        | Token TokenBase.annotationID term
-        | Token TokenBase.termSourceRef term
-        | Token TokenBase.phone term -> 
+        | Term StudyMetadata.cvTerms term ->
             fun (pv) -> CvParam(term,pv,attributes)
 
+        | Term AssayMetadata.cvTerms term ->
+            fun (pv) -> CvParam(term,pv,attributes)
+
+        //| Token TokenBase.identifier term
+        //| Token TokenBase.name term
+        //| Token TokenBase.title term
+        //| Token TokenBase.description term
+        //| Token TokenBase.familyName term
+        //| Token TokenBase.givenName term
+        //| Token TokenBase.midInitials term
+        //| Token TokenBase.email term
+        //| Token TokenBase.factorType term
+        //| Token TokenBase.designType term
+        //| Token TokenBase.data term
+        //| Token TokenBase.source term
+        //| Token TokenBase.sample term
+        //| Token TokenBase.annotationID term
+        //| Token TokenBase.termSourceRef term
+        //| Token TokenBase.phone term -> 
+        //    fun (pv) -> CvParam(term,pv,attributes)
         //| Attribute AttributeBase.person (attribute,key) 
         //| Attribute AttributeBase.investigation (attribute,key) 
         //| Attribute AttributeBase.study (attribute,key) 
diff --git a/src/ArcGraphModel/ISA/Terms.fs b/src/ArcGraphModel/ISA/Terms.fs
index 880165d..19908e8 100644
--- a/src/ArcGraphModel/ISA/Terms.fs
+++ b/src/ArcGraphModel/ISA/Terms.fs
@@ -26,7 +26,7 @@ module InvestigationMetadata =
         ontology.Terms
         |> List.map (fun t -> CvTerm(t.Id,t.Name,"INVMSO"))
 
-module Study =
+module StudyMetadata =
     
     let internal obo = (EmbeddedResource.load "structural_ontologies.study_metadata_structural_ontology.obo").Replace("\r\n", "\n").Split('\n')
 
@@ -36,7 +36,7 @@ module Study =
         ontology.Terms
         |> List.map (fun t -> CvTerm(t.Id,t.Name,"STDMSO"))    
 
-module Assay = 
+module AssayMetadata = 
     
     let internal obo = (EmbeddedResource.load "structural_ontologies.assay_metadata_structural_ontology.obo").Replace("\r\n", "\n").Split('\n')