Remove blank line between type extension. (#2970)

fsprojects · Nov 3, 2023 · 5c9e498 · 5c9e498
1 parent 0aabadd
commit 5c9e498
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 5 deletions.
diff --git a/src/Fantomas.Core.Tests/DallasTests.fs b/src/Fantomas.Core.Tests/DallasTests.fs
@@ -481,7 +481,6 @@ type Foo with
         equal
         """
 type Foo with
-
     member x.Bar = ()
 """
 

diff --git a/src/Fantomas.Core.Tests/NewlineBetweenTypeDefinitionAndMembersTests.fs b/src/Fantomas.Core.Tests/NewlineBetweenTypeDefinitionAndMembersTests.fs
@@ -120,7 +120,7 @@ type Color =
 """
 
 [<Test>]
-let ``type augmentation with members`` () =
+let ``type augmentation with members should not add newline`` () =
     formatSourceString
         false
         """
@@ -133,7 +133,6 @@ type HttpContext with
         equal
         """
 type HttpContext with
-
     member this.QueryString() = "?"
 """
 
@@ -232,7 +231,6 @@ type HttpContext with
 namespace Signature
 
 type HttpContext with
-
     member QueryString: unit -> string
 """
 

diff --git a/src/Fantomas.Core/CodePrinter.fs b/src/Fantomas.Core/CodePrinter.fs
@@ -3535,7 +3535,7 @@ let genTypeDefn (td: TypeDefn) =
         header
         +> sepSpace
         +> optSingle genSingleTextNode typeName.WithKeyword
-        +> indentSepNlnUnindent (sepNlnBetweenTypeAndMembers typeDefnNode +> genMemberDefnList members)
+        +> indentSepNlnUnindent (genMemberDefnList members)
         |> genNode node
     | TypeDefn.Delegate node ->
         header
-Original file line number
+Diff line change
@@ Expand Up / @@ -481,7 +481,6 @@ type Foo with @@
             equal
             """
     type Foo with
         member x.Bar = ()
     """
@@ Expand Down @@