Module Protect.E

type ('a, 'l) t = {
  1. r : ('a, 'l) R.t;
  2. feedback : 'l Message.t list;
}
val map : f:('a -> 'b) -> ('a, 'l) t -> ('b, 'l) t
val map_loc : f:('l -> 'm) -> ('a, 'l) t -> ('a, 'm) t
val bind : f:('a -> ('b, 'l) t) -> ('a, 'l) t -> ('b, 'l) t
val ok : 'a -> ('a, 'l) t