flow state directory to background services as well, so that both rea…

…der and writer are pointing at the same thing

src/FsAutoComplete.BackgroundServices/Program.fs

@@ -469,9 +469,10 @@ type BackgroundServiceServer(state: State, client: FsacClient) =
             return LspResult.success ()
         }
 
-    member __.InitWorkspace() =
+    member __.InitWorkspace(workspaceStateDir) =
       async {
         do! client.Notify {Value = "Init workspace" }
+        SymbolCache.initCache workspaceStateDir
         do! Async.Sleep 100
         let knownProjects = state.FileCheckOptions.Values |> Seq.distinctBy (fun o -> o.ProjectFileName)
         do! client.Notify {Value = sprintf "Init workspace - starting typechecking on %d projects" (knownProjects |> Seq.length) }
@@ -498,21 +499,20 @@ module Program =
             |> Map.add "background/update" (requestHandling (fun s p -> s.UpdateTextFile(p) ))
             |> Map.add "background/project" (requestHandling (fun s p -> s.UpdateProject(p) ))
             |> Map.add "background/save" (requestHandling (fun s p -> s.FileSaved(p) ))
-            |> Map.add "background/init" (requestHandling (fun s p -> s.InitWorkspace() ))
+            |> Map.add "background/init" (requestHandling (fun s p -> s.InitWorkspace p))
 
         Ionide.LanguageServerProtocol.Server.start requestsHandlings input output FsacClient (fun lspClient -> new BackgroundServiceServer(state, lspClient))
 
     open FSharp.Compiler.IO
 
 
+
     [<EntryPoint>]
     let main argv =
-
-        let pid = Int32.Parse argv.[0]
+        let pid= Int32.Parse argv[0]
         let originalFs = FileSystemAutoOpens.FileSystem
         let fs = FsAutoComplete.FileSystem(originalFs, state.Files.TryFind) :> IFileSystem
         FileSystemAutoOpens.FileSystem <- fs
         ProcessWatcher.zombieCheckWithHostPID (fun () -> exit 0) pid
-        SymbolCache.initCache (Environment.CurrentDirectory)
         let _ = startCore()
         0

src/FsAutoComplete.Core/BackgroundServices.fs

@@ -54,9 +54,9 @@ type BackgroundService =
   abstract UpdateFile : BackgroundFileCheckType * string * int -> unit
   abstract UpdateProject : string * FSharpProjectOptions -> unit
   abstract SaveFile : BackgroundFileCheckType -> unit
-  abstract InitWorkspace : unit -> unit
+  abstract InitWorkspace : workspaceStateDir: string -> unit
   abstract MessageReceived : IEvent<MessageType>
-  abstract Start : workspaceDir: string -> unit
+  abstract Start : unit -> unit
   abstract GetSymbols: string -> Async<option<SymbolCache.SymbolUseRange array>>
   abstract GetImplementation: string -> Async<option<SymbolCache.SymbolUseRange array>>
 
@@ -99,9 +99,8 @@ type ActualBackgroundService() =
     )
 
   interface BackgroundService with
-    member x.Start (workspaceDir) =
+    member x.Start () =
       logger.info (Log.setMessage "Starting background service")
-      SymbolCache.initCache workspaceDir
       client.Start()
 
     member x.UpdateFile(file, content, version) =
@@ -123,8 +122,9 @@ type ActualBackgroundService() =
       let msg : FileParms = { File = file }
       client.SendNotification "background/save" msg
 
-    member x.InitWorkspace () =
-      client.SendNotification "background/init" {Ready = true}
+    member x.InitWorkspace (workspaceStateDir) =
+      SymbolCache.initCache workspaceStateDir
+      client.SendNotification "background/init" workspaceStateDir
 
     member x.MessageReceived = messageRecieved.Publish
 
@@ -138,15 +138,15 @@ type MockBackgroundService() =
   let m = Event<_>()
 
   interface BackgroundService with
-    member x.Start _ = ()
+    member x.Start () = ()
 
     member x.UpdateFile(file, content, version) = ()
 
     member x.UpdateProject(file, opts) = ()
 
     member x.SaveFile(file) = ()
 
-    member x.InitWorkspace () = ()
+    member x.InitWorkspace workspaceStateDir = ()
 
     member x.MessageReceived = m.Publish
 

src/FsAutoComplete.Core/Commands.fs

@@ -573,7 +573,7 @@ type Commands
       commandsLogger.info (
         Log.setMessage "Workspace ready - sending init request to background service"
       )
-      backgroundService.InitWorkspace())
+      backgroundService.InitWorkspace(state.WorkspaceStateDirectory.FullName))
 
 
   member __.Notify = notify.Publish

src/FsAutoComplete.Core/State.fs

@@ -33,10 +33,12 @@ type State =
     ScriptProjectOptions: ConcurrentDictionary<string<LocalPath>, int * FSharpProjectOptions>
 
     mutable ColorizationOutput: bool
+
+    WorkspaceStateDirectory: System.IO.DirectoryInfo
   }
   member x.DebugString = $"{x.Files.Count} Files, {x.ProjectController.ProjectOptions |> Seq.length} Projects"
 
