Speed up loading by process queue #15

2023-02-23 10:18:02 +01:00
parent 09137c7019
commit 82af2ded8e
2 changed files with 30 additions and 3 deletions
@@ -102,6 +102,7 @@ def initAndRunWatchdog (args : List String) (i o e : FS.Stream) : IO Unit := do
  let i ← maybeTee "wdIn.txt" false i
  let o ← maybeTee "wdOut.txt" true o
  let e ← maybeTee "wdErr.txt" true e
+  let state := {env := ← createEnv, game := `TestGame}
  let initRequest ← i.readLspRequestAs "initialize" InitializeParams
  o.writeLspResponse {
    id     := initRequest.id
@@ -114,7 +115,6 @@ def initAndRunWatchdog (args : List String) (i o e : FS.Stream) : IO Unit := do
      : InitializeResult
    }
  }
-  let state := {env := ← createEnv, game := `TestGame}
  let context : ServerContext := {
    hIn            := i
    hOut           := o