Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commitcf6ed62

Browse files
vasily-kirichenkoKevinRansom
authored andcommitted
handle missing SynPat paths (dotnet#4678)
1 parent3e59fa0 commitcf6ed62

File tree

1 file changed

+13
-7
lines changed

1 file changed

+13
-7
lines changed

‎src/fsharp/service/ServiceParseTreeWalk.fs‎

Lines changed: 13 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -312,8 +312,9 @@ module public AstTraversal =
312312
dive synExpr2 synExpr2.Range traverseSynExpr
313313
dive synExpr3 synExpr3.Range traverseSynExpr]
314314
|> pick expr
315-
| SynExpr.ForEach(_sequencePointInfoForForLoop,_seqExprOnly,_isFromSource,_synPat, synExpr, synExpr2,_range)->
316-
[dive synExpr synExpr.Range traverseSynExpr
315+
| SynExpr.ForEach(_sequencePointInfoForForLoop,_seqExprOnly,_isFromSource, synPat, synExpr, synExpr2,_range)->
316+
[dive synPat synPat.Range traversePat
317+
dive synExpr synExpr.Range traverseSynExpr
317318
dive synExpr2 synExpr2.Range traverseSynExpr]
318319
|> pick expr
319320
| SynExpr.ArrayOrListOfSeqExpr(_, synExpr,_range)-> traverseSynExpr synExpr
@@ -434,8 +435,9 @@ module public AstTraversal =
434435
| SynExpr.ImplicitZero(_range)-> None
435436
| SynExpr.YieldOrReturn(_, synExpr,_range)-> traverseSynExpr synExpr
436437
| SynExpr.YieldOrReturnFrom(_, synExpr,_range)-> traverseSynExpr synExpr
437-
| SynExpr.LetOrUseBang(_sequencePointInfoForBinding,_,_,_synPat, synExpr, synExpr2,_range)->
438-
[dive synExpr synExpr.Range traverseSynExpr
438+
| SynExpr.LetOrUseBang(_sequencePointInfoForBinding,_,_, synPat, synExpr, synExpr2,_range)->
439+
[dive synPat synPat.Range traversePat
440+
dive synExpr synExpr.Range traverseSynExpr
439441
dive synExpr2 synExpr2.Range traverseSynExpr]
440442
|> pick expr
441443
| SynExpr.DoBang(synExpr,_range)-> traverseSynExpr synExpr
@@ -598,13 +600,17 @@ module public AstTraversal =
598600
letpath= TraverseStep.MatchClause mc:: path
599601
letdefaultTraverse mc=
600602
match mcwith
601-
|(SynMatchClause.Clause(_synPat, synExprOption, synExpr,_range,_sequencePointInfoForTarget)as all)->
602-
[
603+
|(SynMatchClause.Clause(synPat, synExprOption, synExpr,_range,_sequencePointInfoForTarget)as all)->
604+
[dive synPat synPat.Range traversePat]
605+
@
606+
([
603607
match synExprOptionwith
604608
| None->()
605609
| Some guard->yield guard
606610
yield synExpr
607-
]|> List.map(fun x-> dive x x.Range(traverseSynExpr path))|> pick all.Range all
611+
]
612+
|> List.map(fun x-> dive x x.Range(traverseSynExpr path))
613+
)|> pick all.Range all
608614
visitor.VisitMatchClause(defaultTraverse,mc)
609615

610616
andtraverseSynBinding path b=

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp