Restore loopTTupleList implementation. (#2405)

fsprojects · Aug 3, 2022 · d4e2ec4 · d4e2ec4
1 parent 18be1c5
commit d4e2ec4
Showing 1 changed file with 5 additions and 16 deletions.
diff --git a/src/Fantomas.Core/CodePrinter.fs b/src/Fantomas.Core/CodePrinter.fs
@@ -3894,22 +3894,11 @@ and genType astContext outerBracket t =
         | t -> failwithf "Unexpected type: %O" t
 
     and loopTTupleList ts =
-        if
-            List.forall
-                (function
-                | SynTupleTypeSegment.Type _ -> true
-                | _ -> false)
-                ts
-        then
-            col !- " * " ts (function
-                | SynTupleTypeSegment.Type t -> loop t
-                | _ -> sepNone)
-        else
-            col sepSpace ts (fun t ->
-                match t with
-                | SynTupleTypeSegment.Type t -> loop t
-                | SynTupleTypeSegment.Star _ -> !- "*"
-                | SynTupleTypeSegment.Slash _ -> !- "/")
+        col sepSpace ts (fun t ->
+            match t with
+            | SynTupleTypeSegment.Type t -> loop t
+            | SynTupleTypeSegment.Star _ -> !- "*"
+            | SynTupleTypeSegment.Slash _ -> !- "/")
 
     and loopFuns (ts, ret) =
         let short =