Source file or_exn.ml

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

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

include Monad.Make (struct
  type nonrec 'a t = 'a t

  let return = Result.return

  let bind = Result.bind
end)