Get rid of unresolved paths in docs

Author: jonludlam

src/document/utils.mli

@@ -0,0 +1,6 @@
+val option_of_result : ('a, 'b) Result.result -> 'a option
+val flatmap : ?sep:'a list -> f:('b -> 'a list) -> 'b list -> 'a list
+val skip_until : p:('a -> bool) -> 'a list -> 'a list
+val split_at : f:('a -> bool) -> 'a list -> 'a list * 'a list
+val compute_length_source : Types.Source.t -> int
+val compute_length_inline : Types.Inline.t -> int

test/xref2/lib/common.cppo.ml

@@ -602,7 +602,7 @@ module LangUtils = struct
 
 end
 
-let my_compilation_unit id s =
+let my_compilation_unit id (s : Odoc_model.Lang.Signature.t) =
     { Odoc_model.Lang.Compilation_unit.
       id = id
     ; root = root