Print trivia between empty dual list Elmish children. Fixes #1179. (#…

…1675)
fsprojects · Apr 23, 2021 · 728e31e · 728e31e
1 parent 4d73011
commit 728e31e
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 5 deletions.
diff --git a/src/Fantomas.Tests/ElmishTests.fs b/src/Fantomas.Tests/ElmishTests.fs
@@ -1440,3 +1440,22 @@ let private App () =
 
 exportDefault App
 """
+
+[<Test>]
+let ``comment inside empty elmish children, 1179`` () =
+    formatSourceString
+        false
+        """
+a [] [
+    // def
+]
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+a [] [
+// def
+]
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -1098,11 +1098,9 @@ and genExpr astContext synExpr ctx =
                     (if isArray then BAR_RBRACK else RBRACK)
 
                 match children with
-                | [] when (not isArray) ->
-                    sepOpenLFixed
-                    +> sepCloseLFixed
-                    +> leaveNodeTokenByName childrenRange RBRACK
-                | [] when isArray -> sepOpenAFixed +> sepCloseAFixed
+                | [] ->
+                    tokN openingTokenRange openTokenType (ifElse isArray sepOpenAFixed sepOpenLFixed)
+                    +> tokN closingTokenRange closingTokenType (ifElse isArray sepCloseAFixed sepCloseLFixed)
                 | [ singleChild ] ->
                     if isShort then
                         tokN openingTokenRange openTokenType (ifElse isArray sepOpenA sepOpenL)