Types
type chunk_info = {
old : int;
old_range : int;
fresh : int;
fresh_range : int;
}
type pos = int
type kind =
| Add
| Del
| Leave
type chunk = chunk_info * (kind * string * pos) list
type file_info = {
old_file : string;
new_file : string;
chunks : chunk list;