Adding Util.min to the Util module

`Int.min` was introduced in OCaml 4.13

Signed-off-by: Paul-Elliot <[email protected]>

Author: panglesd

lib/block.ml

@@ -162,8 +162,7 @@ let lstrip strings =
   let hpad = Misc.hpad_of_lines strings in
   List.map
     (fun string ->
-      let min a b = if a < b then a else b in
-      let first = min (Misc.hpad_of_lines [ string ]) hpad in
+      let first = Util.Int.min (Misc.hpad_of_lines [ string ]) hpad in
       Astring.String.with_index_range string ~first)
     strings
 

lib/util.ml

@@ -116,3 +116,7 @@ module Process = struct
   let wait ~pid =
     match snd (Unix.waitpid [] pid) with WEXITED n -> n | _ -> 255
 end
+
+module Int = struct
+  let min a b = if a < b then a else b
+end

lib/util.mli

@@ -77,3 +77,7 @@ module Process : sig
       Exit code is the same as the child process if it exits normally, or 255
       otherwise. *)
 end
+
+module Int : sig
+  val min : int -> int -> int
+end