Filter out private constructor.

soloman817 · Nov 7, 2013 · 05182d5 · soloman817 · Nov 8, 2013 · 05182d5
1 parent 6d9c00c
commit 05182d5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -1,3 +1,6 @@
+src/FSharp.PowerPack.Metadata/FSharp.PowerPack.Metadata.xml
+src/FsLex/fslexpars.fsi
+
 ## Ignore Visual Studio temporary files, build results, and
 ## files generated by popular Visual Studio add-ons.
 

diff --git a/src/FSharp.PowerPack.Metadata/Metadata.fs b/src/FSharp.PowerPack.Metadata/Metadata.fs
@@ -609,7 +609,8 @@ and [<Sealed>] FSharpEntity(entity:SimulatedEntityRef) =
             checkIsFSharp(); 
             ((entity.MembersOfFSharpTyconSorted
               |> List.filter (fun v -> not v.IsOverrideOrExplicitImpl && 
-                                       not v.Deref.IsClassConstructor)
+                                       not v.Deref.IsClassConstructor &&
+                                       isPublic v.Accessibility)
               |> List.map (fun v -> FSharpMemberOrVal(this, v.Deref)))
             @
              (entity.ModuleOrNamespaceType.AllValsAndMembers