exception Escape of (int * int) * (int * int) * Jsonm.errorval find_string_value :
Stdlib.String.t ->
[< `A of 'a
| `Bool of 'b
| `Float of 'c
| `Null
| `O of (Stdlib.String.t * [> `String of 'd ]) list
| `String of 'e ] ->
('f, [> Rresult.R.msg ]) Rresult.resultval find_devices :
[< `A of 'a
| `Bool of 'b
| `Float of 'c
| `Null
| `O of
(Stdlib.String.t
* [> `A of
[< `A of 'd & 'e
| `Bool of 'f & 'g
| `Float of 'h & 'i
| `Null
| `O of
(Stdlib.String.t * [> `String of string ]) list & (Stdlib.String.t
* [>
`String of
'j ])
list
| `String of 'k & 'l ]
list ])
list
| `String of 'm ] ->
('n list * 'o list, [> Rresult.R.msg ]) Rresult.resultval json_of_string :
string ->
([> `A of 'b list
| `Bool of bool
| `Float of float
| `Null
| `O of (string * 'b) list
| `String of string ] as 'a,
Jsonm.error)
Stdlib.result