未验证 提交 8c6588a9 编写于 作者: C Chet Husk 提交者: GitHub

Change dive of match clauses to use the outer range, including the match head pattern (#12837)

上级 e3599215
......@@ -461,7 +461,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
......@@ -608,7 +608,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
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册