Patdiff_kernel.Comparison_resulttype t = | Binary_same| Binary_different of {}| Hunks of Hunks.t| Structured_hunks of ([ `Next | `Prev | `Same ] * string) list
Patience_diff_lib.Patience_diff.Hunk.t
listval create :
Configuration.t ->
prev:Diff_input.t ->
next:Diff_input.t ->
compare_assuming_text:
(Configuration.t ->
prev:Diff_input.t ->
next:Diff_input.t ->
[ `Hunks of Hunks.t
| `Structured_hunks of
([ `Next | `Prev | `Same ] * string) list
Patience_diff_lib.Patience_diff.Hunk.t
list ]) ->
tval has_no_diff : t -> bool