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

Bump Whippet

Browse Source
This commit is contained in:
Smaug123
2025-04-13 21:09:12 +01:00
parent df6079e763
commit 8535481e0d
7 changed files with 6 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
WoofWare.Myriad.Plugins/ArgParserGenerator.fs
View File

@@ -673,7 +673,7 @@ module internal ArgParserGenerator =
args args
|> Map.toList |> Map.toList
|> List.map (fun (ident, expr) -> SynLongIdent.create [ Ident.create ident ], expr) |> List.map (fun (ident, expr) -> SynLongIdent.create [ Ident.create ident ], expr)
|> AstHelper.instantiateRecord |> SynExpr.createRecord None
) )
tree, counter tree, counter

7
WoofWare.Myriad.Plugins/AstHelper.fs
View File

@@ -36,13 +36,6 @@ module internal AstHelper =
| SynTypeDefnRepr.Simple (SynTypeDefnSimpleRepr.Enum _, _) -> true | SynTypeDefnRepr.Simple (SynTypeDefnSimpleRepr.Enum _, _) -> true
| _ -> false | _ -> false
let instantiateRecord (fields : (SynLongIdent * SynExpr) list) : SynExpr =
let fields =
fields
|> List.map (fun (rfn, synExpr) -> SynExprRecordField ((rfn, true), Some range0, Some synExpr, None))
SynExpr.Record (None, None, fields, range0)
let defineRecordType (record : RecordType) : SynTypeDefn = let defineRecordType (record : RecordType) : SynTypeDefn =
let name = let name =
SynComponentInfo.create record.Name SynComponentInfo.create record.Name

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

@@ -89,7 +89,7 @@ module internal InterfaceMockGenerator =
[] []
else else
[ SynPat.unit ]) [ SynPat.unit ])
(AstHelper.instantiateRecord constructorFields) (SynExpr.createRecord None constructorFields)
|> SynBinding.withXmlDoc (PreXmlDoc.create "An implementation where every method throws.") |> SynBinding.withXmlDoc (PreXmlDoc.create "An implementation where every method throws.")
|> SynBinding.withReturnAnnotation constructorReturnType |> SynBinding.withReturnAnnotation constructorReturnType
|> SynMemberDefn.staticMember |> SynMemberDefn.staticMember

2
WoofWare.Myriad.Plugins/JsonParseGenerator.fs
View File

@@ -480,7 +480,7 @@ module internal JsonParseGenerator =
let finalConstruction = let finalConstruction =
fields fields
|> List.mapi (fun i fieldData -> SynLongIdent.createI fieldData.Ident, SynExpr.createIdent $"arg_%i{i}") |> List.mapi (fun i fieldData -> SynLongIdent.createI fieldData.Ident, SynExpr.createIdent $"arg_%i{i}")
|> AstHelper.instantiateRecord |> SynExpr.createRecord None
(finalConstruction, assignments) (finalConstruction, assignments)
||> List.fold (fun final assignment -> SynExpr.createLet [ assignment ] final) ||> List.fold (fun final assignment -> SynExpr.createLet [ assignment ] final)

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

@@ -97,7 +97,7 @@ module internal RemoveOptionsGenerator =
SynLongIdent.createI fieldData.Ident, body SynLongIdent.createI fieldData.Ident, body
) )
|> AstHelper.instantiateRecord |> SynExpr.createRecord None
SynBinding.basic SynBinding.basic
[ functionName ] [ functionName ]

2
WoofWare.Myriad.Plugins/ShibaGenerator.fs
View File

@@ -512,7 +512,7 @@ module internal ShibaGenerator =
$"expected field in record %s{record.Name.idText} to have a name, but it did not" $"expected field in record %s{record.Name.idText} to have a name, but it did not"
| Some ident -> SynLongIdent.create [ ident ], SynExpr.createIdent $"arg%i{i}" | Some ident -> SynLongIdent.create [ ident ], SynExpr.createIdent $"arg%i{i}"
) )
|> AstHelper.instantiateRecord |> SynExpr.createRecord None
|> SynExpr.applyFunction (SynExpr.createIdent "Ok") |> SynExpr.applyFunction (SynExpr.createIdent "Ok")
let defaultOf = let defaultOf =

2
WoofWare.Myriad.Plugins/WoofWare.Myriad.Plugins.fsproj
View File

@@ -22,7 +22,7 @@
<ItemGroup> <ItemGroup>
<PackageReference Include="Myriad.Core" Version="0.8.3" /> <PackageReference Include="Myriad.Core" Version="0.8.3" />
<PackageReference Include="TypeEquality" Version="0.3.0" /> <PackageReference Include="TypeEquality" Version="0.3.0" />
<PackageReference Include="WoofWare.Whippet.Fantomas" Version="0.3.2" /> <PackageReference Include="WoofWare.Whippet.Fantomas" Version="0.4.1" />
<!-- the lowest version allowed by Myriad.Core --> <!-- the lowest version allowed by Myriad.Core -->
<PackageReference Update="FSharp.Core" Version="6.0.1" PrivateAssets="all"/> <PackageReference Update="FSharp.Core" Version="6.0.1" PrivateAssets="all"/>
</ItemGroup> </ItemGroup>