Commit86fcbe3

authored

prevent endless async loop on Receive (#3498)

* prevent endless async loop on Receive* don't run update loop on ui thread forever* Update LanguageService.fs

1 parent83ce885 commit86fcbe3Copy full SHA for 86fcbe3

File tree

-4

lines changed

-4

lines changed

Lines changed: 2 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -2084,9 +2084,8 @@ namespace Microsoft.FSharp.Control`
`2084`	`2084`	`// If it isn't, then create it, and go back to the start to`
`2085`	`2085`	`// check arrivals again.`
`2086`	`2086`	`match pulsewith`
`2087`		`-\|null->`
`2088`		`-if timeout>=0\|\| cancellationSupportedthen`
`2089`		`- ensurePulse()\|> ignore`
	`2087`	`+\|nullwhen timeout>=0\|\| cancellationSupported->`
	`2088`	`+ ensurePulse()\|> ignore`
`2090`	`2089`	`return! processFirstArrival()`
`2091`	`2090`	`\|_->`
`2092`	`2091`	`// Wait until we have been notified about a message. When that happens, rescan the arrivals`

Lines changed: 3 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -352,7 +352,9 @@ and`
`352`	`352`	`whiletruedo`
`353`	`353`	`let!siteProvider= inbox.Receive()`
`354`	`354`	`do! Async.SwitchToContext ctx`
`355`		`- this.SetupProjectFile(siteProvider, this.Workspace,"SetupProjectsAfterSolutionOpen")}`
	`355`	`+ this.SetupProjectFile(siteProvider, this.Workspace,"SetupProjectsAfterSolutionOpen")`
	`356`	`+do! Async.SwitchToThreadPool()`
	`357`	`+}`
`356`	`358`
`357`	`359`	`use _= Events.SolutionEvents.OnAfterOpenProject\|> Observable.subscribe(fun args->`
`358`	`360`	`match args.Hierarchywith`

Comments

(0)