patrick/WoofWare.Myriad
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.Myriad synced 2025-12-15 13:25:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Pull out general changes from ArgParser PR (#217)

Browse Source
This commit is contained in:
Patrick Stevens
2024-08-25 20:23:23 +01:00
committed by GitHub
parent 20226b9da9
commit 569b3cc553
19 changed files with 412 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
WoofWare.Myriad.Plugins/RemoveOptionsGenerator.fs
View File

@@ -42,6 +42,7 @@ module internal RemoveOptionsGenerator =
(accessibility : SynAccess option)
(generics : SynTyparDecls option)
(fields : SynField list)
: SynModuleDecl
=
let fields : SynField list = fields |> List.map removeOption
let name = Ident.create "Short"
@@ -54,6 +55,7 @@ module internal RemoveOptionsGenerator =
XmlDoc = xmlDoc
Generics = generics
Accessibility = accessibility
Attributes = []
}
let typeDecl = AstHelper.defineRecordType record
@@ -91,7 +93,7 @@ module internal RemoveOptionsGenerator =
)
| _ -> accessor
(SynLongIdent.createI fieldData.Ident, true), Some body
SynLongIdent.createI fieldData.Ident, body
)
|> AstHelper.instantiateRecord