1
2
3
4
5
6
7
8
9
10
11
12
13
module Action = Action
module Handler = Handler
module Flow = Flow
module Net = Net
module Clock = Clock
module Domain_manager = Domain_manager
module Backend = Backend
type Eio.Exn.Backend.t += Simulated_failure
let () = Eio.Exn.Backend.register_pp (fun f -> function
| Simulated_failure -> Fmt.string f "Simulated_failure"; true
| _ -> false
)