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

5
WoofWare.Myriad.Plugins/InterfaceMockGenerator.fs
View File

@@ -71,13 +71,13 @@ module internal InterfaceMockGenerator =
if inherits.Contains KnownInheritance.IDisposable then
let unitFun = SynExpr.createThunk (SynExpr.CreateConst ())
[ (SynLongIdent.createS "Dispose", true), Some unitFun ]
[ SynLongIdent.createS "Dispose", unitFun ]
else
[]
let nonExtras =
fields
|> List.map (fun field -> (SynLongIdent.createI (getName field), true), Some (failwithFun field))
|> List.map (fun field -> SynLongIdent.createI (getName field), failwithFun field)
extras @ nonExtras
@@ -213,6 +213,7 @@ module internal InterfaceMockGenerator =
XmlDoc = Some xmlDoc
Generics = interfaceType.Generics
Accessibility = Some access
Attributes = []
}
let typeDecl = AstHelper.defineRecordType record