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

Author: glennsl

src/Core__Int.mjs

@@ -1,8 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as Caml_obj from "rescript/lib/es6/caml_obj.js";
 import * as Pervasives from "rescript/lib/es6/pervasives.js";
-import * as Caml_option from "rescript/lib/es6/caml_option.js";
 import * as Core__Array from "./Core__Array.mjs";
 
 function equal(a, b) {
@@ -64,19 +62,9 @@ function range(start, end) {
 }
 
 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

@@ -67,7 +67,7 @@ let rangeWithOptions = (start, end, options) => {
 
 let range = (start, end) => rangeWithOptions(start, end, {})
 
-let clamp = (~min=?, ~max=?, value) => {
+let clamp = (~min=?, ~max=?, value): int => {
   let value = switch max {
   | Some(max) if max < value => max
   | _ => value