jon.recoil.org

Source file make_corrected_file.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open! Base

let f
  ?use_dot_patdiff
  ?corrected_path
  ?use_color
  ?diff_command
  ?diff_path_prefix
  ~next_contents
  ~path
  ()
  =
  Make_corrected_file_kernel.f
    ?use_dot_patdiff
    ?corrected_path
    ?use_color
    ?diff_command
    ?diff_path_prefix
    ~next_contents
    ~path
    ()
  |> Result.map_error ~f:(fun `Changes_found -> Error.of_string "Changes found.")
;;