Source file timeout.ml

1
2
3
4
5
6
7
8
type t =
  | Immediate
  | Never
  | After of int64

let immediate = Immediate
let never = Never
let after x = After x