8 lines
241 B
OCaml
8 lines
241 B
OCaml
let force_record ~msg json = match json with
|
|
| `O json -> json
|
|
| _ -> raise @@ Failure ("not json record : " ^ msg)
|
|
|
|
let force_string ~msg json = match json with
|
|
| `String str -> str
|
|
| _ -> raise @@ Failure ("not json str : " ^ msg)
|