소스 검색

[cs] generate KModuleFields classes as `static`

also trigger CI :)
Dan Korostelev 5 년 전
부모
커밋
f3639330fa
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      src/generators/gencs.ml

+ 1 - 1
src/generators/gencs.ml

@@ -2605,7 +2605,7 @@ let generate con =
 			in
 			in
 
 
 			let clt, access, modifiers = get_class_modifiers cl.cl_meta (if cl.cl_interface then "interface" else "class") "public" [] in
 			let clt, access, modifiers = get_class_modifiers cl.cl_meta (if cl.cl_interface then "interface" else "class") "public" [] in
-			let modifiers = if cl.cl_final then "sealed" :: modifiers else modifiers in
+			let modifiers = if is_module_fields_class cl then "static" :: modifiers else if cl.cl_final then "sealed" :: modifiers else modifiers in
 			let is_final = clt = "struct" || cl.cl_final in
 			let is_final = clt = "struct" || cl.cl_final in
 
 
 			let modifiers = [access] @ modifiers in
 			let modifiers = [access] @ modifiers in