Don't generate docs for private union cases (closes #222)

fsprojects · Nov 1, 2014 · f88fa62 · f88fa62
1 parent ade3491
commit f88fa62
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/FSharp.MetadataFormat/Main.fs b/src/FSharp.MetadataFormat/Main.fs
@@ -626,6 +626,7 @@ module Reader =
   let readUnionCases ctx (typ:FSharpEntity) =
     typ.UnionCases
     |> List.ofSeq
+    |> List.filter (fun v -> checkAccess ctx v.Accessibility)
     |> List.choose (fun case ->
       readCommentsInto ctx case.XmlDocSig (fun cat _ comment ->
         Member.Create(case.Name, MemberKind.UnionCase, cat, readUnionCase ctx case, comment)))