Source file `utils_json.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
type t = Yojson.Safe.t

let parse str =
  try Ok (str |> Yojson.Safe.from_string)
  with _ -> Error "failed to parse json"

let parse_opt str = try Some (str |> Yojson.Safe.from_string) with _ -> None

let parse_exn str = str |> Yojson.Safe.from_string

let to_string = Yojson.Safe.to_string

module Yojson = Yojson.Safe