Some(reporter:> Microsoft.VisualStudio.Shell.Interop.IVsLanguageServiceBuildErrorReporter2)

{new Microsoft.VisualStudio.FSharp.LanguageService.IProjectSitewith

member__.SourceFilesOnDisk()= this.GetProjectInfo(project.FilePath)|> fst

member__.DescriptionOfProject()= project.Name

member__.CompilationSourceFiles= this.GetProjectInfo(project.FilePath)|> fst

let_,references,options= this.GetProjectInfo(project.FilePath)

Array.concat[options; references|> Array.map(fun r->"-r:"+ r)]

member__.ProjectFileName()= project.FilePath

member__.CompilationReferences= this.GetProjectInfo(project.FilePath)|> thrd

membersite.CompilationBinOutputPath= site.CompilationOptions|> Array.tryPick(fun s->if s.StartsWith("-o:")then Some s.[3..]else None)

member__.Description= project.Name

member__.ProjectFileName= project.FilePath

member__.ProjectGuid=project.Id.Id.ToString()

member__.ProjectGuid= project.Id.Id.ToString()

member__.LoadTime= System.DateTime.Now

member__.ProjectProvider= Some iProvideProjectSite

member__.AssemblyReferences()= this.GetProjectInfo(project.FilePath)|> thrd

member__.BuildErrorReporterwith get()= errorReporterand

set(v)= errorReporter<- v

projectContext.RemoveSourceFile(file)

updated<-true

letupdatedRefs= site.AssemblyReferences()|> wellFormedFilePathSetIgnoreCase

letupdatedRefs= site.CompilationReferences|> wellFormedFilePathSetIgnoreCase

letoriginalRefs= project.GetCurrentMetadataReferences()|> Seq.map(fun ref-> ref.FilePath)|> wellFormedFilePathSetIgnoreCase

for refin updatedRefsdo