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 fromString(radix, x) {
@@ -50,19 +48,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

@@ -62,7 +62,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

test/TestSuite.mjs

@@ -24,10 +24,10 @@ var Concurrently = PromiseTest.Concurrently;
 
 var panicTest = ErrorTests.panicTest;
 
-var eq = FloatTests.eq;
-
 var $$catch = IntTests.$$catch;
 
+var eq = FloatTests.eq;
+
 export {
   TestError ,
   fail ,
@@ -38,7 +38,7 @@ export {
   Catching ,
   Concurrently ,
   panicTest ,
-  eq ,
   $$catch ,
+  eq ,
 }
 /* IntTests Not a pure module */