Print trivia of SynMatchClause

src/Fantomas.Tests/TriviaTests.fs

@@ -1,6 +1,7 @@
 module Fantomas.Tests.TriviaTests
 
 open NUnit.Framework
+open FsUnit
 open Fantomas
 open Fantomas.Tests.TestHelper
 open Fantomas.TriviaTypes
@@ -489,3 +490,65 @@ let ``number expression`` () =
     | [ { ContentItself = Some (Number (n))
           Type = TriviaNodeType.MainNode (SynExpr_Const) } ] -> n == "2.0m"
     | _ -> fail ()
+
+[<Test>]
+let ``line comment inside short `with` block (of a try-with), 1219`` () =
+    formatSourceString
+        false
+        """
+      try
+          //humberto
+          TrySomething(someParam)
+      with
+          //comentario
+          ex ->
+          MakeSureToCleanup(someParam)
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+try
+    //humberto
+    TrySomething(someParam)
+with
+    //comentario
+    ex -> MakeSureToCleanup(someParam)
+"""
+
+[<Test>]
+let ``line comment inside `with` block (of a try-with), 1219`` () =
+    formatSourceString
+        false
+        """module Foo =
+        let Bar () =
+            async {
+                try
+                    let! content = tryDownloadFile url
+                    return Some content
+                with
+                    // should we specify HttpRequestException?
+                    ex ->
+                        Infrastructure.ReportWarning ex
+                        return None
+            }
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+module Foo =
+    let Bar () =
+        async {
+            try
+                let! content = tryDownloadFile url
+                return Some content
+            with
+                // should we specify HttpRequestException?
+                ex ->
+                    Infrastructure.ReportWarning ex
+                    return None
+        }
+"""

src/Fantomas/CodePrinter.fs

@@ -4103,6 +4103,7 @@ and genClause astContext hasBar (Clause (p, e, eo)) =
         +> leaveNodeTokenByName arrowRange RARROW
 
     genTriviaBeforeClausePipe p.Range
+    +> genTriviaMainNodesBeforeClausePipe p.Range
     +> ifElse hasBar (sepBar +> atCurrentColumnWithPrepend pat body) (pat +> body)
 
 /// Each multiline member definition has a pre and post new line.

src/Fantomas/Context.fs

@@ -1448,6 +1448,15 @@ let internal genTriviaBeforeClausePipe (rangeOfClause: range) ctx =
         | None -> id
     <| ctx
 
+let internal genTriviaMainNodesBeforeClausePipe (rangeOfClause: range) ctx =
+    (Map.tryFindOrEmptyList SynMatchClause_Clause ctx.TriviaMainNodes)
+    |> List.tryFind (fun t -> RangeHelpers.rangeEq t.Range rangeOfClause)
+    |> fun trivia ->
+        match trivia with
+        | Some trivia -> indent +> (printContentBefore trivia)
+        | None -> id
+    <| ctx
+
 let internal hasLineCommentAfterInfix (rangePlusInfix: range) (ctx: Context) =
     match Map.tryFind SynExpr_Ident ctx.TriviaMainNodes with
     | Some triviaNodes ->