Add visibility modifiers in JsonParse/Serialize (#165)

This commit is contained in:
Patrick Stevens
2024-06-15 21:03:59 +01:00
committed by GitHub
parent 68bd4bc1fd
commit 4901e7cdf4
5 changed files with 106 additions and 7 deletions

View File

@@ -478,7 +478,7 @@ module internal JsonParseGenerator =
let (SynTypeDefn (synComponentInfo, synTypeDefnRepr, _members, _implicitCtor, _, _)) =
typeDefn
let (SynComponentInfo (_attributes, _typeParams, _constraints, ident, _, _preferPostfix, _access, _)) =
let (SynComponentInfo (_attributes, _typeParams, _constraints, ident, _, _preferPostfix, access, _)) =
synComponentInfo
let attributes =
@@ -517,6 +517,7 @@ module internal JsonParseGenerator =
let info =
SynComponentInfo.createLong moduleName
|> SynComponentInfo.withDocString xmlDoc
|> SynComponentInfo.setAccessibility access
|> SynComponentInfo.addAttributes attributes
let decl =