4.02 compat

Julow · Jul 29, 2024 · 67ed47d · 67ed47d
1 parent b5b15bc
commit 67ed47d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/loader/ident_env.cppo.ml b/src/loader/ident_env.cppo.ml
@@ -744,7 +744,7 @@ module Path = struct
 #if OCAML_VERSION >= (4,8,0)
     | Path.Pdot(p, s) -> `DotT(read_module env p, TypeName.make_std (strip_hash s))
 #else
-    | Path.Pdot(p, s, _) -> `DotT(read_module env p, strip_hash s)
+    | Path.Pdot(p, s, _) -> `DotT(read_module env p, TypeName.make_std (strip_hash s))
 #endif
     | Path.Papply(_, _)-> assert false
 #if OCAML_VERSION >= (5,1,0)

diff --git a/src/xref2/ref_tools.ml b/src/xref2/ref_tools.ml
@@ -888,7 +888,7 @@ let resolve_reference :
     Reference.t ->
     ( Reference.Resolved.t * Odoc_model.Comment.paragraph option,
       Errors.Tools_error.reference_lookup_error )
-    Result.t =
+    result =
   let resolved = resolved3 in
   fun env r ->
     match r with