type 'a not_blank = {
trailing_blanks : Base.string; | regexp: " |
orig : Base.string; | regexp: " |
data : 'a; |
}
val sexp_of_not_blank : ('a -> Ppx_sexp_conv_lib.Sexp.t) -> 'a not_blank -> Ppx_sexp_conv_lib.Sexp.t
val sexp_of_t : ('a -> Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Ppx_sexp_conv_lib.Sexp.t
val map : 'a t -> f:(Base.string -> 'a -> 'b) -> 'b t
The callback receive the orig
and data
fields
val data : 'a t -> blank:'a -> 'a