rmv old code 🔥

nfdi4plants · Apr 4, 2024 · 0ff28ab · 0ff28ab
1 parent a08d8fd
commit 0ff28ab
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/src/Core/OntologyAnnotation.fs b/src/Core/OntologyAnnotation.fs
@@ -135,19 +135,15 @@ type OntologyAnnotation(?name,?tsr,?tan, ?comments) =
             HashCodes.boxHashOption this.Name
             match this.TermSourceREF, this.TANInfo with
             | None, Some taninfo -> // if we get taninfo we assume tsr to be inferrable by taninfo
-                //HashCodes.hash {|tsr = taninfo.IDSpace; tan = taninfo.IDSpace + ":" + taninfo.LocalID|}
                 HashCodes.boxHashArray [|taninfo.IDSpace; taninfo.IDSpace + ":" + taninfo.LocalID|]
             | Some tsr, Some taninfo -> // if we get taninfo + tsr we do NOT override tsr
-                //HashCodes.hash {|tsr = tsr; tan = taninfo.IDSpace + ":" + taninfo.LocalID|}
                 HashCodes.boxHashArray [|tsr; taninfo.IDSpace + ":" + taninfo.LocalID|]
             | Some tsr, None ->
                 let tan = this.TermAccessionNumber |> Option.defaultValue ""
-                //HashCodes.hash {|tsr = tsr; tan = tan|}
                 HashCodes.boxHashArray [|tsr; tan|]
             | None, None ->
                 let tan = this.TermAccessionNumber |> Option.defaultValue ""
                 let tsr = this.TermAccessionNumber |> Option.defaultValue ""
-                //HashCodes.hash {|tsr = tsr; tan = tan|}
                 HashCodes.boxHashArray [|tsr; tan|]
             //HashCodes.boxHashSeq this.Comments
         |]