From adeaeb2bff439972ce9381705383c9bfe263c5be Mon Sep 17 00:00:00 2001
From: nojaf <florian.verdonck@outlook.com>
Date: Fri, 14 Jan 2022 17:07:27 +0100
Subject: [PATCH] Add regression test for comment after arrow in
 SynExpr.Lambda. Fixes #1870.

---
 src/Fantomas.Tests/LambdaTests.fs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/Fantomas.Tests/LambdaTests.fs b/src/Fantomas.Tests/LambdaTests.fs
index 3a3fe01db5..65a7aa6ee6 100644
--- 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
+"""