Przeglądaj źródła

[cs] Try to fix Dox error by avoiding setting some previously private (hidden) getter/setters

Cauê Waneck 11 lat temu
rodzic
commit
944a09f6a4
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      gencs.ml

+ 2 - 2
gencs.ml

@@ -3232,10 +3232,10 @@ let convert_ilmethod ctx p m is_explicit_impl =
 		| name -> name
 	in
 	let acc = match m.mflags.mf_access with
-		| _ when List.mem SGetter m.msemantics || List.mem SSetter m.msemantics ->
-			APrivate
 		| FAFamily | FAFamOrAssem -> APrivate
 		(* | FAPrivate -> APrivate *)
+		| FAPublic when List.mem SGetter m.msemantics || List.mem SSetter m.msemantics ->
+			APrivate
 		| FAPublic -> APublic
 		| _ ->
 			raise Exit