Fix #249 (2)

fsharp · Nov 5, 2014 · 6a3b6e6 · 6a3b6e6
1 parent 445e92c
commit 6a3b6e6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/fsharp/vs/Symbols.fs b/src/fsharp/vs/Symbols.fs
@@ -195,22 +195,22 @@ and FSharpEntity(cenv:cenv, entity:EntityRef) =
     member x.QualifiedName = 
         checkIsResolved()
         let fail() = invalidOp (sprintf "the type '%s' does not have a qualified name" x.LogicalName)
-        if entity.IsTypeAbbrev || entity.IsProvidedGeneratedTycon || entity.IsNamespace then fail()
+        if entity.IsTypeAbbrev || entity.IsProvidedErasedTycon || entity.IsNamespace then fail()
         match entity.CompiledRepresentation with 
         | CompiledTypeRepr.ILAsmNamed(tref,_,_) -> tref.QualifiedName
         | CompiledTypeRepr.ILAsmOpen _ -> fail()
 
     member x.FullName = 
         checkIsResolved()
         let fail() = invalidOp (sprintf "the type '%s' does not have a qualified name" x.LogicalName)
-        if entity.IsTypeAbbrev || entity.IsProvidedGeneratedTycon || entity.IsNamespace then fail()
+        if entity.IsTypeAbbrev || entity.IsProvidedErasedTycon || entity.IsNamespace then fail()
         match entity.CompiledRepresentation with 
         | CompiledTypeRepr.ILAsmNamed(tref,_,_) -> tref.FullName
         | CompiledTypeRepr.ILAsmOpen _ -> fail()
 
     member x.TryFullName = 
         if isUnresolved() then None
-        elif entity.IsTypeAbbrev || entity.IsProvidedGeneratedTycon || entity.IsNamespace then None
+        elif entity.IsTypeAbbrev || entity.IsProvidedErasedTycon || entity.IsNamespace then None
         else
             match entity.CompiledRepresentation with 
             | CompiledTypeRepr.ILAsmNamed(tref,_,_) -> Some tref.FullName
@@ -257,7 +257,7 @@ and FSharpEntity(cenv:cenv, entity:EntityRef) =
 
     member __.IsProvidedAndGenerated  = 
         isResolved() &&
-        entity.IsProvidedGeneratedTycon
+        entity.IsProvidedErasedTycon
 
     member __.IsClass = 
         isResolved() &&