1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(** Cap'n Proto exceptions. *)
type ty = [
| `Failed
| `Overloaded
| `Disconnected
| `Unimplemented
| `Undefined of int
]
type t = {
ty : ty;
reason : string;
}
let pp_ty f x =
Fmt.string f (match x with
| `Failed -> "Failed"
| `Overloaded -> "Overloaded"
| `Disconnected -> "Disconnected"
| `Unimplemented -> "Unimplemented"
| `Undefined x -> "Undefined:" ^ string_of_int x
)
let pp f ex =
Fmt.pf f "%a: %s" pp_ty ex.ty ex.reason
let v ?(ty = `Failed) reason = { ty; reason }
let cancelled = v "Cancelled"