Keep comment after opening bracket in ElmishReactWithoutChildren expr…

…ession. Fixes fsprojects#2037. (fsprojects#2039)
jindraivanek · Mar 30, 2022 · e5bbaad · e5bbaad
1 parent 1d25e2f
commit e5bbaad
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/ElmishTests.fs b/src/Fantomas.Tests/ElmishTests.fs
@@ -1444,3 +1444,23 @@ a [] [
 // def
 ]
 """
+
+[<Test>]
+let ``comment after opening bracket in Elmish expression without children, 2037`` () =
+    formatSourceString
+        false
+        """
+ReactDom.render (React.strictMode [ // comment 
+                                    App() ], root)
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+ReactDom.render (
+    React.strictMode [ // comment
+                       App() ],
+    root
+)
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -1066,7 +1066,8 @@ and genExpr astContext synExpr ctx =
                         openingTokenRange
                         (ifElse isArray sepOpenA sepOpenL)
                     +> atCurrentColumn (
-                        col sepNln children (genExpr astContext)
+                        sepNlnWhenWriteBeforeNewlineNotEmpty sepNone
+                        +> col sepNln children (genExpr astContext)
                         +> onlyIf
                             (TriviaHelpers.``has content before that matches``
                                 (fun tn -> RangeHelpers.rangeEq tn.Range closingTokenRange)