-  static member Initial toolsPath workspaceLoaderFactory =
+  static member Initial toolsPath workspaceStateDir workspaceLoaderFactory =
     { Files = ConcurrentDictionary()
       LastCheckedVersion = ConcurrentDictionary()
       ProjectController = new ProjectController(toolsPath, workspaceLoaderFactory)
@@ -47,7 +49,8 @@ type State =
       CancellationTokens = ConcurrentDictionary()
       NavigationDeclarations = ConcurrentDictionary()
       ScriptProjectOptions = ConcurrentDictionary()
-      ColorizationOutput = false }
+      ColorizationOutput = false
+      WorkspaceStateDirectory = workspaceStateDir }
 
   member x.RefreshCheckerOptions(file: string<LocalPath>, text: NamedText) : FSharpProjectOptions option =
     x.ProjectController.GetProjectOptions (UMX.untag file)

src/FsAutoComplete/FsAutoComplete.Lsp.fs

@@ -745,7 +745,7 @@ type FSharpLspServer(backgroundServiceEnabled: bool, state: State, stateDirector
 
       rootPath <- actualRootPath
       commands.SetWorkspaceRoot actualRootPath
-      backgroundService.Start(stateDirectory.FullName)
+      backgroundService.Start()
 
       let c =
         p.InitializationOptions
@@ -2744,7 +2744,7 @@ let startCore backgroundServiceEnabled toolsPath stateStorageDir workspaceLoader
     |> Map.add "fsharp/inlayHints" (requestHandling (fun s p -> s.FSharpInlayHints(p)))
 
   let state =
-    State.Initial toolsPath workspaceLoaderFactory
+    State.Initial toolsPath stateStorageDir workspaceLoaderFactory
 
   let originalFs =
     FSharp.Compiler.IO.FileSystemAutoOpens.FileSystem

src/FsAutoComplete/Parser.fs

@@ -67,7 +67,7 @@ module Parser =
 
   let waitForDebuggerOption =
     Option<bool>(
-      "--wait-for-debugger",
+      [|"--wait-for-debugger"; "--attachdebugger"|],
       "Stop execution on startup until an external debugger to attach to this process"
     )
     |> zero
@@ -87,7 +87,7 @@ module Parser =
     |> zero
 
   let stateLocationOption =
-    Option<DirectoryInfo>("--state-directory", getDefaultValue = Func<_> (fun () -> DirectoryInfo(Environment.CurrentDirectory)),  description = "Set the directory to store the state of the server. This should be a per-workspace location, not a shared-workspace location.")
+    Option<DirectoryInfo>("--state-directory", getDefaultValue = Func<_> (fun () -> DirectoryInfo("C:\\Users\\chusk")),  description = "Set the directory to store the state of the server. This should be a per-workspace location, not a shared-workspace location.")
 
   let rootCommand =
     let rootCommand = RootCommand("An F# LSP server implementation")

test/FsAutoComplete.Tests.Lsp/CoreTests.fs

@@ -19,7 +19,7 @@ let initTests state =
     "InitTest"
     (async {
       let tempDir = Path.Combine(Path.GetTempPath(), "FsAutoComplete.Tests", Guid.NewGuid().ToString())
-      let (server, event) = createServer (DirectoryInfo(tempDir)) state
+      let (server, event) = createServer state
 
       let p: InitializeParams =
         { ProcessId = Some 1

test/FsAutoComplete.Tests.Lsp/Helpers.fs

@@ -153,7 +153,7 @@ let record (cacher: Cacher<_>) =
     cacher.OnNext(name, payload)
     AsyncLspResult.success Unchecked.defaultof<_>
 
-let createServer workingDir (state: unit -> State) =
+let createServer (state: unit -> State) =
   let serverInteractions = new Cacher<_>()
   let recordNotifications = record serverInteractions
 
@@ -166,7 +166,7 @@ let createServer workingDir (state: unit -> State) =
   let originalFs = FSharp.Compiler.IO.FileSystemAutoOpens.FileSystem
   let fs = FsAutoComplete.FileSystem(originalFs, innerState.Files.TryFind)
   FSharp.Compiler.IO.FileSystemAutoOpens.FileSystem <- fs
-  let server = new FSharpLspServer(false, innerState, workingDir, client)
+  let server = new FSharpLspServer(false, innerState, innerState.WorkspaceStateDirectory, client)
   server, serverInteractions :> ClientEvents
 
 let defaultConfigDto: FSharpConfigDto =
@@ -387,8 +387,7 @@ let serverInitialize path (config: FSharpConfigDto) state =
        |> Seq.exists (fun p -> p.EndsWith ".fsproj") then
       do! dotnetRestore path
 
-    let tempDir = Path.Combine(Path.GetTempPath(), "FsAutoComplete.Tests", Guid.NewGuid().ToString()) |> DirectoryInfo
-    let server, clientNotifications = createServer tempDir state
+    let server, clientNotifications = createServer state
 
     clientNotifications |> Observable.add logEvent
 

test/FsAutoComplete.Tests.Lsp/Program.fs

@@ -14,6 +14,7 @@ open FsAutoComplete.Tests.InteractiveDirectivesTests
 open Ionide.ProjInfo
 open System.Threading
 open Serilog.Filters
+open System.IO
 
 let testTimeout =
   Environment.GetEnvironmentVariable "TEST_TIMEOUT_MINUTES"
@@ -43,8 +44,9 @@ let tests =
         testList
           name
           [ Templates.tests ()
+            let testRunDir = Path.Combine(Path.GetTempPath(), "FsAutoComplete.Tests", Guid.NewGuid().ToString()) |> DirectoryInfo
             let state () =
-              FsAutoComplete.State.Initial toolsPath workspaceLoaderFactory
+              FsAutoComplete.State.Initial toolsPath testRunDir workspaceLoaderFactory
 
             initTests state
             codeLensTest state