8 lines
253 B
OCaml
8 lines
253 B
OCaml
let parse_json src = Yojson.Basic.from_string src
|
|
|
|
let jfield key = function
|
|
| `Assoc pairs -> List.assoc_opt key pairs
|
|
| _ -> None
|
|
|
|
let jstring = function `String s -> Some s | _ -> None
|
|
let jassoc = function `Assoc pairs -> Some pairs | _ -> None
|