Print comment after closing parenthesis of SynType.Paren. Fixes fspro…

…jects#1128
nojaf · Sep 10, 2020 · fc77156 · fc77156
1 parent 0d32005
commit fc77156
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/UnionTests.fs b/src/Fantomas.Tests/UnionTests.fs
@@ -501,3 +501,21 @@ type UnresolvedAssemblyReference = UnresolvedAssemblyReference of string * Assem
 type ResolvedExtensionReference =
     ResolvedExtensionReference of string * AssemblyReference list * Tainted<ITypeProvider> list
 """
+
+[<Test>]
+let ``comment after union fields wrapped in parenthesis, 1128`` () =
+    formatSourceString false """
+module Test
+
+type t =
+   | Beta of (unit -> unit) /// comment is gone
+   | Alpha of bool /// comment stays
+"""  config
+    |> prepend newline
+    |> should equal """
+module Test
+
+type t =
+    | Beta of (unit -> unit) /// comment is gone
+    | Alpha of bool /// comment stays
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -3702,7 +3702,11 @@ and genType astContext outerBracket t =
                 +> sepCloseAnonRecd
 
             fun (ctx: Context) -> isShortExpression ctx.Config.MaxRecordWidth shortExpression longExpression ctx
-        | TParen (innerT) -> sepOpenT +> loop innerT +> sepCloseT
+        | TParen (innerT) ->
+            sepOpenT
+            +> loop innerT
+            +> sepCloseT
+            +> leaveNodeTokenByName current.Range RPAREN
         | t -> failwithf "Unexpected type: %O" t
 
     and loopTTupleList =