Format sources

Author: cknitt

js/src/js_array.res

@@ -99,7 +99,7 @@ let code = s => Js.String.charCodeAt(0, s)
 Js.Array.fromMap(strArr, code) == [97.0, 98.0, 99.0, 100.0]
 ```
 */
-external fromMap: (array_like<'a>, ('a => 'b)) => array<'b> = "Array.from"
+external fromMap: (array_like<'a>, 'a => 'b) => array<'b> = "Array.from"
 
 /* ES2015 */
 
@@ -689,7 +689,7 @@ Js.Array.every(isEven, [6, 22, 8, 4]) == true
 Js.Array.every(isEven, [6, 22, 7, 4]) == false
 ```
 */
-external every: (('a => bool)) => bool = "every"
+external every: ('a => bool) => bool = "every"
 
 @send.pipe(: t<'a> as 'this)
 /**
@@ -718,7 +718,7 @@ let nonEmpty = s => s != ""
 Js.Array.filter(nonEmpty, ["abc", "", "", "def", "ghi"]) == ["abc", "def", "ghi"]
 ```
 */
-external filter: (('a => bool)) => 'this = "filter"
+external filter: ('a => bool) => 'this = "filter"
 
 @send.pipe(: t<'a> as 'this)
 /**
@@ -756,7 +756,7 @@ Js.Array.find(x => x < 0, [33, 22, -55, 77, -44]) == Some(-55)
 Js.Array.find(x => x < 0, [33, 22, 55, 77, 44]) == None
 ```
 */
-external find: (('a => bool)) => option<'a> = "find"
+external find: ('a => bool) => option<'a> = "find"
 
 @send.pipe(: t<'a> as 'this)
 @return(nullable)
@@ -786,7 +786,7 @@ Js.Array.findIndex(x => x < 0, [33, 22, -55, 77, -44]) == 2
 Js.Array.findIndex(x => x < 0, [33, 22, 55, 77, 44]) == -1
 ```
 */
-external findIndex: (('a => bool)) => int = "findIndex"
+external findIndex: ('a => bool) => int = "findIndex"
 
 @send.pipe(: t<'a> as 'this)
 /**
@@ -815,7 +815,7 @@ The `forEach()` function applies the function given as the first argument to eac
 Js.Array.forEach(x => Js.log(x), ["a", "b", "c"]) == ()
 ```
 */
-external forEach: (('a => unit)) => unit = "forEach"
+external forEach: ('a => unit) => unit = "forEach"
 
 @send.pipe(: t<'a> as 'this)
 /**
@@ -849,7 +849,7 @@ Js.Array.map(x => x * x, [12, 4, 8]) == [144, 16, 64]
 Js.Array.map(Js.String.length, ["animal", "vegetable", "mineral"]) == [6, 9, 7]
 ```
 */
-external map: (('a => 'b)) => t<'b> = "map"
+external map: ('a => 'b) => t<'b> = "map"
 
 @send.pipe(: t<'a> as 'this)
 /**
@@ -1020,7 +1020,7 @@ Js.Array.some(isEven, [3, 7, 5, 2, 9]) == true
 Js.Array.some(isEven, [3, 7, 5, 1, 9]) == false
 ```
 */
-external some: (('a => bool)) => bool = "some"
+external some: ('a => bool) => bool = "some"
 
 @send.pipe(: t<'a> as 'this)
 /**

js/src/js_array2.res

@@ -97,7 +97,7 @@ let code = s => Js.String.charCodeAt(0, s)
 Js.Array2.fromMap(strArr, code) == [97.0, 98.0, 99.0, 100.0]
 ```
 */
-external fromMap: (array_like<'a>, @uncurry ('a => 'b)) => array<'b> = "Array.from"
+external fromMap: (array_like<'a>, @uncurry 'a => 'b) => array<'b> = "Array.from"
 
 /* ES2015 */
 
@@ -740,7 +740,7 @@ Js.Array2.every([6, 22, 8, 4], isEven) == true
 Js.Array2.every([6, 22, 7, 4], isEven) == false
 ```
 */
-external every: (t<'a>, @uncurry ('a => bool)) => bool = "every"
+external every: (t<'a>, @uncurry 'a => bool) => bool = "every"
 
 @send
 /**
@@ -779,7 +779,7 @@ let nonEmpty = s => s != ""
 Js.Array2.filter(["abc", "", "", "def", "ghi"], nonEmpty) == ["abc", "def", "ghi"]
 ```
 */
-external filter: (t<'a>, @uncurry ('a => bool)) => t<'a> = "filter"
+external filter: (t<'a>, @uncurry 'a => bool) => t<'a> = "filter"
 
 @send
 /**
@@ -818,7 +818,7 @@ Js.Array2.find([33, 22, -55, 77, -44], x => x < 0) == Some(-55)
 Js.Array2.find([33, 22, 55, 77, 44], x => x < 0) == None
 ```
 */
-external find: (t<'a>, @uncurry ('a => bool)) => option<'a> = "find"
+external find: (t<'a>, @uncurry 'a => bool) => option<'a> = "find"
 
 /* ES2015 */
 
@@ -859,7 +859,7 @@ Js.Array2.findIndex([33, 22, -55, 77, -44], x => x < 0) == 2
 Js.Array2.findIndex([33, 22, 55, 77, 44], x => x < 0) == -1
 ```
 */
-external findIndex: (t<'a>, @uncurry ('a => bool)) => int = "findIndex"
+external findIndex: (t<'a>, @uncurry 'a => bool) => int = "findIndex"
 
 /* ES2015 */
 
@@ -902,7 +902,7 @@ on MDN.
 Js.Array2.forEach(["a", "b", "c"], x => Js.log(x)) == ()
 ```
 */
-external forEach: (t<'a>, @uncurry ('a => unit)) => unit = "forEach"
+external forEach: (t<'a>, @uncurry 'a => unit) => unit = "forEach"
 
 @send
 /**
@@ -943,7 +943,7 @@ Js.Array2.map([12, 4, 8], x => x * x) == [144, 16, 64]
 Js.Array2.map(["animal", "vegetable", "mineral"], Js.String.length) == [6, 9, 7]
 ```
 */
-external map: (t<'a>, @uncurry ('a => 'b)) => t<'b> = "map"
+external map: (t<'a>, @uncurry 'a => 'b) => t<'b> = "map"
 
 @send
 /**
@@ -1116,7 +1116,7 @@ Js.Array2.some([3, 7, 5, 2, 9], isEven) == true
 Js.Array2.some([3, 7, 5, 1, 9], isEven) == false
 ```
 */
-external some: (t<'a>, @uncurry ('a => bool)) => bool = "some"
+external some: (t<'a>, @uncurry 'a => bool) => bool = "some"
 
 @send
 /**

js/src/js_dict.res

@@ -60,7 +60,7 @@ external keys: t<'a> => array<key> = "Object.keys"
 @obj
 external empty: unit => t<'a> = ""
 
-let unsafeDeleteKey: (. t<string>, string) => unit = %raw(` function (dict,key){
+let unsafeDeleteKey: (t<string>, string) => unit = %raw(` function (dict,key){
       delete dict[key];
      }
   `)
@@ -118,7 +118,7 @@ let map = (f, source) => {
   let l = Js_array2.length(keys)
   for i in 0 to l - 1 {
     let key = Js_array2.unsafe_get(keys, i)
-    set(target, key, f(. unsafeGet(source, key)))
+    set(target, key, f(unsafeGet(source, key)))
   }
   target
 }

js/src/js_dict.resi

@@ -107,7 +107,7 @@ external keys: t<'a> => array<string> = "Object.keys"
 external empty: unit => t<'a> = ""
 
 /** Experimental internal function */
-let unsafeDeleteKey: (. t<string>, string) => unit
+let unsafeDeleteKey: (t<string>, string) => unit
 
 /**
 Returns an array of key/value pairs in the given dictionary (ES2017).
@@ -170,4 +170,4 @@ let salePrices = Js.Dict.map(discount, prices)
 salePrices == Js.Dict.fromList(list{("pen", 0.90), ("book", 4.50), ("stapler", 6.30)})
 ```
 */
-let map: ((. 'a) => 'b, t<'a>) => t<'b>
+let map: ('a => 'b, t<'a>) => t<'b>

js/src/js_list.res

@@ -78,7 +78,7 @@ let rev = l => revAppend(l, list{})
 let rec mapRevAux = (f, acc, ls) =>
   switch ls {
   | list{} => acc
-  | list{a, ...l} => mapRevAux(f, list{f(. a), ...acc}, l)
+  | list{a, ...l} => mapRevAux(f, list{f(a), ...acc}, l)
   }
 
 let mapRev = (f, ls) => mapRevAux(f, list{}, ls)
@@ -89,15 +89,15 @@ let rec iter = (f, x) =>
   switch x {
   | list{} => ()
   | list{a, ...l} =>
-    f(. a)
+    f(a)
     iter(f, l)
   }
 
 let rec iteri = (i, f, x) =>
   switch x {
   | list{} => ()
   | list{a, ...l} =>
-    f(. i, a)
+    f(i, a)
     iteri(i + 1, f, l)
   }
 
@@ -106,15 +106,15 @@ let iteri = (f, l) => iteri(0, f, l)
 let rec foldLeft = (f, accu, l) =>
   switch l {
   | list{} => accu
-  | list{a, ...l} => foldLeft(f, f(. accu, a), l)
+  | list{a, ...l} => foldLeft(f, f(accu, a), l)
   }
 
 let foldRightMaxStack = 1000
 
 let rec tailLoop = (f, acc, x) =>
   switch x {
   | list{} => acc
-  | list{h, ...t} => tailLoop(f, f(. h, acc), t)
+  | list{h, ...t} => tailLoop(f, f(h, acc), t)
   }
 
 let foldRight = (f, l, init) => {
@@ -123,9 +123,9 @@ let foldRight = (f, l, init) => {
     | list{} => init
     | list{h, ...t} =>
       if n < foldRightMaxStack {
-        f(. h, loop(n + 1, t))
+        f(h, loop(n + 1, t))
       } else {
-        f(. h, tailLoop(f, init, rev(t)))
+        f(h, tailLoop(f, init, rev(t)))
       }
     }
 
@@ -144,19 +144,19 @@ let rec filterRevAux = (f, acc, xs) =>
   switch xs {
   | list{} => acc
   | list{y, ...ys} =>
-    switch f(. y) {
+    switch f(y) {
     | false => filterRevAux(f, acc, ys)
     | true => filterRevAux(f, list{y, ...acc}, ys)
     }
   }
 
 let filter = (f, xs) => rev(filterRevAux(f, list{}, xs))
 
-let rec filterMapRevAux = (f: (. 'a) => option<'b>, acc, xs) =>
+let rec filterMapRevAux = (f: 'a => option<'b>, acc, xs) =>
   switch xs {
   | list{} => acc
   | list{y, ...ys} =>
-    switch f(. y) {
+    switch f(y) {
     | None => filterMapRevAux(f, acc, ys)
     | Some(z) => filterMapRevAux(f, list{z, ...acc}, ys)
     }
@@ -170,7 +170,7 @@ let rec countByAux = (f, acc, xs) =>
   | list{y, ...ys} =>
     countByAux(
       f,
-      if f(. y) {
+      if f(y) {
         acc + 1
       } else {
         acc
@@ -204,7 +204,7 @@ let rec equal = (cmp, xs, ys) =>
   switch (xs, ys) {
   | (list{}, list{}) => true
   | (list{x, ...xs}, list{y, ...ys}) =>
-    if cmp(. x, y) {
+    if cmp(x, y) {
       equal(cmp, xs, ys)
     } else {
       false

js/src/js_list.resi

@@ -42,30 +42,30 @@ let revAppend: (t<'a>, t<'a>) => t<'a>
 
 let rev: t<'a> => t<'a>
 
-let mapRev: ((. 'a) => 'b, t<'a>) => t<'b>
+let mapRev: ('a => 'b, t<'a>) => t<'b>
 
-let map: ((. 'a) => 'b, t<'a>) => t<'b>
+let map: ('a => 'b, t<'a>) => t<'b>
 
-let iter: ((. 'a) => unit, t<'a>) => unit
+let iter: ('a => unit, t<'a>) => unit
 
-let iteri: ((. int, 'a) => unit, t<'a>) => unit
+let iteri: ((int, 'a) => unit, t<'a>) => unit
 
 /** Application order is left to right, tail recurisve */
-let foldLeft: ((. 'a, 'b) => 'a, 'a, list<'b>) => 'a
+let foldLeft: (('a, 'b) => 'a, 'a, list<'b>) => 'a
 
 /** Application order is right to left tail-recursive. */
-let foldRight: ((. 'a, 'b) => 'b, list<'a>, 'b) => 'b
+let foldRight: (('a, 'b) => 'b, list<'a>, 'b) => 'b
 
 let flatten: t<t<'a>> => t<'a>
 
-let filter: ((. 'a) => bool, t<'a>) => t<'a>
+let filter: ('a => bool, t<'a>) => t<'a>
 
-let filterMap: ((. 'a) => option<'b>, t<'a>) => t<'b>
+let filterMap: ('a => option<'b>, t<'a>) => t<'b>
 
-let countBy: ((. 'a) => bool, list<'a>) => int
+let countBy: ('a => bool, list<'a>) => int
 
-let init: (int, (. int) => 'a) => t<'a>
+let init: (int, int => 'a) => t<'a>
 
 let toVector: t<'a> => array<'a>
 
-let equal: ((. 'a, 'a) => bool, list<'a>, list<'a>) => bool
+let equal: (('a, 'a) => bool, list<'a>, list<'a>) => bool

js/src/js_log.res

@@ -1,5 +1,6 @@
 /** Equivalent to console.log any value */
-@val @scope("console")
+@val
+@scope("console")
 external log: 'a => unit = "log"
 
 @val @scope("console")
@@ -12,5 +13,7 @@ external log3: 'a => 'b => 'c => unit = "log"
 external log4: 'a => 'b => 'c => 'd => unit = "log"
 
 /** A convenience function to console.log more than 4 arguments */
-@val @scope("console") @variadic
+@val
+@scope("console")
+@variadic
 external logMany: array<'a> => unit = "log"

js/src/js_null_undefined.res

@@ -40,13 +40,13 @@ external undefined: t<'a> = "#undefined"
 let bind = (x, f) =>
   switch to_opt(x) {
   | None => (Obj.magic((x: t<'a>)): t<'b>)
-  | Some(x) => return(f(. x))
+  | Some(x) => return(f(x))
   }
 
 let iter = (x, f) =>
   switch to_opt(x) {
   | None => ()
-  | Some(x) => f(. x)
+  | Some(x) => f(x)
   }
 
 let fromOption = x =>

js/src/js_null_undefined.resi

@@ -59,7 +59,7 @@ let maybeGreetWorld = (maybeGreeting: Js.null_undefined<string>) =>
   Js.Null_undefined.bind(maybeGreeting, (. greeting) => greeting ++ " world!")
 ```
 */
-let bind: (t<'a>, (. 'a) => 'b) => t<'b>
+let bind: (t<'a>, 'a => 'b) => t<'b>
 
 /**
 Iterates over the contained value with the given function.
@@ -72,7 +72,7 @@ let maybeSay = (maybeMessage: Js.null_undefined<string>) =>
   Js.Null_undefined.iter(maybeMessage, (. message) => Js.log(message))
 ```
 */
-let iter: (t<'a>, (. 'a) => unit) => unit
+let iter: (t<'a>, 'a => unit) => unit
 
 /**
 Maps `option<'a>` to `Js.null_undefined<'a>`.