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

Commit1225c3e

Browse files
author
Kevin Ransom
committed
Address merge issues
1 parent4f5e2c0 commit1225c3e

File tree

1 file changed

+18
-19
lines changed

1 file changed

+18
-19
lines changed

‎vsintegration/src/FSharp.Editor/LanguageService/FSharpCheckerExtensions.fs‎

Lines changed: 18 additions & 19 deletions
Original file line numberDiff line numberDiff line change
@@ -20,16 +20,17 @@ type FSharpChecker with
2020
checker.ParseDocument(document, parsingOptions, sourceText=sourceText.ToString(), userOpName=userOpName)
2121

2222
memberchecker.ParseAndCheckDocument(filePath:string,textVersionHash:int,sourceText:string,options:FSharpProjectOptions,allowStaleResults:bool,userOpName:string)=
23-
letparseAndCheckFile=
24-
async{
25-
let!parseResults,checkFileAnswer= checker.ParseAndCheckFileInProject(filePath, textVersionHash, sourceText, options, userOpName=userOpName)
26-
return
27-
match checkFileAnswerwith
28-
| FSharpCheckFileAnswer.Aborted->
29-
None
30-
| FSharpCheckFileAnswer.Succeeded(checkFileResults)->
31-
Some(parseResults, checkFileResults)
32-
}
23+
async{
24+
letparseAndCheckFile=
25+
async{
26+
let!parseResults,checkFileAnswer= checker.ParseAndCheckFileInProject(filePath, textVersionHash, sourceText, options, userOpName=userOpName)
27+
return
28+
match checkFileAnswerwith
29+
| FSharpCheckFileAnswer.Aborted->
30+
None
31+
| FSharpCheckFileAnswer.Succeeded(checkFileResults)->
32+
Some(parseResults, checkFileResults)
33+
}
3334

3435
lettryGetFreshResultsWithTimeout()=
3536
async{
@@ -40,16 +41,15 @@ type FSharpChecker with
4041
return None// worker is cancelled at this point, we cannot return it and wait its completion anymore
4142
}
4243

43-
letbindParsedInput(results:(FSharpParseFileResults* FSharpCheckFileResults)option)=
44-
match resultswith
45-
| Some(parseResults, checkResults)->
46-
match parseResults.ParseTreewith
47-
| Some parsedInput-> Some(parseResults, parsedInput, checkResults)
44+
letbindParsedInput(results:(FSharpParseFileResults* FSharpCheckFileResults)option)=
45+
match resultswith
46+
| Some(parseResults, checkResults)->
47+
match parseResults.ParseTreewith
48+
| Some parsedInput-> Some(parseResults, parsedInput, checkResults)
49+
| None-> None
4850
| None-> None
49-
| None-> None
5051

51-
if allowStaleResultsthen
52-
async{
52+
if allowStaleResultsthen
5353
let!freshResults= tryGetFreshResultsWithTimeout()
5454

5555
let!results=
@@ -69,7 +69,6 @@ type FSharpChecker with
6969
return bindParsedInput results
7070
}
7171

72-
7372
memberchecker.ParseAndCheckDocument(document:Document,options:FSharpProjectOptions,allowStaleResults:bool,userOpName:string,?sourceText:SourceText)=
7473
async{
7574
let!cancellationToken= Async.CancellationToken

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp