Add flag for enabling transparent compiler support (#2003)

Co-authored-by: Chet Husk <baronfel@users.noreply.github.com>
ionide · May 15, 2024 · 62c23dc · 62c23dc
1 parent 0e0284e
commit 62c23dc
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/release/package.json b/release/package.json
@@ -545,6 +545,11 @@
           "description": "When selecting an external symbols in autocomplete, insert the full name to the editor rather than open its module/namespace. Also allow filtering suggestions by typing its full name. \n\n Requires \u0060FSharp.externalAutocomplete\u0060 enabled.",
           "type": "boolean"
         },
+        "FSharp.fcs.transparentCompiler.enabled": {
+          "default": false,
+          "description": "EXPERIMENTAL: Enables the FSharp Cpmpiler Service's [transparent compiler](https://github.com/dotnet/fsharp/pull/15179) feature. Requires restart.",
+          "type": "boolean"
+        },
         "FSharp.fsac.attachDebugger": {
           "default": false,
           "description": "Appends the \u0027--attachdebugger\u0027 argument to fsac, this will allow you to attach a debugger.",
@@ -1804,4 +1809,4 @@
     "url": "https://github.com/ionide/ionide-vscode-fsharp.git"
   },
   "version": "7.19.1"
-}
+}
diff --git a/src/Core/LanguageService.fs b/src/Core/LanguageService.fs
@@ -675,6 +675,9 @@ Consider:
             let enableProjectGraph =
                 "FSharp.enableMSBuildProjectGraph" |> Configuration.get false
 
+            let useTransparentCompiler =
+                "FSharp.fcs.transparentCompiler.enabled" |> Configuration.get false
+
             let tryBool x =
                 // Boolean.TryParse generates: TypeError: e.match is not a function if we don't call toString first
                 match Boolean.TryParse(x.ToString()) with
@@ -917,6 +920,8 @@ Consider:
                           if fsacSilencedLogs <> null && fsacSilencedLogs.Length > 0 then
                               yield "--filter"
                               yield! fsacSilencedLogs
+                          if useTransparentCompiler then
+                              yield "--use-fcs-transparent-compiler"
                           match c.storageUri with
                           | Some uri ->
                               let storageDir = uri.fsPath