method cvs_diff_file ?rev ?rev2 file = try Ocvs_commands.diff_file ?rev ?rev2 file with CvsFailure s -> raise (Failure s)