package regular

  1. Overview
  2. Docs
type (!'a, !'s) t = ('a, 's) Core_kernel.Sequence.Step.t =
  1. | Done
  2. | Skip of 's
  3. | Yield of 'a * 's
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> ('s -> Sexplib.Sexp.t) -> ('a, 's) t -> Sexplib.Sexp.t