diff --git a/WoofWare.Myriad.Plugins.Test/WoofWare.Myriad.Plugins.Test.fsproj b/WoofWare.Myriad.Plugins.Test/WoofWare.Myriad.Plugins.Test.fsproj index 639f8b5..c8f6a61 100644 --- a/WoofWare.Myriad.Plugins.Test/WoofWare.Myriad.Plugins.Test.fsproj +++ b/WoofWare.Myriad.Plugins.Test/WoofWare.Myriad.Plugins.Test.fsproj @@ -43,7 +43,7 @@ - + diff --git a/WoofWare.Myriad.Plugins/ArgParserGenerator.fs b/WoofWare.Myriad.Plugins/ArgParserGenerator.fs index 0235b11..fb33747 100644 --- a/WoofWare.Myriad.Plugins/ArgParserGenerator.fs +++ b/WoofWare.Myriad.Plugins/ArgParserGenerator.fs @@ -673,7 +673,7 @@ module internal ArgParserGenerator = args |> Map.toList |> List.map (fun (ident, expr) -> SynLongIdent.create [ Ident.create ident ], expr) - |> AstHelper.instantiateRecord + |> SynExpr.createRecord None ) tree, counter diff --git a/WoofWare.Myriad.Plugins/AstHelper.fs b/WoofWare.Myriad.Plugins/AstHelper.fs index 79a14b8..d168672 100644 --- a/WoofWare.Myriad.Plugins/AstHelper.fs +++ b/WoofWare.Myriad.Plugins/AstHelper.fs @@ -36,13 +36,6 @@ module internal AstHelper = | SynTypeDefnRepr.Simple (SynTypeDefnSimpleRepr.Enum _, _) -> true | _ -> 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 name = SynComponentInfo.create record.Name diff --git a/WoofWare.Myriad.Plugins/InterfaceMockGenerator.fs b/WoofWare.Myriad.Plugins/InterfaceMockGenerator.fs index a188828..8ccb6de 100644 --- a/WoofWare.Myriad.Plugins/InterfaceMockGenerator.fs +++ b/WoofWare.Myriad.Plugins/InterfaceMockGenerator.fs @@ -89,7 +89,7 @@ module internal InterfaceMockGenerator = [] else [ SynPat.unit ]) - (AstHelper.instantiateRecord constructorFields) + (SynExpr.createRecord None constructorFields) |> SynBinding.withXmlDoc (PreXmlDoc.create "An implementation where every method throws.") |> SynBinding.withReturnAnnotation constructorReturnType |> SynMemberDefn.staticMember diff --git a/WoofWare.Myriad.Plugins/JsonParseGenerator.fs b/WoofWare.Myriad.Plugins/JsonParseGenerator.fs index 6e3a57c..173c5f8 100644 --- a/WoofWare.Myriad.Plugins/JsonParseGenerator.fs +++ b/WoofWare.Myriad.Plugins/JsonParseGenerator.fs @@ -480,7 +480,7 @@ module internal JsonParseGenerator = let finalConstruction = fields |> List.mapi (fun i fieldData -> SynLongIdent.createI fieldData.Ident, SynExpr.createIdent $"arg_%i{i}") - |> AstHelper.instantiateRecord + |> SynExpr.createRecord None (finalConstruction, assignments) ||> List.fold (fun final assignment -> SynExpr.createLet [ assignment ] final) diff --git a/WoofWare.Myriad.Plugins/RemoveOptionsGenerator.fs b/WoofWare.Myriad.Plugins/RemoveOptionsGenerator.fs index 3ff25ab..5039a01 100644 --- a/WoofWare.Myriad.Plugins/RemoveOptionsGenerator.fs +++ b/WoofWare.Myriad.Plugins/RemoveOptionsGenerator.fs @@ -97,7 +97,7 @@ module internal RemoveOptionsGenerator = SynLongIdent.createI fieldData.Ident, body ) - |> AstHelper.instantiateRecord + |> SynExpr.createRecord None SynBinding.basic [ functionName ] diff --git a/WoofWare.Myriad.Plugins/WoofWare.Myriad.Plugins.fsproj b/WoofWare.Myriad.Plugins/WoofWare.Myriad.Plugins.fsproj index 06978b6..08db020 100644 --- a/WoofWare.Myriad.Plugins/WoofWare.Myriad.Plugins.fsproj +++ b/WoofWare.Myriad.Plugins/WoofWare.Myriad.Plugins.fsproj @@ -22,7 +22,7 @@ - + diff --git a/nix/deps.json b/nix/deps.json index 4aa6445..0dbecfe 100644 --- a/nix/deps.json +++ b/nix/deps.json @@ -21,8 +21,8 @@ }, { "pname": "FsCheck", - "version": "3.1.0", - "hash": "sha256-u0Ha94EjClJ8evNSHu8d6+Dx9qYM3kV3sl1PEq9gF8s=" + "version": "3.2.0", + "hash": "sha256-ksZ4vLgWwyQOzFuK2BczdtDtWWYmedG7UBAg4pYuI8g=" }, { "pname": "fsharp-analyzers", @@ -381,7 +381,7 @@ }, { "pname": "WoofWare.Whippet.Fantomas", - "version": "0.3.2", - "hash": "sha256-dhzp/ASz1dlROJAfLYRKOCRlmjLBoS00KYeWEkSVtMA=" + "version": "0.5.1", + "hash": "sha256-59CwnOZQAq5ZJoUkd87OiP8KUwx8xYDLMimMMTlKeZA=" } ]