(* Parsing a JSON string using Json.parseOrRaise *)

let arrayOfInts str =
  let json = Json.parseOrRaise str in
  Json.Decode.(array int json)

  prints ` [ 3 , 2 , 1 ] `
let _ = Js.log (arrayOfInts "[1, 2, 3]" |> Js.Array.reverseInPlace)
 Parsing a JSON string using Json.parseOrRaise 

let arrayOfInts str =
  let json = Json.parseOrRaise str in
  Json.Decode.(array int json)

  prints ` [ 3 , 2 , 1 ] `
let _ = Js.log (arrayOfInts "[1, 2, 3]" |> Js.Array.reverseInPlace)