From e2151dd5de33d6d12b7bad30056f1089c8e732e8 Mon Sep 17 00:00:00 2001
From: Kevin Ransom <codecutter@fsharp@hotmail.com>
Date: Thu, 2 Nov 2017 20:03:23 -0700
Subject: [PATCH] Enable F# - C# project support

---
 .../FSharp.LanguageService.fsproj                      |  1 +
 .../FSharp.LanguageService/LanguageServiceConstants.fs | 10 ++++++++++
 .../src/FSharp.LanguageService/ProjectSitesAndFiles.fs |  2 +-
 3 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100644 vsintegration/src/FSharp.LanguageService/LanguageServiceConstants.fs

diff --git a/vsintegration/src/FSharp.LanguageService/FSharp.LanguageService.fsproj b/vsintegration/src/FSharp.LanguageService/FSharp.LanguageService.fsproj
index 22c3f49cf..5ac5900f5 100644
--- a/vsintegration/src/FSharp.LanguageService/FSharp.LanguageService.fsproj
+++ b/vsintegration/src/FSharp.LanguageService/FSharp.LanguageService.fsproj
@@ -67,6 +67,7 @@
       <GeneratedModuleName>Microsoft.VisualStudio.FSharp.LanguageService.Strings</GeneratedModuleName>
     </EmbeddedResource>
     <Compile Include="AssemblyInfo.fs" />
+    <Compile Include="LanguageServiceConstants.fs" />
     <Compile Include="Error.fs" />
     <Compile Include="Vs.fs" />
     <Compile Include="Colorize.fs" />
diff --git a/vsintegration/src/FSharp.LanguageService/LanguageServiceConstants.fs b/vsintegration/src/FSharp.LanguageService/LanguageServiceConstants.fs
new file mode 100644
index 000000000..b64d04059
--- /dev/null
+++ b/vsintegration/src/FSharp.LanguageService/LanguageServiceConstants.fs
@@ -0,0 +1,10 @@
+// Copyright (c) Microsoft Corporation.  All Rights Reserved.  See License.txt in the project root for license information.
+
+namespace Microsoft.VisualStudio.FSharp.LanguageService
+
+[<RequireQualifiedAccess>]
+module internal LanguageServiceConstants =
+    
+    /// "F#"
+    [<Literal>]
+    let FSharpLanguageName = "F#"
diff --git a/vsintegration/src/FSharp.LanguageService/ProjectSitesAndFiles.fs b/vsintegration/src/FSharp.LanguageService/ProjectSitesAndFiles.fs
index 22ea0db01..cc6e220d6 100644
--- a/vsintegration/src/FSharp.LanguageService/ProjectSitesAndFiles.fs
+++ b/vsintegration/src/FSharp.LanguageService/ProjectSitesAndFiles.fs
@@ -274,7 +274,7 @@ type internal ProjectSitesAndFiles() =
                         if not (isNull project) then
                             for reference in project.ProjectReferences do
                                 let project = workspace.CurrentSolution.GetProject(reference.ProjectId)
-                                if not (isNull project) then
+                                if not (isNull project) && project.Language = LanguageServiceConstants.FSharpLanguageName then
                                     let siteProvider = provideProjectSiteProvider (workspace, project, serviceProvider, projectOptionsTable)
                                     let referenceProject = workspace.ProjectTracker.GetProject(reference.ProjectId)
                                     let outputPath = referenceProject.BinOutputPath
-- 
GitLab