memberx.GetService<'T>()= x.GetService(typeof<'T>):?> 'T

letfile= Path.GetFileName filePath

Printf.kprintf(fun s-> Logging.logInfof"[ParseAndCheckDocument(%s)]%s" file s)

use ready=new SemaphoreSlim(0)

use ready=new SemaphoreSlim(1)

log"--> ParseAndCheckFileInProject"

let!parseResults,checkFileAnswer= this.ParseAndCheckFileInProject(filePath, textVersionHash, sourceText, options)

log"<-- ParseAndCheckFileInProject"

match checkFileAnswerwith

| FSharpCheckFileAnswer.Aborted->

None

| FSharpCheckFileAnswer.Succeeded(checkFileResults)->

Some(parseResults, checkFileResults)

ready.Release()|> ignore

log"`ready` released"

return result

}|> Async.StartChildAsTask

}|> Async.StartChild

log"waiting for result for 2 seconds"

let!gotResult= ready.WaitAsync(TimeSpan.FromSeconds2.)|> Async.AwaitTask

if gotResultthen

return Ready worker.Result

elsereturn StillRunning(Async.AwaitTask worker)

if gotResultthen

log"got result in 2 seconds"

let!result= worker

return Ready result

log"DID NOT get result in 2 seconds"

return StillRunning worker

match allowStaleResults, this.TryGetRecentCheckResultsForFile(filePath, options)with

|true, Some(parseResults, checkFileResults,_)->

log"returning stale results"

return Some(parseResults, checkFileResults)

log"stale results cannot be returned, waiting for `worker` to complete"

return! worker