match referencedProjects projectSite, extraProjectInfowith

|None, Some(:? VisualStudioWorkspaceImplas workspace)whennot(isNull workspace.CurrentSolution)->

|_, Some(:? VisualStudioWorkspaceImplas workspace)whennot(isNull workspace.CurrentSolution)->

letpath= projectSite.ProjectFileName

ifnot(String.IsNullOrWhiteSpace(path))then

match projectIdOptwith

yield Some project.Id, project.FilePath, outputPath, siteProvider

|(Some references),_->

|(Some references),Some(:? VisualStudioWorkspaceImplas workspace)->

for pin referencesdo

match solutionService.GetProjectOfUniqueName(p.UniqueName)with

| VSConstants.S_OK,(:? IProvideProjectSiteas ps)->

yield None, p.FileName,(fullOutputAssemblyPath p)|> Option.defaultValue"", ps

letpath= ps.GetProjectSite().ProjectFileName

letprojectId= workspace.ProjectTracker.GetOrCreateProjectIdForPath(path, projectDisplayNameOf path)

yield Some projectId, p.FileName,(fullOutputAssemblyPath p)|> Option.defaultValue"", ps

letsolutionService=try Some(serviceProvider.GetService(typeof<SVsSolution>):?> IVsSolution)with_-> None

seq{match solutionServicewith