Merge PR #9481: [parsing] Use AST node for main parsing entry.

Reviewed-by: gares

1 files changed, 3 insertions, 3 deletions

diff --git a/stm/stm.ml b/stm/stm.ml
index 0165b3c029..f6b4593087 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -3197,12 +3197,12 @@ let query ~doc ~at ~route s =
       let rec loop () =
         match parse_sentence ~doc at ~entry:Pvernac.main_entry s with
         | None -> ()
-        | Some (loc, ast) ->
-           let indentation, strlen = compute_indentation ~loc at in
+        | Some {CAst.loc; v=ast} ->
+           let indentation, strlen = compute_indentation ?loc at in
            let st = State.get_cached at in
            let aast = {
              verbose = true; indentation; strlen;
-             loc = Some loc; expr = ast } in
+             loc; expr = ast } in
            ignore(stm_vernac_interp ~route at st aast);
            loop ()
       in