Source file utils_json.ml

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