Ignore {value/constructor}_path unused value

Signed-off-by: Paul-Elliot <[email protected]>

Author: panglesd

src/xref2/compile.ml

@@ -74,6 +74,11 @@ and class_type_path : Env.t -> Paths.Path.ClassType.t -> Paths.Path.ClassType.t
       | Ok p' -> `Resolved Lang_of.(Path.resolved_class_type (empty ()) p')
       | Error _ -> p)
 
+let () =
+  (* Until those are used *)
+  ignore value_path;
+  ignore constructor_path
+
 let rec unit env t =
   let open Compilation_unit in
   let source_info =

src/xref2/link.ml

@@ -190,6 +190,11 @@ let constructor_path :
             Errors.report ~what:(`Constructor_path cp) ~tools_error:e `Lookup;
             p)
 
+let () =
+  (* Until those are used *)
+  ignore value_path;
+  ignore constructor_path
+
 let class_type_path : Env.t -> Paths.Path.ClassType.t -> Paths.Path.ClassType.t
     =
  fun env p ->