Module Expect_test_matcher.Cst.Line

type 'a not_blank = {
trailing_blanks : Base.string;

(** regexp: " \t*" *)

orig : Base.string;

(** regexp: "^\n*^ \t\n" *)

data : 'a;
}
include sig ... end
val sexp_of_not_blank : ('a ‑> Sexplib.Sexp.t) ‑> 'a not_blank ‑> Sexplib.Sexp.t
val compare_not_blank : ('a ‑> 'a ‑> Base.int) ‑> 'a not_blank ‑> 'a not_blank ‑> Base.int
type 'a t =
| Blank of Base.string

(** regexp: " \t*" *)

| Not_blank of 'a not_blank
include sig ... end
val sexp_of_t : ('a ‑> Sexplib.Sexp.t) ‑> 'a t ‑> Sexplib.Sexp.t
val compare : ('a ‑> 'a ‑> Base.int) ‑> 'a t ‑> 'a t ‑> Base.int
val invariant : ('a ‑> Base.unit) ‑> 'a t ‑> Base.unit
val map : 'a t ‑> f:(Base.string ‑> 'a ‑> 'b) ‑> 'b t

The callback receive the orig and data fields

val strip : 'a t ‑> 'a t

Delete trailing blanks (everything for blank lines)

val data : 'a t ‑> blank:'a ‑> 'a