Run long array sequence test on CI. (fsprojects#1520)

* Run `long array sequence` test on CI. * Call finalContinuation inside last callback. Run unit test in release mode.
nojaf · Mar 15, 2021 · afed9a7 · afed9a7
1 parent ea53b70
commit afed9a7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 8 deletions.
diff --git a/src/Fantomas.Tests/ListTests.fs b/src/Fantomas.Tests/ListTests.fs
@@ -403,8 +403,8 @@ let ``line comment inside array`` () =
  |]
 """
 
+#if RELEASE
 [<Test>]
-[<Ignore("fails on ci")>]
 let ``long array sequence`` () =
     formatSourceString
         false
@@ -1482,6 +1482,7 @@ let input =
 
 let sample = [| 0; 3; 0; 1; -3 |]
 """
+#endif
 
 [<Test>]
 let ``F# 4.7 implicit yield in sequence`` () =

diff --git a/src/Fantomas/AstTransformer.fs b/src/Fantomas/AstTransformer.fs
@@ -301,13 +301,7 @@ module private Ast =
                         mkNode SynExpr_Lazy range :: nodes
                         |> finalContinuation)
             | SynExpr.Sequential (_, _, expr1, expr2, _) ->
-                let continuations : ((TriviaNodeAssigner list -> TriviaNodeAssigner list) -> TriviaNodeAssigner list) list =
-                    [ visit expr1; visit expr2 ]
-
-                let finalContinuation (nodes: TriviaNodeAssigner list list) : TriviaNodeAssigner list =
-                    (List.collect id nodes) |> finalContinuation
-
-                Continuation.sequence continuations finalContinuation
+                visit expr2 (fun nodes1 -> visit expr1 (fun nodes2 -> nodes1 @ nodes2 |> finalContinuation))
             | SynExpr.SequentialOrImplicitYield (_, expr1, expr2, ifNotStmt, range) ->
                 let continuations : ((TriviaNodeAssigner list -> TriviaNodeAssigner list) -> TriviaNodeAssigner list) list =
                     [ visit expr1