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)
|