Adapt to rocq-prover/rocq#20371 (dirpath_of_module -> path_of_module, returning full_path)

Author: SkySkimmer

src/lib/hhutils.ml

@@ -30,7 +30,7 @@ let exists_global s =
 let match_globref m g =
   let (p2, id2) = Libnames.repr_path (Nametab.path_of_global g)
   in
-  let l1 = List.rev @@ Names.DirPath.repr (Nametab.dirpath_of_module m)
+  let l1 = List.rev @@ Names.DirPath.repr (Libnames.dirpath_of_path @@ Nametab.path_of_module m)
   and l2 = List.rev @@ id2 :: Names.DirPath.repr p2
   in
   let rec pom l1 l2 =

src/plugin/opt.ml

@@ -259,7 +259,7 @@ module HammerFilter = struct
   let check_local _ _ = ()
   let discharge x = x
   let subst = Mod_subst.subst_mp
-  let printer m = Names.DirPath.print (Nametab.dirpath_of_module m)
+  let printer m = Libnames.pr_path (Nametab.path_of_module m)
   let key = ["Hammer"; "Filter"]
   let title = "Hammer Filter"
   let member_message m b =