Adapt to coq/coq#19757 (Coqargs is pure)

rocq-archive · Oct 25, 2024 · 2da8238 · 2da8238
1 parent 8dbcdb3
commit 2da8238
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 4 deletions.
diff --git a/serapi/serapi_protocol.ml b/serapi/serapi_protocol.ml
@@ -892,7 +892,7 @@ let exec_cmd (st : State.t) (cmd : cmd) : answer_kind list * State.t =
   | NewDoc opts   ->
     (* spawn_args probably wrong *)
     let stm_options = Stm.AsyncOpts.default_opts ~spawn_args:[] in
-    let require_libs = Option.default [{Coqargs.lib="Stdlib.Init.Prelude"; prefix=None; export=Some Lib.Export; allow_failure=false}] opts.require_libs in
+    let require_libs = Option.default [{Coqargs.lib="Stdlib.Init.Prelude"; prefix=None; export=Some Export; allow_failure=false}] opts.require_libs in
     Stm.init_process stm_options;
     let ndoc = { Stm.doc_type = Stm.(Interactive opts.top_name)
                ; injections = List.map (fun x -> Coqargs.RequireInjection x) require_libs

diff --git a/serlib_extra/ser_coqargs.ml b/serlib_extra/ser_coqargs.ml
@@ -26,6 +26,10 @@ type top =
   [%import: Coqargs.top]
   [@@deriving sexp]
 
+type export_flag =
+  [%import: Coqargs.export_flag]
+  [@@deriving sexp]
+
 type require_injection =
   [%import: Coqargs.require_injection]
   [@@deriving sexp]
diff --git a/sertop/comp_common.ml b/sertop/comp_common.ml
@@ -79,7 +79,7 @@ let create_document ~debug ~set_impredicative_set ~disallow_sprop ~ml_path ~load
     else stm_options
   in
 
-  let injections = [Coqargs.RequireInjection {lib="Stdlib.Init.Prelude"; prefix=None; export=Some Lib.Import; allow_failure=false}] in
+  let injections = [Coqargs.RequireInjection {lib="Stdlib.Init.Prelude"; prefix=None; export=Some Import; allow_failure=false}] in
   Stm.init_process stm_options;
   let ndoc = { Stm.doc_type = Stm.VoDoc in_file
              ; injections

diff --git a/sertop/sertop_sexp.ml b/sertop/sertop_sexp.ml
@@ -140,7 +140,7 @@ let out_answer opts =
 let doc_type topfile =
   match topfile with
   | None ->
-    let sertop_dp = Names.(DirPath.make [Id.of_string "SerTop"]) in
+    let sertop_dp = "SerTop" in
     Stm.Interactive (TopLogical sertop_dp)
   | Some filename -> Stm.Interactive (Coqargs.TopPhysical filename)
 
@@ -234,7 +234,7 @@ let ser_loop ser_opts =
 
   let injections =
     if ser_opts.no_prelude then []
-    else [Coqargs.RequireInjection {lib="Stdlib.Init.Prelude"; prefix=None; export=Some Lib.Import; allow_failure=false}] in
+    else [Coqargs.RequireInjection {lib="Stdlib.Init.Prelude"; prefix=None; export=Some Import; allow_failure=false}] in
 
   let stm_options = Sertop_init.process_stm_flags ser_opts.async in
   Stm.init_process stm_options;