Compatibility

Author: panglesd

src/model/frontmatter.ml

@@ -26,7 +26,7 @@ let parse_child c =
 let parse_children_order loc co =
   let rec parse_words acc words =
     match words with
-    | [] -> Ok (Location_.at loc (Children_order (List.rev acc)))
+    | [] -> Result.Ok (Location_.at loc (Children_order (List.rev acc)))
     | ({ Location_.value = `Word word; _ } as w) :: tl ->
         parse_words ({ w with value = parse_child word } :: acc) tl
     | { Location_.value = `Space _; _ } :: tl -> parse_words acc tl

src/model/frontmatter.mli

@@ -11,6 +11,6 @@ val empty : t
 val parse_children_order :
   Location_.span ->
   Odoc_parser.Ast.nestable_block_element Location_.with_location list ->
-  (line Location_.with_location, Error.t) result
+  (line Location_.with_location, Error.t) Result.result
 
 val of_lines : line Location_.with_location list -> t Error.with_warnings

src/model/semantics.ml

@@ -1,3 +1,5 @@
+open Odoc_utils
+
 module Location = Location_
 module Ast = Odoc_parser.Ast