fix server error due to missing info tree in header snap

2022-11-30 17:28:11 +01:00
parent 4157dc0564
commit 0273d6a465
1 changed files with 11 additions and 0 deletions
@@ -293,6 +293,17 @@ section Initialization
        headerEnv := headerEnv.setMainModule (← moduleNameOfFileName path none)
    catch _ => pure ()
    let cmdState := Elab.Command.mkState headerEnv {} opts
+    let cmdState := { cmdState with infoState := {
+      enabled := true
+      trees := #[Elab.InfoTree.context ({
+        env     := headerEnv
+        fileMap := m.text
+        ngen    := { namePrefix := `_worker }
+      }) (Elab.InfoTree.node
+          (Elab.Info.ofCommandInfo { elaborator := `header, stx := Syntax.missing })
+          #[].toPArray'
+      )].toPArray'
+    }}
    let headerSnap := {
      beginPos := 0
      stx := Syntax.missing