Source file eio_mock.ml

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
  )