Pretty: specialize integer comparison

lib/nottui-pretty/nottui_pretty.ml

@@ -271,8 +271,8 @@ let rec pretty_flat = function
    this ugly 100-lines long implementation.
 *)
 
-let maxi i j = if i < j then j else i
-let mini i j = if i < j then i else j
+let maxi i j : int = if i < j then j else i
+let mini i j : int = if i < j then i else j
 let (+++) i j = let result = i + j in if result < 0 then max_int else result
 
 let nonflat_line ui =