Source file or_exn.ml

type 'a t = ('a, exn) Result.t

let equal eq x y = Result.equal eq Exn.equal x y
let hash h = Result.hash h Exn.hash

let to_dyn f = Result.to_dyn f Exn.to_dyn