Compatibility

ocaml · Nov 27, 2024 · aabd040 · aabd040
1 parent f520b25
commit aabd040
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/test/odoc_print/print_index.ml b/test/odoc_print/print_index.ml
@@ -2,7 +2,11 @@ open Compatcmdliner
 
 let run inp =
   let inp = Fpath.v inp in
-  let index = Odoc_odoc.Odoc_file.load_index inp |> Result.get_ok in
+  let index =
+    Odoc_odoc.Odoc_file.load_index inp |> function
+    | Result.Ok x -> x
+    | _ -> failwith "failed to load index"
+  in
   let rec tree_to_yojson
       ({ node; children } : Odoc_index.Entry.t Odoc_utils.Tree.t) :
       Yojson.Safe.t =