Children order: compat

Author: panglesd

src/model/frontmatter.ml

@@ -22,7 +22,8 @@ let parse_child c =
 
 let parse s =
   let entries =
-    s |> String.split_on_char '\n'
+    s
+    |> Astring.String.cuts ~sep:"\n"
     |> List.map (fun l ->
            l |> fun x ->
            Astring.String.cut ~sep:":" x |> function

src/odoc/indexing.ml

@@ -163,9 +163,9 @@ let compile out_format ~output ~warnings_options ~occurrences ~lib_roots
                 let children_order = fm.Frontmatter.children_order in
                 (id, title, children_order))
               (List.filter_map
-                 (function
-                   | Paths.Identifier.(
-                       ({ iv = #LeafPage.t_pv; _ } as id), pl, fm) ->
+                 Paths.Identifier.(
+                   function
+                   | ({ iv = #LeafPage.t_pv; _ } as id), pl, fm ->
                        Some (id, pl, fm)
                    | _ -> None)
                  pages)