Without_unix.Privateval compare_lines :
Configuration.t ->
prev:string array ->
next:string array ->
[ `Hunks of string Patience_diff_lib.Patience_diff.Hunks.t
| `Structured_hunks of
([ `Next | `Prev | `Same ] * string) list
Patience_diff_lib.Patience_diff.Hunk.t
list ]