NotificationsYou must be signed in to change notification settings
Fork0
Star0

Commitef55edb

committed

fix build

1 parentf8e4b40 commitef55edbCopy full SHA for ef55edb

File tree

1 file changed

-8

lines changed

src/fsharp/vs
- ServiceAnalysis.fs

1 file changed

-8

lines changed

`‎src/fsharp/vs/ServiceAnalysis.fs‎`

Lines changed: 8 additions & 8 deletions

Original file line number	Diff line number	Diff line change
`@@ -6,9 +6,9 @@ open Microsoft.FSharp.Compiler`
`6`	`6`	`openMicrosoft.FSharp.Compiler.Ast`
`7`	`7`	`openMicrosoft.FSharp.Compiler.Range`
`8`	`8`
`9`		`-moduleinternalUnusedOpens=`
	`9`	`+moduleUnusedOpens=`
`10`	`10`	`/// Represents single open statement.`
`11`		`-typeprivateOpenStatement=`
	`11`	`+typeOpenStatement=`
`12`	`12`	`{/// Full namespace or module identifier as it's presented in source code.`
`13`	`13`	`LiteralIdent:string`
`14`	`14`	`/// All possible namespace or module identifiers, including the literal one.`
`@@ -18,7 +18,7 @@ module internal UnusedOpens =`
`18`	`18`	`/// Enclosing module or namespace range (that is, the scope on in which this open statement is visible).`
`19`	`19`	`ModuleRange:range}`
`20`	`20`
`21`		`-let recprivatevisitSynModuleOrNamespaceDecls(parent:Ast.LongIdent)(decls:SynModuleDecls)(moduleRange:range):OpenStatement list=`
	`21`	`+let recvisitSynModuleOrNamespaceDecls(parent:Ast.LongIdent)(decls:SynModuleDecls)(moduleRange:range):OpenStatement list=`
`22`	`22`	`[for declin declsdo`
`23`	`23`	`match declwith`
`24`	`24`	`\| SynModuleDecl.Open(LongIdentWithDots.LongIdentWithDots(id= longId), range)->`
`@@ -37,15 +37,15 @@ module internal UnusedOpens =`
`37`	`37`	`yield! visitSynModuleOrNamespaceDecls longId decls moduleRange`
`38`	`38`	`\|_->()]`
`39`	`39`
`40`		`-letprivategetOpenStatements(parsedInput:ParsedInput):OpenStatement list=`
	`40`	`+letgetOpenStatements(parsedInput:ParsedInput):OpenStatement list=`
`41`	`41`	`match parsedInputwith`
`42`	`42`	`\| ParsedInput.ImplFile(ParsedImplFileInput(modules= modules))->`
`43`	`43`	`[for mdin modulesdo`
`44`	`44`	`letSynModuleOrNamespace(longId= longId; decls= decls; range= moduleRange)= md`
`45`	`45`	`yield! visitSynModuleOrNamespaceDecls longId decls moduleRange]`
`46`	`46`	`\|_->[]`
`47`	`47`
`48`		`-letprivategetAutoOpenAccessPath(ent:FSharpEntity)=`
	`48`	`+letgetAutoOpenAccessPath(ent:FSharpEntity)=`
`49`	`49`	`// Some.Namespace+AutoOpenedModule+Entity`
`50`	`50`
`51`	`51`	`// HACK: I can't see a way to get the EnclosingEntity of an Entity`
`@@ -56,7 +56,7 @@ module internal UnusedOpens =`
`56`	`56`	`else`
`57`	`57`	`None)`
`58`	`58`
`59`		`-letprivateentityNamespace(entOpt:FSharpEntity option)=`
	`59`	`+letentityNamespace(entOpt:FSharpEntity option)=`
`60`	`60`	`match entOptwith`
`61`	`61`	`\| Some ent->`
`62`	`62`	`if ent.IsFSharpModulethen`
`@@ -77,13 +77,13 @@ module internal UnusedOpens =`
`77`	`77`	`]`
`78`	`78`	`\| None->[]`
`79`	`79`
`80`		`-letprivatesymbolIsFullyQualified(getSourceLineStr:int->string)(sym:FSharpSymbolUse)(fullName:string)=`
	`80`	`+letsymbolIsFullyQualified(getSourceLineStr:int->string)(sym:FSharpSymbolUse)(fullName:string)=`
`81`	`81`	`letlineStr= getSourceLineStr sym.RangeAlternate.StartLine`
`82`	`82`	`match QuickParse.GetCompleteIdentifierIslandtrue lineStr sym.RangeAlternate.EndColumnwith`
`83`	`83`	`\| Some(island,_,_)-> island= fullName`
`84`	`84`	`\| None->false`
`85`	`85`
`86`		`-typeprivateNamespaceUse=`
	`86`	`+typeNamespaceUse=`
`87`	`87`	`{ Ident:string`
`88`	`88`	`Location:range}`
`89`	`89`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

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

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commitef55edb

File tree

1 file changed

1 file changed

`‎src/fsharp/vs/ServiceAnalysis.fs‎`

0 commit comments