Fix #249

fsharp · Nov 5, 2014 · 445e92c · 445e92c
1 parent f2a89a5
commit 445e92c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/assemblyinfo/assemblyinfo.shared.fs b/src/assemblyinfo/assemblyinfo.shared.fs
@@ -1,9 +1,9 @@
 namespace System
 open System.Reflection
 
-[<assembly: AssemblyVersionAttribute("0.0.74")>]
-[<assembly: AssemblyFileVersionAttribute("0.0.74")>]
+[<assembly: AssemblyVersionAttribute("0.0.75")>]
+[<assembly: AssemblyFileVersionAttribute("0.0.75")>]
 do ()
 
 module internal AssemblyVersionInformation =
-    let [<Literal>] Version = "0.0.74"
+    let [<Literal>] Version = "0.0.75"
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 then fail()
+        if entity.IsTypeAbbrev || entity.IsProvidedGeneratedTycon || 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 then fail()
+        if entity.IsTypeAbbrev || entity.IsProvidedGeneratedTycon || 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 then None
+        elif entity.IsTypeAbbrev || entity.IsProvidedGeneratedTycon || entity.IsNamespace then None
         else
             match entity.CompiledRepresentation with 
             | CompiledTypeRepr.ILAsmNamed(tref,_,_) -> Some tref.FullName