From d23434f0c05e185842667daf7ffbcb8410db41c0 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Tue, 5 Feb 2019 17:22:35 +0100
Subject: [parsing] Use AST node for main parsing entry.

Before #9263 this type was returned by the STM's `parse_sentence`, but
the type was lost on the generalization to entries.
---
 stm/stm.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stm')

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
-- 
cgit v1.2.3