Merge PR #7797: Remove reference name type.

1 files changed, 2 insertions, 2 deletions

diff --git a/stm/stm.ml b/stm/stm.ml
index c394be22e1..0aed88a53f 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -2558,8 +2558,8 @@ let new_doc { doc_type ; iload_path; require_libs; stm_options } =
 
   let load_objs libs =
     let rq_file (dir, from, exp) =
-      let mp = CAst.make @@ Libnames.(Qualid (qualid_of_string dir)) in
-      let mfrom = Option.map (fun fr -> CAst.make @@ Libnames.(Qualid (qualid_of_string fr))) from in
+      let mp = Libnames.qualid_of_string dir in
+      let mfrom = Option.map Libnames.qualid_of_string from in
       Flags.silently (Vernacentries.vernac_require mfrom exp) [mp] in
     List.(iter rq_file (rev libs))
   in