4.02 compat

Julow · jonludlam · commit 053c55e354e5 · 2024-08-27T13:37:17.000+01:00
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
@@ -903,7 +903,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
