Print trivia for SynExpr.LongIdent. Fixes #1080. (#1081)

fsprojects · Sep 4, 2020 · 82a6987 · 82a6987
1 parent 573b009
commit 82a6987
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/LongIdentWithDotsTests.fs b/src/Fantomas.Tests/LongIdentWithDotsTests.fs
@@ -228,3 +228,21 @@ let variable =
      |> Result.okValue)
         .Value
 """
+
+[<Test>]
+let ``preserve comment before SynExpr.LongIdent, 1080`` () =
+    formatSourceString false """
+let shrinkInput input =
+    match toSynExprs input with
+    | [] ->
+        //stdout.WriteLine("Can't shrink {0} further.", sprintf "%A" input)
+        Seq.empty
+"""  config
+    |> prepend newline
+    |> should equal """
+let shrinkInput input =
+    match toSynExprs input with
+    | [] ->
+        //stdout.WriteLine("Can't shrink {0} further.", sprintf "%A" input)
+        Seq.empty
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -2084,6 +2084,7 @@ and genExpr astContext synExpr =
         | SynExpr.Assert _ -> genTriviaFor SynExpr_Assert synExpr.Range
         | SynExpr.While _ -> genTriviaFor SynExpr_While synExpr.Range
         | SynExpr.MatchLambda _ -> genTriviaFor SynExpr_MatchLambda synExpr.Range
+        | SynExpr.LongIdent _ -> genTriviaFor SynExpr_LongIdent synExpr.Range
         | _ -> id)
 
 and genMultilineRecordInstance