Ignore SynExpr.CompExpr as TriviaNode candidate. Fixes #990. (#1005)

fsprojects · Aug 19, 2020 · 29f524e · 29f524e
1 parent e7a9b75
commit 29f524e
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/ListTests.fs b/src/Fantomas.Tests/ListTests.fs
@@ -1636,4 +1636,24 @@ let choices: Foo list =
     [ yield!
         // Test
         [ Foo 2 ] ]
-"""
+"""
+
+[<Test>]
+let ``preserve comment above first element of list, 990`` () =
+    formatSourceString false """
+let x = [
+    // comment
+    1
+    // another comment
+    2
+]
+"""  config
+    |> prepend newline
+    |> should equal """
+let x =
+    [
+      // comment
+      1
+      // another comment
+      2 ]
+"""
diff --git a/src/Fantomas/Trivia.fs b/src/Fantomas/Trivia.fs
@@ -35,6 +35,7 @@ let filterNodes nodes =
             "SynTypeDefnRepr.ObjectModel"
             "TypeDefnSig"
             "SynTypeDefnSigRepr.ObjectModel"
+            "SynExpr.CompExpr"
         ]
     nodes |> List.filter (fun (n: Node) -> not (Set.contains n.Type filterOutNodeTypes))