DeSourceinclude module type of struct include Error endtype 'err de_error =
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Missing_field of string
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ] as 'errAccess modules
boilerplace below is because we don't have modular implicits yet.
it threads the two modules manually, and makes sure the all the types are escaping correctly.
val deserialize_unit :
'value 'state. 'state Deserializer.t ->
'value Visitor.t ->
('value,
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ]
de_error)
resultval deserialize_string :
'value 'state. 'state Deserializer.t ->
'value Visitor.t ->
('value,
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ]
de_error)
resultval deserialize_int :
'value 'state. 'state Deserializer.t ->
'value Visitor.t ->
('value,
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ]
de_error)
resultval deserialize_bool :
'value 'state. 'state Deserializer.t ->
'value Visitor.t ->
('value,
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ]
de_error)
resultval deserialize_identifier :
'value 'state. 'state Deserializer.t ->
'value Visitor.t ->
('value,
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ]
de_error)
resultval deserialize_record :
'value 'field 'state. 'state Deserializer.t ->
('value, 'field) Visitor.with_tag ->
'field Visitor.t ->
name:string ->
fields:string list ->
('value,
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ]
de_error)
resultval deserialize_seq :
'value 'state. 'state Deserializer.t ->
'value Visitor.t ->
('value,
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ]
de_error)
resultval deserialize_variant :
'value 'tag 'state. 'state Deserializer.t ->
('value, 'tag) Visitor.with_tag ->
'tag Visitor.t ->
name:string ->
variants:string list ->
('value,
[> `Duplicate_field of string
| `Invalid_field_index of int
| `Invalid_variant_index of int
| `Message of string
| `Missing_field of string
| `Unexpected_exception of exn
| `Unimplemented of string
| `Unknown_field of string
| `Unknown_variant of string ]
de_error)
result