Remove implicitCtor in TypeDefnExplicitNode. (#2679)

fsprojects · Jan 4, 2023 · 1eb5725 · 1eb5725
1 parent 96a5b7a
commit 1eb5725
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 12 deletions.
diff --git a/src/Fantomas.Core/ASTTransformer.fs b/src/Fantomas.Core/ASTTransformer.fs
@@ -2229,12 +2229,6 @@ let mkTypeDefn
         kind = SynTypeDefnKind.Class | SynTypeDefnKind.Interface | SynTypeDefnKind.Struct as tdk
         members = objectMembers
         range = range) ->
-        let implicitConstructorNode =
-            match implicitConstructor with
-            | Some(SynMemberDefn.ImplicitCtor(vis, attrs, pats, self, xmlDoc, m)) ->
-                mkImplicitCtor creationAide vis attrs pats self xmlDoc m |> Some
-            | _ -> None
-
         let kindNode =
             match tdk, range with
             | SynTypeDefnKind.Class, StartRange 5 (mClass, _) -> stn "class" mClass
@@ -2255,7 +2249,7 @@ let mkTypeDefn
 
         let body = TypeDefnExplicitBodyNode(kindNode, objectMembers, endNode, range)
 
-        TypeDefnExplicitNode(typeNameNode, implicitConstructorNode, body, members, typeDefnRange)
+        TypeDefnExplicitNode(typeNameNode, body, members, typeDefnRange)
         |> TypeDefn.Explicit
 
     | SynTypeDefnRepr.ObjectModel(kind = SynTypeDefnKind.Augmentation mWith) ->
@@ -2958,7 +2952,7 @@ let mkTypeDefnSig (creationAide: CreationAide) (SynTypeDefnSig(typeInfo, typeRep
 
         let body = TypeDefnExplicitBodyNode(kindNode, objectMembers, endNode, range)
 
-        TypeDefnExplicitNode(typeNameNode, None, body, members, typeDefnRange)
+        TypeDefnExplicitNode(typeNameNode, body, members, typeDefnRange)
         |> TypeDefn.Explicit
 
     | SynTypeDefnSigRepr.ObjectModel(kind = SynTypeDefnKind.Augmentation mWith) ->

diff --git a/src/Fantomas.Core/SyntaxOak.fs b/src/Fantomas.Core/SyntaxOak.fs
@@ -2382,17 +2382,14 @@ type TypeDefnExplicitBodyNode(kind: SingleTextNode, members: MemberDefn list, en
     member x.Members = members
     member x.End = endNode
 
-type TypeDefnExplicitNode
-    (typeNameNode, implicitCtor: ImplicitConstructorNode option, body: TypeDefnExplicitBodyNode, members, range) =
+type TypeDefnExplicitNode(typeNameNode, body: TypeDefnExplicitBodyNode, members, range) =
     inherit NodeBase(range)
 
     override this.Children =
         [| yield typeNameNode
-           yield! noa implicitCtor
            yield body
            yield! nodes (List.map MemberDefn.Node members) |]
 
-    member x.ImplicitConstructor = implicitCtor
     member x.Body = body
 
     interface ITypeDefn with