From 8a2e0a305dd0f594e39594bd0ab91a38d9dbcf9b Mon Sep 17 00:00:00 2001 From: Chet Husk Date: Fri, 11 Mar 2022 18:00:03 -0600 Subject: [PATCH] Change dive of match clauses to use the outer range, including the match head pattern --- src/fsharp/service/ServiceParseTreeWalk.fs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fsharp/service/ServiceParseTreeWalk.fs b/src/fsharp/service/ServiceParseTreeWalk.fs index 78b4df62902..a52199a0989 100755 --- a/src/fsharp/service/ServiceParseTreeWalk.fs +++ b/src/fsharp/service/ServiceParseTreeWalk.fs @@ -458,7 +458,7 @@ module SyntaxTraversal = | SynExpr.Match (expr=synExpr; clauses=synMatchClauseList) -> [yield dive synExpr synExpr.Range traverseSynExpr - yield! synMatchClauseList |> List.map (fun x -> dive x x.RangeOfGuardAndRhs (traverseSynMatchClause path))] + yield! synMatchClauseList |> List.map (fun x -> dive x x.Range (traverseSynMatchClause path))] |> pick expr | SynExpr.Do (synExpr, _range) -> traverseSynExpr synExpr @@ -603,7 +603,7 @@ module SyntaxTraversal = | SynExpr.MatchBang (expr=synExpr; clauses=synMatchClauseList) -> [yield dive synExpr synExpr.Range traverseSynExpr - yield! synMatchClauseList |> List.map (fun x -> dive x x.RangeOfGuardAndRhs (traverseSynMatchClause path))] + yield! synMatchClauseList |> List.map (fun x -> dive x x.Range (traverseSynMatchClause path))] |> pick expr | SynExpr.DoBang (synExpr, _range) -> traverseSynExpr synExpr