Use MB.of_int

Author: liam923

src/analysis/index_occurrences.ml

@@ -91,7 +91,7 @@ let iterator ~current_buffer_path ~index ~stamp ~reduce_for_uid =
 
 let items ~index ~stamp (config : Mconfig.t) items =
   let module Shape_reduce = Shape_reduce.Make (struct
-    let fuel () : Misc_stdlib.Maybe_bounded.t = Bounded { bound = 10 }
+    let fuel () = Misc_stdlib.Maybe_bounded.of_int 10
 
     let read_unit_shape ~diagnostics:_ ~unit_name =
       log ~title:"read_unit_shape" "inspecting %s" unit_name;

src/analysis/locate.ml

@@ -880,7 +880,7 @@ let get_linked_uids ~config ~comp_unit decl_uid =
 let find_definition_uid ~config ~env ~(decl : Env_lookup.item) path =
   let namespace = decl.namespace in
   let module Reduce = Shape_reduce.Make (struct
-    let fuel () : Misc_stdlib.Maybe_bounded.t = Bounded { bound = 10 }
+    let fuel () = Misc_stdlib.Maybe_bounded.of_int 10
     let read_unit_shape ~diagnostics:_ ~unit_name =
       log ~title:"read_unit_shape" "inspecting %s" unit_name;
       match

src/ocaml-index/lib/index.ml

@@ -50,7 +50,7 @@ module Reduce_conf (Loaded_shapes : sig
   val shapes : (Compilation_unit.t, Shape.t) Hashtbl.t
 end) =
 struct
-  let fuel () : Misc_stdlib.Maybe_bounded.t = Bounded { bound = 10 }
+  let fuel () = Misc_stdlib.Maybe_bounded.of_int 10
 
   let try_load ~unit_name () =
     match