sig
type 'a t =
Same of ('a * 'a) array
| Old of 'a array
| New of 'a array
| Replace of 'a array * 'a array
| Unified of 'a array
val all_same : 'a Patience_diff.Range.t list -> bool
val old_only :
'a Patience_diff.Range.t list -> 'a Patience_diff.Range.t list
val new_only :
'a Patience_diff.Range.t list -> 'a Patience_diff.Range.t list
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a Patience_diff.Range.t
val sexp_of_t :
('a -> Sexplib.Sexp.t) -> 'a Patience_diff.Range.t -> Sexplib.Sexp.t
end