Update style for empty class.

CHANGELOG.md

@@ -1,9 +1,11 @@
 # Changelog
 
-## Unreleased
+## 6.3.0-alpha-001 - 2023-11-03
 
 ### Changed
+* Remove blank line between type extension. [#2970](https://github.com/fsprojects/fantomas/pull/2970)
 * ExperimentalKeepIndentInBranch should fire when first branch was all on one line. [#2973](https://github.com/fsprojects/fantomas/issues/2973)
+* Style for empty class. [#2976](https://github.com/fsprojects/fantomas/pull/2976)
 
 ## 6.2.3 - 2023-11-2
 

src/Fantomas.Core.Tests/AttributeTests.fs

@@ -173,14 +173,10 @@ type Sample [<ImportingConstructor>] internal () = class end"""
         equal
         """
 [<Export>]
-type Sample [<ImportingConstructor>] (dependency: IDependency) =
-    class
-    end
+type Sample [<ImportingConstructor>] (dependency: IDependency) = class end
 
 [<Export>]
-type Sample [<ImportingConstructor>] internal () =
-    class
-    end
+type Sample [<ImportingConstructor>] internal () = class end
 """
 
 [<Test>]

src/Fantomas.Core.Tests/ClassTests.fs

@@ -65,17 +65,11 @@ type Class7<'T when 'T : (new : unit -> 'T)>() =
     |> should
         equal
         """
-type Class4<'T when 'T: (static member staticMethod1: unit -> 'T)> =
-    class
-    end
+type Class4<'T when 'T: (static member staticMethod1: unit -> 'T)> = class end
 
-type Class5<'T when 'T: (member Method1: 'T -> int)> =
-    class
-    end
+type Class5<'T when 'T: (member Method1: 'T -> int)> = class end
 
-type Class6<'T when 'T: (member Property1: int)> =
-    class
-    end
+type Class6<'T when 'T: (member Property1: int)> = class end
 
 type Class7<'T when 'T: (new: unit -> 'T)>() =
     member val Field = new 'T()
@@ -854,9 +848,7 @@ type SomeVeryLongTypeNameWithConstructor
         aVeryLongType: AVeryLongTypeThatYouNeedToUse,
         aSecondVeryLongType: AVeryLongTypeThatYouNeedToUse,
         aThirdVeryLongType: AVeryLongTypeThatYouNeedToUse
-    ) =
-    class
-    end
+    ) = class end
 """
 
 [<Test>]

src/Fantomas.Core.Tests/CommentTests.fs

@@ -1870,9 +1870,7 @@ type MaybeBuilder() = class end
 // Maybe computation expression builder, copied from ExtCore library
 /// https://github.com/jack-pappas/ExtCore/blob/master/ExtCore/Control.fs
 [<Sealed>]
-type MaybeBuilder() =
-    class
-    end
+type MaybeBuilder() = class end
 """
 
 [<Test>]

src/Fantomas.Core.Tests/CompilerDirectivesTests.fs

@@ -2988,8 +2988,7 @@ type internal CompilerStateCache(readAllBytes: string -> byte[], projectOptions:
 #else
     =
 #endif
-    class
-    end
+    class end
 """
 
 [<Test>]

src/Fantomas.Core.Tests/DallasTests.fs

@@ -430,9 +430,7 @@ let ``trivia inside implicit constructor`` () =
 type MyType
     (
     (* some comment *)
-    ) =
-    class
-    end
+    ) = class end
 """
 
 [<Test>]

src/Fantomas.Core.Tests/InterfaceTests.fs

@@ -619,9 +619,7 @@ type IInterface3 =
     |> should
         equal
         """
-type IInterface =
-    interface
-    end
+type IInterface = interface end
 
 type IInterface2 =
     interface

src/Fantomas.Core.Tests/SpaceBeforeClassConstructorTests.fs

@@ -16,9 +16,7 @@ let ``default config should not add space before unit in uppercase class definit
     formatSourceString false "type Person () = class end" config
     |> should
         equal
-        """type Person() =
-    class
-    end
+        """type Person() = class end
 """
 
 [<Test>]
@@ -33,9 +31,7 @@ let ``SpaceBeforeUnitParameterInUppercaseClassConstructor should add space after
     |> should
         equal
         """
-type Person () =
-    class
-    end
+type Person () = class end
 """
 
 // Space before unit in lowercase class definition
@@ -53,9 +49,7 @@ let ``default config should not add space before unit in lowercase class definit
     |> should
         equal
         """
-type t() =
-    class
-    end
+type t() = class end
 """
 
 [<Test>]
@@ -65,17 +59,14 @@ let ``SpaceBeforeUnitParameterInLowercaseClassConstructor should add space befor
     formatSourceString
         false
         """type t() =
-    class
-    end
+    class end
 """
         spaceBeforeConfig
     |> prepend newline
     |> should
         equal
         """
-type t () =
-    class
-    end
+type t () = class end
 """
 
 // Space before parentheses in Uppercase class definition
@@ -93,9 +84,7 @@ type Animal(length:int) =
     |> should
         equal
         """
-type Animal(length: int) =
-    class
-    end
+type Animal(length: int) = class end
 """
 
 [<Test>]
@@ -113,9 +102,7 @@ type Animal(length:int) =
     |> should
         equal
         """
-type Animal (length: int) =
-    class
-    end
+type Animal (length: int) = class end
 """
 
 // Space before parentheses in lowercase class definition
@@ -133,9 +120,7 @@ type animal(length:int) =
     |> should
         equal
         """
-type animal(length: int) =
-    class
-    end
+type animal(length: int) = class end
 """
 
 [<Test>]
@@ -153,9 +138,7 @@ type animal(length:int) =
     |> should
         equal
         """
-type animal (length: int) =
-    class
-    end
+type animal (length: int) = class end
 """
 
 // Space before parentheses in secondary class constructor

src/Fantomas.Core.Tests/Stroustrup/SynTypeDefnSimpleReprRecordTests.fs

@@ -315,9 +315,7 @@ type UpdatedName = { PreviousName: string }
     |> should
         equal
         """
-type IEvent =
-    interface
-    end
+type IEvent = interface end
 
 type SomeEvent = {
     Id: string

src/Fantomas.Core.Tests/StructTests.fs

@@ -141,9 +141,7 @@ type NameStruct = struct end
     |> should
         equal
         """
-type NameStruct =
-    struct
-    end
+type NameStruct = struct end
 """
 
 [<Test>]
@@ -160,9 +158,7 @@ type NameStruct() =
     |> should
         equal
         """
-type NameStruct() =
-    struct
-    end
+type NameStruct() = struct end
 """
 
 [<Test>]

src/Fantomas.Core.Tests/SynConstTests.fs

@@ -144,9 +144,7 @@ module Runner =
     let mPerSecond = 1000<m / second> // foo
 
     [<Measure>]
-    type ProcessId =
-        class
-        end
+    type ProcessId = class end
 """
 
 [<Test>]

src/Fantomas.Core.Tests/TypeAnnotationTests.fs

@@ -56,9 +56,7 @@ type Meh
             LongTupleItemTypeThree *
             LongThingFour *
             LongThingFiveYow
-    ) =
-    class
-    end
+    ) = class end
 """
 
 [<Test>]

src/Fantomas.Core.Tests/TypeDeclarationTests.fs

@@ -609,45 +609,25 @@ type Class14<'T,'U when 'T : equality and 'U : equality> =
     |> should
         equal
         """
-type Class1<'T when 'T :> System.Exception> =
-    class
-    end
+type Class1<'T when 'T :> System.Exception> = class end
 
-type Class2<'T when 'T :> System.IComparable> =
-    class
-    end
+type Class2<'T when 'T :> System.IComparable> = class end
 
-type Class3<'T when 'T: null> =
-    class
-    end
+type Class3<'T when 'T: null> = class end
 
-type Class8<'T when 'T: not struct> =
-    class
-    end
+type Class8<'T when 'T: not struct> = class end
 
-type Class9<'T when 'T: enum<uint32>> =
-    class
-    end
+type Class9<'T when 'T: enum<uint32>> = class end
 
-type Class10<'T when 'T: comparison> =
-    class
-    end
+type Class10<'T when 'T: comparison> = class end
 
-type Class11<'T when 'T: equality> =
-    class
-    end
+type Class11<'T when 'T: equality> = class end
 
-type Class12<'T when 'T: delegate<obj * System.EventArgs, unit>> =
-    class
-    end
+type Class12<'T when 'T: delegate<obj * System.EventArgs, unit>> = class end
 
-type Class13<'T when 'T: unmanaged> =
-    class
-    end
+type Class13<'T when 'T: unmanaged> = class end
 
-type Class14<'T, 'U when 'T: equality and 'U: equality> =
-    class
-    end
+type Class14<'T, 'U when 'T: equality and 'U: equality> = class end
 """
 
 [<Test>]
@@ -806,9 +786,7 @@ type t(x : int) =
         """
 let f (x : int) = x
 
-type t(x : int) =
-    class
-    end
+type t(x : int) = class end
 """
 
 [<Test>]
@@ -1754,9 +1732,7 @@ type DeviceNotificationHandler<'Notification, 'CallbackId, 'RegisterInputData, '
     |> should
         equal
         """
-type INotifications<'a, 'b, 'c, 'd, 'e> =
-    class
-    end
+type INotifications<'a, 'b, 'c, 'd, 'e> = class end
 
 type DeviceNotificationHandler<'Notification, 'CallbackId, 'RegisterInputData, 'RegisterOutputData, 'UnregisterOutputData>
     private
@@ -2255,9 +2231,7 @@ type C
         aSecondVeryLongType : AVeryLongTypeThatYouNeedToUse,
         aThirdVeryLongType : AVeryLongTypeThatYouNeedToUse
     )
-    =
-    class
-    end
+    = class end
 """
 
 [<Test>]
@@ -2285,9 +2259,7 @@ type C
         aSecondVeryLongType : AVeryLongTypeThatYouNeedToUse,
         aThirdVeryLongType : AVeryLongTypeThatYouNeedToUse
     )
-    =
-    class
-    end
+    = class end
 """
 
 [<Test>]
@@ -3188,9 +3160,7 @@ type Event<'Delegate, 'Args when 'Delegate: delegate<'Args, unit> and 'Delegate
         equal
         """
 type Event<'Delegate, 'Args
-    when 'Delegate: delegate<'Args, unit> and 'Delegate :> System.Delegate and 'Delegate: not struct>() =
-    class
-    end
+    when 'Delegate: delegate<'Args, unit> and 'Delegate :> System.Delegate and 'Delegate: not struct>() = class end
 """
 
 [<Test>]
@@ -3209,9 +3179,7 @@ type Event<'Delegate, 'Args when 'Delegate: delegate<'Args, unit> and 'Delegate
 type Event<'Delegate, 'Args
     when 'Delegate: delegate<'Args, unit>
     and 'Delegate :> System.Delegate
-    and 'Delegate: not struct>() =
-    class
-    end
+    and 'Delegate: not struct>() = class end
 """
 
 [<Test>]
@@ -3638,9 +3606,7 @@ type Meh
         ,
         c
 #endif
-    ) =
-    class
-    end
+    ) = class end
 """
 
 [<Test>]