First uncurryfication.

Author: cristianoc

src/ReScriptStdLib.res

@@ -1,3 +1,4 @@
+@@uncurried
 module Array = Stdlib__Array
 module Console = Stdlib__Console
 module DataView = Stdlib__DataView

src/Stdlib__Array.bs.js

@@ -1,3 +1,4 @@
+@@uncurried
 external getUnsafe: (array<'a>, int) => 'a = "%array_unsafe_get"
 external setUnsafe: (array<'a>, int, 'a) => unit = "%array_unsafe_set"
 
@@ -99,7 +100,7 @@ let lastIndexOfOpt = (arr, item) =>
 @send external mapWithIndex: (array<'a>, ('a, int) => 'b) => array<'b> = "map"
 
 let reduceU = (a, x, f) => {
-  let r = ref(x)
+  let r = ref(. x)
   for i in 0 to length(a) - 1 {
     r.contents = f(. r.contents, getUnsafe(a, i))
   }
@@ -109,7 +110,7 @@ let reduceU = (a, x, f) => {
 let reduce = (a, x, f) => reduceU(a, x, (. a, b) => f(a, b))
 
 let reduceWithIndexU = (a, x, f) => {
-  let r = ref(x)
+  let r = ref(. x)
   for i in 0 to length(a) - 1 {
     r.contents = f(. r.contents, getUnsafe(a, i), i)
   }
@@ -119,7 +120,7 @@ let reduceWithIndexU = (a, x, f) => {
 let reduceWithIndex = (a, x, f) => reduceWithIndexU(a, x, (. a, b, c) => f(a, b, c))
 
 let reduceReverseU = (a, x, f) => {
-  let r = ref(x)
+  let r = ref(. x)
   for i in length(a) - 1 downto 0 {
     r.contents = f(. r.contents, getUnsafe(a, i))
   }
@@ -164,7 +165,7 @@ let reverse = xs => {
 let shuffleInPlace = xs => {
   let len = length(xs)
   for i in 0 to len - 1 {
-    swapUnsafe(xs, i, Js.Math.random_int(i, len)) /* [i,len) */
+    swapUnsafe(xs, i, Js.Math.random_int(. i, len)) /* [i,len) */
   }
 }
 
@@ -177,7 +178,7 @@ let shuffle = xs => {
 let filterMapU = (a, f) => {
   let l = length(a)
   let r = makeUninitializedUnsafe(l)
-  let j = ref(0)
+  let j = ref(. 0)
   for i in 0 to l - 1 {
     let v = getUnsafe(a, i)
     switch f(. v) {

src/Stdlib__Array.res

@@ -1,3 +1,4 @@
+@@uncurried
 @val external from: 'a => array<'b> = "Array.from"
 @val external fromWithMap: ('a, 'b => 'c) => array<'c> = "Array.from"
 @val external fromArrayLike: Js.Array2.array_like<'a> => array<'a> = "Array.from"

src/Stdlib__Array.resi

@@ -1,3 +1,4 @@
+@@uncurried
 type t = Js.Types.bigint_val
 
 @val external asIntN: (~width: int, t) => t = "BigInt.asIntN"

src/Stdlib__BigInt.res

@@ -1,3 +1,4 @@
+@@uncurried
 @val external log: 'a => unit = "console.log"
 @val external log2: ('a, 'b) => unit = "console.log"
 @val external log3: ('a, 'b, 'c) => unit = "console.log"

src/Stdlib__Console.res

@@ -1,3 +1,4 @@
+@@uncurried
 type t = Js.Date.t
 
 module Time = {

src/Stdlib__Date.res

@@ -1,3 +1,4 @@
+@@uncurried
 type t<'a> = Js.Dict.t<'a>
 
 @get_index external get: (t<'a>, string) => option<'a> = ""

src/Stdlib__Dict.res

@@ -1,3 +1,4 @@
+@@uncurried
 type t = Js.Exn.t
 
 external fromException: exn => option<t> = "?as_js_exn"

src/Stdlib__Error.res

@@ -1,3 +1,4 @@
+@@uncurried
 module Constants = {
   @val external nan: float = "NaN"
   @val external epsilon: float = "Number.EPSILON"

src/Stdlib__Float.res

@@ -1,3 +1,4 @@
+@@uncurried
 module Constants: {
   @val external nan: float = "NaN"
   @val external epsilon: float = "Number.EPSILON"

src/Stdlib__Float.resi

@@ -1,3 +1,4 @@
+@@uncurried
 type timeoutId = Js.Global.timeoutId
 
 @val external setTimeout: (unit => unit, int) => timeoutId = "setTimeout"

src/Stdlib__Global.res

@@ -1,3 +1,4 @@
+@@uncurried
 module Constants = {
   @inline let minValue = -2147483648
   @inline let maxValue = 2147483647

src/Stdlib__Int.bs.js

@@ -1,3 +1,4 @@
+@@uncurried
 type t = Js.Json.t
 
 type jsonReviver

src/Stdlib__Int.res

@@ -1,3 +1,4 @@
+@@uncurried
 type t<'k, 'v>
 
 @new external make: unit => t<'k, 'v> = "Map"

src/Stdlib__JSON.bs.js

@@ -1,3 +1,4 @@
+@@uncurried
 module Constants = {
   @val external e: float = "Math.E"
   @val external ln2: float = "Math.LN2"

src/Stdlib__JSON.res

@@ -1,3 +1,4 @@
+@@uncurried
 type t<'a> = Js.Nullable.t<'a>
 
 external null: t<'a> = "#null"

src/Stdlib__Map.res

@@ -1,3 +1,4 @@
+@@uncurried
 @obj external empty: unit => {..} = ""
 
 @val external is: ('a, 'b) => bool = "Object.is"

src/Stdlib__Math.res

@@ -1,3 +1,4 @@
+@@uncurried
 /* Copyright (C) 2017 Hongbo Zhang, Authors of ReScript
  *
  * This program is free software: you can redistribute it and/or modify
@@ -41,7 +42,7 @@ let forEach = (opt, f) => forEachU(opt, (. x) => f(x))
 let getExn = x =>
   switch x {
   | Some(x) => x
-  | None => raise(Not_found)
+  | None => raise(. Not_found)
   }
 
 external getUnsafe: option<'a> => 'a = "%identity"

src/Stdlib__Nullable.bs.js

@@ -1,3 +1,4 @@
+@@uncurried
 /* Copyright (C) 2017 Authors of ReScript
  *
  * This program is free software: you can redistribute it and/or modify