Print trivia before object expression. Fixes #1388. (#1389)

fsprojects · Jan 23, 2021 · 6d75fff · 6d75fff
1 parent d23b6f7
commit 6d75fff
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/InterfaceTests.fs b/src/Fantomas.Tests/InterfaceTests.fs
@@ -478,3 +478,26 @@ type IFoo =
         * someReallyLongNameThatMakesTheTupleMultiLine : string ->
         string
 """
+
+[<Test>]
+let ``print trivia before object expression, 1388`` () =
+    formatSourceString
+        false
+        """
+let test () =
+    let something = "something"
+
+    { new IDisposable with
+        override this.Dispose() = dispose somethingElse }
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let test () =
+    let something = "something"
+
+    { new IDisposable with
+        override this.Dispose() = dispose somethingElse }
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -2620,6 +2620,7 @@ and genExpr astContext synExpr ctx =
             | SynExpr.Downcast _ -> genTriviaFor SynExpr_Downcast synExpr.Range
             | SynExpr.DotIndexedGet _ -> genTriviaFor SynExpr_DotIndexedGet synExpr.Range
             | SynExpr.DotIndexedSet _ -> genTriviaFor SynExpr_DotIndexedSet synExpr.Range
+            | SynExpr.ObjExpr _ -> genTriviaFor SynExpr_ObjExpr synExpr.Range
             | _ -> id)
 
     expr ctx