Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
  • Loading branch information
vzarytovskii committed Sep 21, 2022
1 parent 28e1493 commit 15ee3f2
Showing 1 changed file with 5 additions and 4 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -99,11 +99,11 @@ type internal FSharpMetadataAsSourceService() =
let serviceProvider = ServiceProvider.GlobalProvider
let projs = System.Collections.Concurrent.ConcurrentDictionary<string, IFSharpWorkspaceProjectContext>()

let createMetadataProjectContext (projInfo: ProjectInfo) (docInfo: DocumentInfo) =
let createMetadataProjectContext (projFilePath: string) (projInfo: ProjectInfo) (docInfo: DocumentInfo) =
let componentModel = Package.GetGlobalService(typeof<ComponentModelHost.SComponentModel>) :?> ComponentModelHost.IComponentModel
let projectContextFactory = componentModel.GetService<IFSharpWorkspaceProjectContextFactory>()
let projectContextFactory = componentModel.GetService<FSharpWorkspaceProjectContextFactory>()

let projectContext = projectContextFactory.CreateProjectContext(projInfo.FilePath, projInfo.Id.ToString())
let projectContext = projectContextFactory.CreateProjectContext(projFilePath, projInfo.Id.ToString())
projectContext.DisplayName <- projInfo.Name
projectContext.AddSourceFile(docInfo.FilePath, SourceCodeKind.Regular)

Expand Down Expand Up @@ -142,7 +142,8 @@ type internal FSharpMetadataAsSourceService() =
use writer = new StreamWriter(fileStream)
text.Write(writer)

let projectContext = createMetadataProjectContext projInfo document
let projectFile = Path.ChangeExtension(filePath, "fsproj")
let projectContext = createMetadataProjectContext projectFile projInfo document

projs.[filePath] <- projectContext

Expand Down

0 comments on commit 15ee3f2

Please sign in to comment.