From 67ed47d85753f921f0b1aee7c10da163438ae454 Mon Sep 17 00:00:00 2001
From: Jules Aguillon <jules@j3s.fr>
Date: Mon, 29 Jul 2024 15:52:13 +0200
Subject: [PATCH] 4.02 compat

---
 src/loader/ident_env.cppo.ml | 2 +-
 src/xref2/ref_tools.ml       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/loader/ident_env.cppo.ml b/src/loader/ident_env.cppo.ml
index 6d5a5d9677..e0b87df5b8 100644
--- 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
index bd3e608294..3b66a97fc3 100644
--- 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