Skip to content

Commit 6edb042

Browse files
committed
Call continuation for SynExpr.Record.
1 parent 63539f8 commit 6edb042

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

tests/ParallelTypeCheckingTests/Code/TrieApproach/FileContentMapping.fs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -351,7 +351,7 @@ let visitSynExpr (e: SynExpr) : FileContentEntry list =
351351
| Some (t, e, _, _, _), None ->
352352
visit e (fun nodes -> [ yield! visitSynType t; yield! nodes; yield! fieldNodes ] |> continuation)
353353
| None, Some (e, _) -> visit e (fun nodes -> nodes @ fieldNodes |> continuation)
354-
| _ -> fieldNodes
354+
| _ -> continuation fieldNodes
355355
| SynExpr.New (targetType = targetType; expr = expr) -> visit expr (fun nodes -> visitSynType targetType @ nodes |> continuation)
356356
| SynExpr.ObjExpr (objType, argOptions, _, bindings, members, extraImpls, _, _) ->
357357
[
@@ -684,7 +684,7 @@ module Tests =
684684
[<Test>]
685685
let ``Test a single file`` () =
686686
let fileName =
687-
@"C:\Users\nojaf\Projects\main-fantomas\src\Fantomas.Core\CodeFormatter.fsi"
687+
@"C:\Users\nojaf\Projects\main-fantomas\src\Fantomas.Core\Selection.fs"
688688

689689
let ast = parseSourceCode (fileName, System.IO.File.ReadAllText(fileName))
690690
let contents = mkFileContent { Idx = 0; File = fileName; AST = ast }

0 commit comments

Comments
 (0)