Filter out IExceptionFieldDeclaration for IExceptionDeclaration.

JetBrains · May 8, 2023 · 8c85309 · 8c85309
1 parent d47b272
commit 8c85309
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/ReSharper.FSharp/src/FSharp.Psi.Services/src/Generate/GenerateSignatureProvider.fs b/ReSharper.FSharp/src/FSharp.Psi.Services/src/Generate/GenerateSignatureProvider.fs
@@ -192,7 +192,12 @@ type FSharpGenerateSignatureBuilder() =
                 factory.CreateTypeMemberSignature(sigStrings)
             | :? IExceptionDeclaration as exceptionDeclaration ->
                 let sigExceptionDeclaration = exceptionDeclaration.Copy()
-                if not (Seq.isEmpty exceptionDeclaration.MemberDeclarations) then
+                let memberDeclarations =
+                    exceptionDeclaration.MemberDeclarations
+                    |> Seq.filter (function | :? IExceptionFieldDeclaration -> false | _ -> true)
+                    |> Seq.toArray
+
+                if memberDeclarations.Length > 0 then
                     let sigMembers =
                         exceptionDeclaration.TypeMembers
                         |> Seq.choose (createMemberDeclaration >> Option.ofObj)