QuickHack around dotnet#95

forki · Jan 25, 2015 · 3d3c5a9 · 3d3c5a9
1 parent 11ede75
commit 3d3c5a9
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/fsharp/nameres.fs b/src/fsharp/nameres.fs
@@ -1650,10 +1650,12 @@ let rec ResolveExprLongIdentInModuleOrNamespace (ncenv:NameResolver) nenv (typeN
             success(resInfo,Item.Value (mkNestedValRef modref vspec),rest)
         | _->
         match  TryFindTypeWithUnionCase modref id with
-        | Some tycon when IsTyconReprAccessible ncenv.amap m ad (modref.MkNestedTyconRef tycon) -> 
-            let ucref = mkUnionCaseRef (modref.MkNestedTyconRef tycon) id.idText 
-            let ucinfo = FreshenUnionCaseRef ncenv m ucref
-            success (resInfo,Item.UnionCase ucinfo,rest)
+        | Some tycon when IsTyconReprAccessible ncenv.amap m ad (modref.MkNestedTyconRef tycon) &&
+                            tycon.Attribs.IsEmpty // this is incorrect - we want to exclude RequireQualifiedAccess instead
+             -> 
+                let ucref = mkUnionCaseRef (modref.MkNestedTyconRef tycon) id.idText 
+                let ucinfo = FreshenUnionCaseRef ncenv m ucref
+                success (resInfo,Item.UnionCase ucinfo,rest)
         | _ -> 
         match mty.ExceptionDefinitionsByDemangledName.TryFind(id.idText) with
         | Some excon when IsTyconReprAccessible ncenv.amap m ad (modref.MkNestedTyconRef excon) ->