adapt warn-error

Author: bobzhang

jscomp/others/belt_Array.ml

@@ -18,7 +18,7 @@ external size: 'a array -> int = "%array_length"
 external getUnsafe: 'a array -> int -> 'a = "%array_unsafe_get"
 external setUnsafe: 'a array -> int -> 'a -> unit = "%array_unsafe_set"
 external getUndefined: 'a array -> int -> 'a Js.undefined = "%array_unsafe_get"
-external get: 'a array -> int -> 'a = "%array_safe_get"
+(* external get: 'a array -> int -> 'a = "%array_safe_get" *)
 let get arr i =
   if i >= 0 && i < length arr then Some (getUnsafe arr i) else None
 let getExn arr i =

jscomp/others/belt_HashMapInt.ml

@@ -189,7 +189,7 @@ let isEmpty = C.isEmpty
 
 let fromArray arr = 
   let len = A.length arr in 
-  let v = make len in 
+  let v = make ~hintSize:len in 
   for i = 0 to len - 1 do 
     let k,value = (A.getUnsafe arr i) in
     set v k value

jscomp/others/belt_HashMapString.ml

@@ -189,7 +189,7 @@ let isEmpty = C.isEmpty
 
 let fromArray arr = 
   let len = A.length arr in 
-  let v = make len in 
+  let v = make ~hintSize:len in 
   for i = 0 to len - 1 do 
     let k,value = (A.getUnsafe arr i) in
     set v k value

jscomp/others/belt_List.ml

@@ -425,12 +425,12 @@ let shuffle xs =
   A.shuffleInPlace v ;
   fromArray v
 
-let rec fillAuxMap arr i x f =
+(* let rec fillAuxMap arr i x f =
   match x with
   | [] -> ()
   | h::t ->
     A.setUnsafe arr i (f h [@bs]) ;
-    fillAuxMap arr (i + 1) t f
+    fillAuxMap arr (i + 1) t f *)
 
 (* module J = Js_json *)
 (* type json = J.t  *)
@@ -679,7 +679,7 @@ let getAssoc xs x eq = getAssocU xs x (fun[@bs] a b -> eq  a b)
 let rec hasAssocU xs x eq =
   match xs with
   | [] -> false
-  | (a, b) :: l -> eq a x [@bs] || hasAssocU l x eq
+  | (a, _) :: l -> eq a x [@bs] || hasAssocU l x eq
 
 let hasAssoc xs x eq = hasAssocU xs x (fun[@bs] a b -> eq a b)
 
@@ -795,7 +795,7 @@ let partitionU l p  =
 
 let partition l p = partitionU l (fun [@bs] x -> p x)
 
-let rec unzip xs =
+let  unzip xs =
   match xs with
   | [] -> ([], [])
   | (x,y)::l ->
@@ -805,7 +805,7 @@ let rec unzip xs =
     cellX, cellY
 
 
-let rec zip l1 l2 =
+let  zip l1 l2 =
   match (l1, l2) with
     _, [] | [], _ -> []
   | (a1::l1, a2::l2) ->

jscomp/others/belt_MapDict.ml

@@ -198,14 +198,14 @@ let rec splitAuxPivot n x pres  ~cmp =
   if c < 0 then
     match N.toOpt l with 
     | None -> 
-      N.(empty, return n)
+      N.empty, N.return n
     | Some l -> 
       let (ll,rl) = splitAuxPivot ~cmp l x pres in
       (ll,  N.join rl v d r)
   else
     match N.toOpt r with 
     | None ->
-      N.(return n, empty)
+      N.return n, N.empty
     | Some r -> 
       let (lr,  rr) = splitAuxPivot ~cmp r x pres in
       (N.join l v d lr,  rr)
@@ -214,7 +214,7 @@ let rec splitAuxPivot n x pres  ~cmp =
 let split  n x ~cmp = 
   match N.toOpt n with 
   | None ->     
-    N.(empty, empty), None
+    (N.empty, N.empty), None
   | Some n  ->
     let pres = ref None in
     let v = splitAuxPivot ~cmp n x pres in 

jscomp/others/belt_MapInt.ml

@@ -10,7 +10,7 @@ type 'a t = (key, 'a) N.t
 
 let empty = N.empty      
 let isEmpty = N.isEmpty
-let singleton = N.singleton
+(* let singleton = N.singleton *)
 
 let minKey = N.minKey
 let minKeyUndefined = N.minKeyUndefined
@@ -152,7 +152,7 @@ let mergeMany h arr =
   done ;
   v.contents 
 
-let mergeArray = mergeMany
+(* let mergeArray = mergeMany *)
 
 let has = I.has
 let cmpU = I.cmpU

jscomp/others/belt_MapInt.mli

@@ -90,12 +90,7 @@ val getUndefined: 'v t -> key -> 'v Js.undefined
 val getWithDefault: 'v t -> key -> 'v -> 'v
 
 val getExn: 'v t -> key -> 'v
-
-val checkInvariantInternal: _ t -> unit
-(**
-   {b raise} when invariant is not held
-*)  
-
+ 
 val checkInvariantInternal: _ t -> unit
 (**
    {b raise} when invariant is not held

jscomp/others/belt_MapString.ml

@@ -10,7 +10,7 @@ type 'a t = (key, 'a) N.t
 
 let empty = N.empty      
 let isEmpty = N.isEmpty
-let singleton = N.singleton
+(* let singleton = N.singleton *)
 
 let minKey = N.minKey
 let minKeyUndefined = N.minKeyUndefined
@@ -152,7 +152,7 @@ let mergeMany h arr =
   done ;
   v.contents 
 
-let mergeArray = mergeMany
+(* let mergeArray = mergeMany *)
 
 let has = I.has
 let cmpU = I.cmpU

jscomp/others/belt_MapString.mli

@@ -90,12 +90,7 @@ val getUndefined: 'v t -> key -> 'v Js.undefined
 val getWithDefault: 'v t -> key -> 'v -> 'v
 
 val getExn: 'v t -> key -> 'v
-
-val checkInvariantInternal: _ t -> unit
-(**
-   {b raise} when invariant is not held
-*)  
-
+ 
 val checkInvariantInternal: _ t -> unit
 (**
    {b raise} when invariant is not held

jscomp/others/belt_MutableMap.ml

@@ -180,9 +180,9 @@ let keysToArray d =
 let valuesToArray d =   
   N.valuesToArray (S.dataGet d)
 
-let fromSortedArrayUnsafe (type key) (type identity) ~(id : (key,identity) id) xs : _ t =
+(* let fromSortedArrayUnsafe (type key) (type identity) ~(id : (key,identity) id) xs : _ t =
   let module M = (val id) in 
-  S.t ~data:(N.fromSortedArrayUnsafe xs) ~cmp:M.cmp
+  S.t ~data:(N.fromSortedArrayUnsafe xs) ~cmp:M.cmp *)
 
 let checkInvariantInternal d = 
   N.checkInvariantInternal (S.dataGet d)