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