Jun 16, 2025 · Jul 3, 2025 · Jul 11, 2025 · Jul 11, 2025 · Jul 21, 2025 · Jul 21, 2025
diff --git a/src/FSharp.Compiler.LanguageServer/FSharpLanguageServer.fs b/src/FSharp.Compiler.LanguageServer/FSharpLanguageServer.fs

 open System
 open System.Diagnostics
 open System.Globalization
 open System.IO
 open System.Runtime.CompilerServices

 open FSharp.Compiler.LanguageServer.Common

        jsonRpc.TraceSource.Listeners.Add(listener) |> ignore

        let logDir = @"Q:\logs"
        let guid = Guid.NewGuid().ToString("N", CultureInfo.InvariantCulture)
        let logFileName = sprintf "FSharpLSPLogs_%s.log" guid
        let logFilePath = Path.Combine(logDir, logFileName)
        let fileListener = new TextWriterTraceListener(logFilePath)

        jsonRpc.TraceSource.Listeners.Add(fileListener) |> ignore

        let processName = Process.GetCurrentProcess().ProcessName
        let logProcessFileName = sprintf "ProcessName_%s.log" guid
        let logLine = sprintf "[%s] Server constructor called by process: %s" (DateTime.UtcNow.ToString("o", CultureInfo.InvariantCulture)) processName
        File.AppendAllText(Path.Combine(logDir, logProcessFileName), logLine + Environment.NewLine)

        jsonRpc.TraceSource.Switch.Level <- SourceLevels.All

        let server =
diff --git a/src/FSharp.VisualStudio.Extension/ExtensionEntrypoint.cs b/src/FSharp.VisualStudio.Extension/ExtensionEntrypoint.cs
                displayName: "FSharp.VisualStudio.Extension",
                description: "Extension description")
        {
            // TODO: Probably should be replaced by a range of versions
            InstallationTargetVersion = "18.0",
        },
    };
        base.InitializeServices(serviceCollection);

        // You can configure dependency injection here by adding services to the serviceCollection.
        Debug.WriteLine("Initializing services for FSharp.VisualStudio.Extension");
    }
 }
diff --git a/vsintegration/Vsix/VisualFSharpFull/VisualFSharp.Core.targets b/vsintegration/Vsix/VisualFSharpFull/VisualFSharp.Core.targets
    <ProjectReference Include="$(FSharpSourcesRoot)\FSharp.VisualStudio.Extension\FSharp.VisualStudio.Extension.csproj">
      <Name>FSharp.VisualStudio.Extension</Name>
      <ReferenceOutputAssembly>false</ReferenceOutputAssembly>
      <!--<SetTargetFramework>TargetFramework=net8.0-windows</SetTargetFramework>-->
      <SkipGetTargetFrameworkProperties>true</SkipGetTargetFrameworkProperties>
      <IncludeInVSIX>true</IncludeInVSIX>
      <IncludeOutputGroupsInVSIX>ExtensionFilesOutputGroup</IncludeOutputGroupsInVSIX>
diff --git a/vsintegration/Vsix/VisualFSharpFull/VisualFSharpDebug.csproj b/vsintegration/Vsix/VisualFSharpFull/VisualFSharpDebug.csproj
      </Content>
    </ItemGroup>
  </Target>

 </Project>
Original file line number	Diff line number	Diff line change
Expand Up		@@ -2,8 +2,6 @@ namespace FSharp.Compiler.LanguageServer

		open System
		open System.Diagnostics
		open System.Globalization
		open System.IO
		open System.Runtime.CompilerServices

		open FSharp.Compiler.LanguageServer.Common
Expand DownExpand Up		@@ -109,19 +107,6 @@ type FSharpLanguageServer

		jsonRpc.TraceSource.Listeners.Add(listener) \|> ignore

		let logDir = @"Q:\logs"
		let guid = Guid.NewGuid().ToString("N", CultureInfo.InvariantCulture)
		let logFileName = sprintf "FSharpLSPLogs_%s.log" guid
		let logFilePath = Path.Combine(logDir, logFileName)
		let fileListener = new TextWriterTraceListener(logFilePath)

		jsonRpc.TraceSource.Listeners.Add(fileListener) \|> ignore

		let processName = Process.GetCurrentProcess().ProcessName
		let logProcessFileName = sprintf "ProcessName_%s.log" guid
		let logLine = sprintf "[%s] Server constructor called by process: %s" (DateTime.UtcNow.ToString("o", CultureInfo.InvariantCulture)) processName
		File.AppendAllText(Path.Combine(logDir, logProcessFileName), logLine + Environment.NewLine)

		jsonRpc.TraceSource.Switch.Level <- SourceLevels.All

		let server =
Expand Down
Original file line number	Diff line number	Diff line change
Expand Up		@@ -24,6 +24,7 @@ internal class ExtensionEntrypoint : Extension
		displayName: "FSharp.VisualStudio.Extension",
		description: "Extension description")
		{
		// TODO: Probably should be replaced by a range of versions
		InstallationTargetVersion = "18.0",
		},
		};
Expand All		@@ -34,6 +35,5 @@ protected override void InitializeServices(IServiceCollection serviceCollection)
		base.InitializeServices(serviceCollection);

		// You can configure dependency injection here by adding services to the serviceCollection.
		Debug.WriteLine("Initializing services for FSharp.VisualStudio.Extension");
		}
		}
Original file line number	Diff line number	Diff line change
Expand Up		@@ -135,7 +135,6 @@
		<ProjectReference Include="$(FSharpSourcesRoot)\FSharp.VisualStudio.Extension\FSharp.VisualStudio.Extension.csproj">
		<Name>FSharp.VisualStudio.Extension</Name>
		<ReferenceOutputAssembly>false</ReferenceOutputAssembly>
		<!--<SetTargetFramework>TargetFramework=net8.0-windows</SetTargetFramework>-->
		<SkipGetTargetFrameworkProperties>true</SkipGetTargetFrameworkProperties>
		<IncludeInVSIX>true</IncludeInVSIX>
		<IncludeOutputGroupsInVSIX>ExtensionFilesOutputGroup</IncludeOutputGroupsInVSIX>
Expand Down
Original file line number	Diff line number	Diff line change
Expand Up		@@ -82,5 +82,4 @@
		</Content>
		</ItemGroup>
		</Target>

		</Project>