Module Effect.Shallow

type ('a, 'b) continuation
val fiber : ('a -> 'b) -> ('a, 'b) continuation
type (!'a, !'b) handler = {
  1. retc : 'a -> 'b;
  2. exnc : exn -> 'b;
  3. effc : 'c. 'c t -> (('c, 'a) continuation -> 'b) option;
}
val continue_with : ('c, 'a) continuation -> 'c -> ('a, 'b) handler -> 'b
val discontinue_with : ('c, 'a) continuation -> exn -> ('a, 'b) handler -> 'b
val discontinue_with_backtrace : ('a, 'b) continuation -> exn -> Printexc.raw_backtrace -> ('b, 'c) handler -> 'c
val get_callstack : ('a, 'b) continuation -> int -> Printexc.raw_backtrace