diff --git a/src/OBO.NET/OBO.NET.fsproj b/src/OBO.NET/OBO.NET.fsproj index 5127a25..2d06689 100644 --- a/src/OBO.NET/OBO.NET.fsproj +++ b/src/OBO.NET/OBO.NET.fsproj @@ -37,14 +37,14 @@ - + - + diff --git a/src/OBO.NET/OboOntology.fs b/src/OBO.NET/OboOntology.fs index f47ca4f..324fb3d 100644 --- a/src/OBO.NET/OboOntology.fs +++ b/src/OBO.NET/OboOntology.fs @@ -6,7 +6,7 @@ open DBXref open FSharpAux open FSharpAux.Regex -open ARCtrl.ISA +open ARCtrl open System open System.IO @@ -311,7 +311,7 @@ type OboOntology = | Some oa -> oa | None -> - OntologyAnnotation.fromString(tan = xref.Name) + OntologyAnnotation(tan = xref.Name) ) | None -> [] @@ -361,7 +361,7 @@ type OboOntology = | Some oa -> oa | None -> - OntologyAnnotation.fromString(tan = isA) + OntologyAnnotation(tan = isA) ) | None -> [] diff --git a/src/OBO.NET/OboTerm.fs b/src/OBO.NET/OboTerm.fs index c5c5930..db2f962 100644 --- a/src/OBO.NET/OboTerm.fs +++ b/src/OBO.NET/OboTerm.fs @@ -5,7 +5,7 @@ open TermSynonym open System -open ARCtrl.ISA +open ARCtrl open ControlledVocabulary open FSharpAux @@ -517,8 +517,7 @@ type OboTerm = /// Translates an OBO `term` into an ISADotNet `OntologyAnnotation`. static member toOntologyAnnotation (term : OboTerm) = - OntologyAnnotation.fromString(term.Name,tan = term.Id) - |> fun o -> {o with TermSourceREF = o.TANInfo |> Option.map (fun t -> t.IDSpace)} + OntologyAnnotation(term.Name,tan = term.Id) /// Translates an ISADotNet `OntologyAnnotation` into an OBO `term`. static member ofOntologyAnnotation (term : OntologyAnnotation) =