Members hidden from IntelliSense are now also omitted in QuickInfo - f…

…ixes #50
forki · Jan 21, 2015 · 1e38a8a · 1e38a8a
1 parent 5f27136
commit 1e38a8a
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 8 deletions.
diff --git a/src/fsharp/NicePrint.fs b/src/fsharp/NicePrint.fs
@@ -1505,6 +1505,7 @@ module private TastDefinitionPrinting =
                                       not (isInterfaceTy denv.g oty)
                                   | [] -> true)
               |> List.filter (fun v -> denv.showObsoleteMembers || not (HasFSharpAttribute denv.g denv.g.attrib_SystemObsolete v.Attribs))
+              |> List.filter (fun v -> not (Infos.AttributeChecking.CheckFSharpAttributesForHidden denv.g v.Attribs))
           // sort 
           let sortKey (v:ValRef) = (not v.IsConstructor,    // constructors before others 
                                     v.Id.idText,            // sort by name 

diff --git a/src/fsharp/infos.fs b/src/fsharp/infos.fs
@@ -2637,20 +2637,25 @@ module AttributeChecking =
         let (AttribInfo(tref,_)) = g.attrib_SystemObsolete
         isSome (TryDecodeILAttribute g tref (Some(tref.Scope)) cattrs)
 
+    /// Checks the attributes for CompilerMessageAttribute, which has an IsHidden argument that allows
+    /// items to be suppressed from intellisense.
+    let CheckFSharpAttributesForHidden g attribs = 
+        nonNil attribs &&         
+        (match TryFindFSharpAttribute g g.attrib_CompilerMessageAttribute attribs with
+         | Some(Attrib(_,_,[AttribStringArg _; AttribInt32Arg messageNumber],
+                     ExtractAttribNamedArg "IsHidden" (AttribBoolArg v),_,_,_)) -> 
+             // Message number 62 is for "ML Compatibility". Items labelled with this are visible in intellisense
+             // when mlCompatibility is set.
+             v && not (messageNumber = 62 && g.mlCompatibility)
+         | _ -> false)
+
     /// Indicate if a list of F# attributes contains 'ObsoleteAttribute'. Used to suppress the item in intellisense.
     /// Also check the attributes for CompilerMessageAttribute, which has an IsHidden argument that allows
     /// items to be suppressed from intellisense.
     let CheckFSharpAttributesForUnseen g attribs _m = 
         nonNil attribs && 
         (let isObsolete = isSome (TryFindFSharpAttribute g g.attrib_SystemObsolete attribs) 
-         let isHidden = 
-             (match TryFindFSharpAttribute g g.attrib_CompilerMessageAttribute attribs with
-              | Some(Attrib(_,_,[AttribStringArg _; AttribInt32Arg messageNumber],
-                            ExtractAttribNamedArg "IsHidden" (AttribBoolArg v),_,_,_)) -> 
-                  // Message number 62 is for "ML Compatibility". Items labelled with this are visible in intellisense
-                  // when mlCompatibility is set.
-                  v && not (messageNumber = 62 && g.mlCompatibility)
-              | _ -> false)
+         let isHidden = CheckFSharpAttributesForHidden g attribs
          isObsolete || isHidden
         )