module Or_exn: Or_exntype'at =('a, Core.Std.Exn.t) Core.Std.Result.t
include Monad.S
val try_with : f:('arg -> 'res) -> 'arg -> 'res t Or_exn.try_with ~f x
Or_exn.try_with () ~f:(fun () ->
....
)
let f_or_exn = Or_exn.try_with ~f
val try_with_bind : f:('arg -> 'res t) -> 'arg -> 'res tval failwith : string -> 'a tmodule Infix:sig..end