refactor(int/clamp): adding type annotation allows compiler to inline primitives

Author: glennsl

src/Core__Int.mjs

@@ -1,7 +1,5 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as Caml_obj from "rescript/lib/es6/caml_obj.js";
-import * as Caml_option from "rescript/lib/es6/caml_option.js";
 
 function fromString(radix, x) {
   var maybeInt = radix !== undefined ? parseInt(x, radix) : parseInt(x);
@@ -13,19 +11,9 @@ function fromString(radix, x) {
 }
 
 function clamp(min, max, value) {
-  var value$1;
-  if (max !== undefined) {
-    var max$1 = Caml_option.valFromOption(max);
-    value$1 = Caml_obj.lessthan(max$1, value) ? max$1 : value;
-  } else {
-    value$1 = value;
-  }
-  if (min === undefined) {
-    return value$1;
-  }
-  var min$1 = Caml_option.valFromOption(min);
-  if (Caml_obj.greaterthan(min$1, value$1)) {
-    return min$1;
+  var value$1 = max !== undefined && max < value ? max : value;
+  if (min !== undefined && min > value$1) {
+    return min;
   } else {
     return value$1;
   }

src/Core__Int.res

@@ -36,7 +36,7 @@ let fromString = (~radix=?, x) => {
 
 external mod: (int, int) => int = "%modint"
 
-let clamp = (~min=?, ~max=?, value) => {
+let clamp = (~min=?, ~max=?, value): int => {
   let value = switch max {
   | Some(max) if max < value => max
   | _ => value