Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -223,7 +223,12 @@ public static string GetMfvCompiledName([NotNull] this FSharpMemberOrFunctionOrV

var isCompiled = typeElement is ICompiledTypeElement;
if (isCompiled)
return mfv.CompiledName;
{
var mfvCompiledName = mfv.CompiledName;
return mfv is { IsProperty: true, IsExtensionMember: false }
? mfvCompiledName.SubstringAfter("get_").SubstringAfter("set_")
: mfvCompiledName;
}

return mfv.LogicalName;
}
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
namespace global

type I1 =
abstract P1: int
abstract P2: int with get
abstract P3: int with set
abstract P4: int with get, set
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<TargetFramework>net8.0</TargetFramework>
<GenerateDocumentationFile>true</GenerateDocumentationFile>
<DisableImplicitFSharpCoreReference>true</DisableImplicitFSharpCoreReference>
</PropertyGroup>

<ItemGroup>
<Compile Include="AbstractMembers.fs" />
</ItemGroup>

<ItemGroup>
<PackageReference Include="FSharp.Core" Version="4.7.2" />
</ItemGroup>
</Project>
Original file line number Diff line number Diff line change
Expand Up @@ -15,6 +15,8 @@ Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "FSharpClassLib", "FSharpCla
EndProject
Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "ModuleMembers", "ModuleMembers\ModuleMembers.fsproj", "{51D06D99-4C39-4105-8DD0-55F2D1B1CC9E}"
EndProject
Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "AbstractMembers", "AbstractMembers\AbstractMembers.fsproj", "{78228E45-825D-43D8-A8EB-5D8D5916C2E2}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Release|Any CPU = Release|Any CPU
Expand All @@ -35,5 +37,7 @@ Global
{E1848B22-15CE-48E5-9993-DF9DB033F45C}.Release|Any CPU.Build.0 = Release|Any CPU
{51D06D99-4C39-4105-8DD0-55F2D1B1CC9E}.Release|Any CPU.ActiveCfg = Release|Any CPU
{51D06D99-4C39-4105-8DD0-55F2D1B1CC9E}.Release|Any CPU.Build.0 = Release|Any CPU
{78228E45-825D-43D8-A8EB-5D8D5916C2E2}.Release|Any CPU.ActiveCfg = Release|Any CPU
{78228E45-825D-43D8-A8EB-5D8D5916C2E2}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
EndGlobal
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
{ new I1{caret} }
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
{ new I1 with
member this.P1 = {selstart}failwith "todo"{selend}
member this.P2 = failwith "todo"
member this.P3 with set value = failwith "todo"
member this.P4 = failwith "todo"
member this.P4 with set value = failwith "todo" }
Original file line number Diff line number Diff line change
Expand Up @@ -91,6 +91,8 @@ type GenerateMissingMembersFixTest() =
[<Test>] member x.``Object Expr 03``() = x.DoNamedTest()
[<Test>] member x.``Object Expr 04``() = x.DoNamedTest()
[<Test>] member x.``Object Expr 05``() = x.DoNamedTest()
[<TestReferenceProjectOutput("AbstractMembers")>]
[<Test>] member x.``Object Expr 06``() = x.DoNamedTest()

[<Test>] member x.``Partial type 01``() = x.DoNamedTest()

Expand Down
Loading