Fix pattern match

kutyel · kutyel · commit 6c5e3f7dc7f4 · 2018-10-02T00:08:21.000+02:00
diff --git a/jscomp/others/belt_Array.ml b/jscomp/others/belt_Array.ml
@@ -364,7 +364,7 @@ let reduceReverse2 a b x f =
 
 let rec reduceWithIndexAuxU a acc f i =
   match a with
-  | [] -> acc
+  | [||] -> acc
   | x::xs -> reduceWithIndexAuxU xs ((f acc x i)[@bs]) f (i + 1)
 
 let reduceWithIndexU a acc f = reduceWithIndexAuxU a acc f 0
