Module Protect.R

This "monad" could be related to "Runners in action" (Ahman, Bauer), thanks to Guillaume Munch-Maccagnoni for the reference and for many useful tips!

type ('a, 'l) t = private
  1. | Completed of ('a, 'l Error.t) Stdlib.result
  2. | Interrupted
val error : Pp.t -> ('a, 'l) t
val map : f:('a -> 'b) -> ('a, 'l) t -> ('b, 'l) t
val map_error : f:('l Error.payload -> 'm Error.payload) -> ('a, 'l) t -> ('a, 'm) t
val map_loc : f:('l -> 'm) -> ('a, 'l) t -> ('a, 'm) t

Update the loc stored in the result, this is used by our cache-aware location