fix rescript-lang#2527

Author: bobzhang

Diff for: jscomp/others/belt_List.ml

@@ -407,6 +407,11 @@ let toArray ( x : _ t) =
   fillAux arr 0 x;
   arr
 
+let shuffle xs = 
+  let v = toArray xs in
+  A.shuffleInPlace v ;
+  ofArray v 
+
 let rec fillAuxMap arr i x f =
   match x with
   | [] -> ()

Diff for: jscomp/others/belt_List.mli

@@ -126,6 +126,12 @@ val makeBy: int -> (int -> 'a) -> 'a t
     ]}
 *)    
 
+val shuffle: 'a t -> 'a t 
+(** [shuffle xs]
+   @return a new list in random order
+*)
+
+
 val drop: 'a t -> int -> 'a t option 
 (** [drop xs n]
 

Diff for: jscomp/xwatcher/xwatcher.js

@@ -1,4 +1,4 @@
-'use strict';
+
 
 import * as Path from "path";
 import * as Js_option from "../../lib/es6/js_option.js";

Diff for: jscomp/xwatcher/xwatcher_current.js

@@ -1,4 +1,4 @@
-'use strict';
+
 
 import * as Fs from "fs";
 import * as Path from "path";

Diff for: jscomp/xwatcher/xwatcher_util.js

@@ -1,4 +1,4 @@
-'use strict';
+
 
 import * as Fs from "fs";
 import * as Path from "path";

Diff for: lib/es6/js_typed_array.js

@@ -1,4 +1,4 @@
-'use strict';
+
 
 
 var ArrayBuffer = /* module */[];

Diff for: lib/js/belt_List.js

@@ -692,6 +692,12 @@ function toArray(x) {
   return arr;
 }
 
+function shuffle(xs) {
+  var v = toArray(xs);
+  Belt_Array.shuffleInPlace(v);
+  return ofArray(v);
+}
+
 function reverseConcat(_l1, _l2) {
   while(true) {
     var l2 = _l2;
@@ -1463,6 +1469,7 @@ exports.getExn = getExn;
 exports.make = make;
 exports.makeByU = makeByU;
 exports.makeBy = makeBy;
+exports.shuffle = shuffle;
 exports.drop = drop;
 exports.take = take;
 exports.splitAt = splitAt;