Add regression test for comment after arrow in SynExpr.Lambda. Fixes #…

…1870. (#2024)
fsprojects · Jan 14, 2022 · 46858e7 · 46858e7
1 parent 5d33c55
commit 46858e7
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/LambdaTests.fs b/src/Fantomas.Tests/LambdaTests.fs
@@ -1086,3 +1086,20 @@ let g =
                revisionNumber = r
                processName = pn } -> p, r, pn)
 """
+
+[<Test>]
+let ``comment after arrow is preserved, 1870`` () =
+    formatSourceString
+        false
+        """
+fun a ->   // foo
+    a
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+fun a -> // foo
+    a
+"""