Source file `lib_config.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
let program_name = ref "Merlin"

let set_program_name name = program_name := name

let program_name () = !program_name

module Json = struct
  let set_pretty_to_string f = Std.Json.pretty_to_string := f
end

module System = struct
  let set_run_in_directory f = Std.System.run_in_directory := f
end